admin_function.asp

此系统对学校教师的工资信息加以管理,大大提高学校的办公效率.

<%if session("password")<>"" then%>
<!-- #include file="inc/top.asp" -->
<!-- #include file="inc/adminmenu.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="768" border=0 align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="768" 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" -->