shenhe_do.asp

通用考勤系统

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：[e-mail]          ''''
''''说明：需要新功能联系我      ''''
''''QQ:2643148                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
 
<!--#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 ct_sql where id="&aid
rs.open sql,cn,3,3
rs("noshenhe")=1
rs("uncerten")=empty
rs("level")="已经审核"
rs("password")=pass
rs.update
rs.close
response.redirect "shenhe.asp"
end if

if request("act")="allpass" then 

sql="select * from ct_sql where noshenhe=0"
rs.open sql,cn,3,3
 do while not rs.eof
rs("noshenhe")=1
rs("level")="已经审核"
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 ct_sql where id="&aid
cn.Execute sql
cn.close
response.redirect "shenhe.asp"
end if

if request("act")="allpassordel" then 
 
   if request.form("chknum").count=0 then                                   '''''''''''''''''''''''''''''''''''
          response.write "<script>alert('没有选中任何人员！！');history.back();</script>"'    '''''''''''判断是否至少选中了一个人员''''''''''''
                  '''''''''''''''''''''''''''''''''''''''''''''''
       else
            
 
           if request.form("chuliall")="通过所选" then

              for i=1 to request.form("chknum").count  
                 aid=request.form("chknum")(i)  
                    if trim(request.form("pass")(i))=empty  then 
                      pass= MD5(123456)
                     else 
                      pass= request.form("pass")(i)
                    end if
                      sql="select * from ct_sql where id="&aid
                      rs.open sql,cn,3,3
                      rs("noshenhe")=1
                      rs("uncerten")=empty
                      rs("level")="已经审核"
                      rs("password")=MD5(pass)
                      rs.update
                       rs.close
              next
                  
          response.write "<script>location.href='shenhe.asp';</script>"'
                   'response.redirect "shenhe.asp"
                

           elseif request.form("chuliall")="删除所选" then
             for i=1 to request.form("chknum").count  
                 aid=request.form("chknum")(i)  
                     sql="delete from ct_sql where id="&aid
                       cn.Execute sql
                       
              next
                   cn.close
                   response.redirect "shenhe.asp"
              

           end if
   end if
end if

if request("act")="submit" then 
aid=request("aid")
sql="select * from ct_sql  where id="&aid
rs.open sql,cn,3,3
rs("uncerten")=1

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

end if
%>