install.asp

通用考勤系统

<%
''''''''''''''''''''''''''''''''''''''''''' 
''''   版权：野马原创                    ''''
''''   联系：[e-mail]               ''''
''''   说明：需要新功能联系我            ''''
''''       QQ:2643148                      ''''
'''''''''''''''''''''''''''''''''''''''''' 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''初''''''''''''化'''''''装'''''''''''序''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''始''''''''''安''''''''程''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<link href=css.css rel=stylesheet>
<!--#include file="conn.asp"-->
<!--#include file="sn.asp"-->
<center><img src=images/top.gif><br>
<font color=red size=5>安装程序</font>
<form action="?ction=reg" method=post>
输入v2.0正式版安装码<br><input type=text size=20 maxlenght=16 name=installcode><br><input type=submit value="开始安装">
</center>
</form>
<p align=center>
<table >
<tr>
<td class=tdwhtimg colspan=2 align=center>通用管理系统 v2.0 功能升级列表</td>
</tr>
<tr>
<td class=td1 width=4% align=center>1</td><td class=td2>签到功能彻底更新，增加多点签到功能，每天可以设置无限多个签到点！</td>
</tr>
<tr>
<td class=td2 align=center>2</td><td class=td1>增加“签到缓冲时间”功能，时令的签到设定更加人性化！</td>
</tr>
<tr>
<td class=td1 align=center>3</td><td class=td2>人员管理的增加、修改功能中增加 “签到设定"！</td>
</tr>
<tr>
<td class=td2 align=center>4</td><td class=td1>css全面定义，增加了可选择的多个项目操作功能[例如全删除，全审核通过]！</td>
</tr>
<tr>
<td class=td1 align=center>5</td><td class=td2>员工的签到操作界面大改变，系统会按照设定依次提示员工该何时签到何时注销</td>
</tr>
<tr>
<td class=td2 align=center>6</td><td class=td1>增加所有签到纪录查询功能！</td>
</tr>
<tr>
<td class=td1 align=center>7</td><td class=td2>员工管理者[小组长]更名为“组管理者”</td>
</tr>
<tr>
<td class=td2 align=center>8</td><td class=td1>后台系统设置功能中增加两项：更改首页横幅[banner]和logo，您用不着再去修改源文件来使系统的外观个性化了</td>
</tr>
<tr>
<td class=td1 align=center>9</td><td class=td2>根据反馈，去掉了“考勤管理”模块，去除了“人员奖罚”功能，</td>
</tr>
</table>

</p>
<%
if request("ction")="reg" then
  if request.form("installcode")=empty  then
response.write "<script>alert('请输入安装码！');</script>"
  elseif request.form("installcode")<>sn  then
response.write "<script>alert('安装码不正确！');</script>"
  else
response.write "<script>alert('安装码正确！开始初始化系统');</script>"

sql="select isinstall from sn where id=1"
rs.open sql,cn,3,3
rs("isinstall")=1
rs.update
rs.close
 sql1="select * from webset"
    rs.open sql1,cn,3,3
     rs("publishtime")="2007-03-29"   '写入发布日期
      rs("webver")="v2.0正式版"          '写入版本信息
     rs("initday")=1
   rs.update 
 rs.close
  sqlinita="select * from ct_sql "         '''''初始化员工信息     
  rsa.open sqlinita,cn,3,3
do while not rsa.eof
 rsa("todayqd")=0
 rsa("todayqdsuc")=0
 rsa("todayinitdate")=date()
 rsa("lastpay")=0 
 rsa("todayqdontime")=empty 
 rsa("todaylatter")=0
 rsa("lattertime")=0                  
 rsa("mustqdok")=0
 rsa("todaypay")=0 
 rsa("todayqdip")=empty
 rsa("todayqdtimes")=0
 rsa("todayworktime")=0
 rsa("todayallworktime")=0
 rsa("todayusefulworktime")=0 
 rsa("todaylatterrc")=0 
 rsa("thismustqdtime")=empty
 rsa("nextmustzxtime")=empty
rsa.update  
rsa.movenext
loop
rsa.close

  sqlinitb="select todayinitdate from ct_adminboss"            '''''初始化管理员状态
  rsb.open sqlinitb,cn,3,3
    do while not rsb.eof
     rsb("todayinitdate")=date()
   rsb.update  
 rsb.movenext
loop

rsb.close

 sqlinit2="select * from ct_sql "           ''初始化月信息
   rs1.open sqlinit2,cn,3,3
   do while not rs1.eof
    
   rs1("monthpay")=0                  
   rs1("monthworktime")=0
   
   rs1("monthqdnum")=0
   rs1("monthqdpaiming")=0
   rs1("monthqdpmtime")=empty
   
   rs1("monthlattertime")=0
   rs1("monthlatterpaiming")=0
   rs1("monthlatterpmtime")=empty

   rs1("monthfen")=0
   rs1("monthfenpmtime")=empty
   rs1("monthfenpaiming")=0
   
   rs1("monthqdrc")=empty
   rs1("monthlatterqdrc")=empty

   

   rs1.update
   rs1.movenext
   loop
   rs1.close
   set rs1=nothing
  
  sqlinitm="select * from webset "
   rsa.open sqlinitm,cn,3,3
  rsa("initmonth")=1
  rsa.update
  rsa.close
 set rsa=nothing

response.write "<script>window.open('index.asp');location.href='http://asoft.bd7x.com/mysoftnew/update.asp?sys=ty&sn="&sn&"';</script>"
rs.close
end if
end if

%>