shenhe_do.asp

一个考勤评分系统

<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：[e-mail]          ''''
''''说明：需要新功能联系我      ''''
''''QQ:214297587                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->
<title>考勤评分系统后台  by 野马</title>
<!--#include file="check.asp"-->
<!--#include file="MD5.asp"-->
 <!--#include file="conn.asp"-->
<%
if request("act")="shenhe" then 
aid=request.form("aid")
if request.form("pass")=empty  then 
pass= MD5(123456)
else 
pass= MD5(request.form("pass"))
end if
sql="select * from scunews where id="&aid
rs.open sql,cn,3,3
rs("noshenhe")=1
rs("uncerten")=empty

rs("password")=pass
rs.update
rs.close
response.redirect "shenhe.asp"
end if
%>
 
<%
if request("act")="allpass" then 

sql="select * from scunews where noshenhe=0 "
rs.open sql,cn,3,3
 do while not rs.eof
rs("noshenhe")=1
rs("uncerten")=empty

rs("password")=MD5(123456)
rs.update
rs.movenext
loop
rs.close
response.redirect "shenhe.asp"

end if
%>
 
 <%
if request("act")="del" then 
aid=request("aid")
sql="delete from scunews where id="&aid
cn.Execute sql
cn.close
response.redirect "shenhe.asp"
end if
%>
<%
if request("act")="submit" then 
aid=request("aid")
sql="select * from scunews where id="&aid
rs.open sql,cn,3,3
rs("uncerten")=1

rs.update
rs.close
response.redirect "shenhe.asp"

end if
%>