admin_function.asp

学生成绩管理系统 :功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页 7.分页显示 后台

<%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>&nbsp;&nbsp;&nbsp;&nbsp;
<%if session("funt")="1" then response.write("<font color=red>计数器已清零</font>")%></li>
<li><a href="admin_function.asp?fun=copyxh" title="以学生的资料为主，更新成绩单里每一条成绩所对应的学生姓名。">名字核对及更新。</a>&nbsp;&nbsp;&nbsp;&nbsp;
<%if session("funt")="2" then response.write("<font color=red>学生学号对应的名字已经得到更新。</font>")%></li>
<li><a href="admin_function.asp?fun=copybj" title="以学生的资料为主，更新成绩单里每一条成绩所对应的学生班级。">班级核对及更新。</a>&nbsp;&nbsp;&nbsp;&nbsp;
<%if session("funt")="3" then response.write("<font color=red>学生学号对应的班级已经得到更新。</font>")%></li>
</td></tr></table>
</td>
</tr>
</table>


<!-- #include file="inc/copyright.asp" -->