?? admin_function.asp
字號:
<%if session("password")<>"" then%>
<!-- #include file="inc/top.asp" -->
<!-- #include file="inc/conn.asp" -->
<%
if request.querystring("fun")="count" then
sql="update countip set count=0 where id=1"
conn.execute(sql)
set conn=nothing
session("funt")="1"
end if
if request.querystring("fun")="copyxh" then
sqlr="select xh,xm from user"
set rsr=conn.execute(sqlr)
do while not (rsr.eof or rsr.bof)
sql = "select user from bbs1 where xh = '"&rsr(0)&"'"
rs.open sql,conn,3,2
do while not (rs.eof or rs.bof)
rs(0)=rsr(1)
rs.update
rs.movenext
loop
rs.close
rsr.movenext
loop
set rs=nothing
set conn=nothing
session("funt")="2"
end if
if request.querystring("fun")="copybj" then
sqlr="select xh,bj from user"
set rsr=conn.execute(sqlr)
do while not (rsr.eof or rsr.bof)
sql = "select bj from bbs1 where xh = '"&rsr(0)&"'"
rs.open sql,conn,3,2
do while not (rs.eof or rs.bof)
rs(0)=rsr(1)
rs.update
rs.movenext
loop
rs.close
rsr.movenext
loop
set rs=nothing
set conn=nothing
session("funt")="3"
end if
%>
<table width="100%" border=0 align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" height="25" align="center" cellpadding="0" cellspacing="0">
<tr><td valign=top bgcolor="#A0A4AC">
<li><a href="admin_function.asp?fun=count" title="主頁上的站點計數器的數值清零">站點計數器清零。</a>
<%if session("funt")="1" then response.write("<font color=red>計數器已清零</font>")%></li>
<li><a href="admin_function.asp?fun=copyxh" title="以學生的資料為主,更新成績單里每一條成績所對應的學生姓名。">名字核對及更新。</a>
<%if session("funt")="2" then response.write("<font color=red>學生學號對應的名字已經得到更新。</font>")%></li>
<li><a href="admin_function.asp?fun=copybj" title="以學生的資料為主,更新成績單里每一條成績所對應的學生班級。">班級核對及更新。</a>
<%if session("funt")="3" then response.write("<font color=red>學生學號對應的班級已經得到更新。</font>")%></li>
</td></tr></table>
</td>
</tr>
</table>
<!-- #include file="inc/copyright.asp" -->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -