setup.asp

asp+access实现web环境中的企业实时考勤

<%@LANGUAGE="VBScript"%>
<!--#include file="conn.asp"-->
<link rel="stylesheet" href="style.css" type="text/css">
<%
'程序：王星亮 网名：血饮狂刀 国外的叫我LANBOO
'OICQ：40001
'EMAIL：[e-mail]
'我是什么都有，您想要我开发什么程序，尽管说。只要价格合理就行。
'我电话：[phone]
response.expires = 0
AddTime=now
AddIp=request.servervariables("remote_addr")
gpy=request("gpy")
if gpy="" then
  Query="select * from MyOper where OperType=4"
  set sql=conn.Execute(Query)
  if sql.eof then
    ShowUnitHtml
  else 
    ShowCheckHtml
  end if

elseif gpy="CheckOk" then
  NewLoginName=request("NewLoginName")
  NewPasswd=request("NewPasswd")
  Query="select * from MyOper where OperType=4 and LoginName='"&NewLoginName&"'"
  set sql=conn.Execute(Query)
  if sql.eof then Back("错误：管理员帐号不对！")
  if sql("LoginPWD")<>Encrypt(NewPasswd) then Back("错误：管理员密码不对！")
  ShowUnitHtml

elseif gpy="AddUnit" then
  DeptName=request("NewDeptName")
  DeptId=GetID("select max(ID)+1 from MyDept")
  Query="Insert into MyDept values("&DeptId&",'"&DeptName&"','系统初始化',0,'-','-','0','1','"&AddIp&"',#"&AddTime&"#)"
  conn.Execute(Query)

  ShowHtml

elseif gpy="Add" then
  OperName=request("NewOperName")
  NewLoginName=request("NewLoginName")
  NewPasswd=request("NewPasswd")
  Explain=request("Explain")
  DeptId=request("DeptId")
  Query="insert into MyOper values("&GetID("select max(ID)+1 from MyOper")&",'"&OperName&"','"&Explain&"','"&NewLoginName&"','"&Encrypt(NewPasswd)&"',"&DeptId&",4,0,'"&AddIp&"',#"&AddTime&"#,100)"
  conn.Execute(Query)
%>
  <script language='javascript'>
    alert('恭喜：系统初始化成功！');
    window.location.href = "workmng.asp";
 </script>
<%
end if

sub ShowHtml
 HtmlHead("系统初始化:第二步，输入用户帐号")
%>
<SCRIPT language=JavaScript>
  <!--
  function checkvalue() {
    aa=document.form1
    if (aa.NewOperName.value=="") {
        window.alert ("请输入管理员姓名!"); aa.NewOperName.focus();return false}
    if (aa.NewLoginName.value=="") {
        window.alert ("请输入管理员登录名!"); aa.NewLoginName.focus();return false}
    if (aa.NewPasswd.value=="") {
        window.alert ("请输入管理员密码!"); aa.NewPasswd.focus();return false}
    if (aa.NewPasswd.value != aa.VerPasswd.value ) {
        window.alert ("管理员两次密码不相同!"); aa.VerPasswd.focus();return false}  
    SubmitOK()
	 }
function SubmitOK(){
if ( confirm("要进行系统初始化吗？")) {
   form1.submit();}
}
//-->
</SCRIPT>
<form name=form1 action="<%=request.servervariables("SCRIPT_NAME")%>" method="POST" >
<table width="500" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
 <tr bgcolor=rgb(214,211,206) align=center>
   <td colspan=2>管理员</td>
 </tr>
 <tr>
    <td width="10%" bgcolor="#FFFFFF" align="right">姓&nbsp;&nbsp;&nbsp;&nbsp;名：</td>
    <td width="90%" bgcolor="#FFFFFF" align="left" colspan=3>
	 <input type=text name="NewOperName">
	</td>
</tr>    

<tr>                                                                                                      
  <td width="10%" bgcolor="#FFFFFF" align="right">登&nbsp;录&nbsp;名：</td>
  <td width="90%" bgcolor="#FFFFFF" align="left" colspan=3>
	<input name="NewLoginName" size="50" value='<%=aa%>'>
 </td>
</tr>
<tr>                                                                                                      
    <td width="10%" bgcolor="#FFFFFF" align="right">密&nbsp;&nbsp;&nbsp;&nbsp;码：</td>
    <td width="90%" bgcolor="#FFFFFF" align="left"><input type="password" name="NewPasswd" size="50" value=''></td>
</tr>  
<tr>                                                                                        
    <td width="10%" bgcolor="#FFFFFF" align="right">校验密码：</td>
    <td width="90%" bgcolor="#FFFFFF" align="left" colspan=3>
   	<input type="password" name="VerPasswd" size="50" value=''>
</td>                                                                                        
</tr>
<tr>                                                                                        
    <td width="10%" bgcolor="#FFFFFF" align="right">性&nbsp;&nbsp;&nbsp;&nbsp;别：</td>
    <td width="90%" bgcolor="#FFFFFF" align="left">
	<INPUT type="radio" name="Explain" value="男" checked>男&nbsp;&nbsp;&nbsp;<INPUT type="radio" name="Explain" value="4">女
</td>                                                                                        
 <tr align=center>
   <td colspan=4>
      <input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="button" value="  完成" name="okbtn" onClick="return checkvalue()">
       <input type=hidden name="gpy" value="Add">
	   <input type=hidden name="DeptId" value="<%=DeptId%>">
      <input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="button" value="  放弃" name="okbtn" onClick="window.close();">
   </td>
</tr>
</table>
</form>
<%
 HtmlEnd
end sub

sub ShowCheckHtml
 HtmlHead("用户认证")
%>
<SCRIPT language=JavaScript>
  <!--
  function checkvalue() {
    aa=document.form1
    if (aa.NewLoginName.value=="") {
        window.alert ("请输入管理员登录名!"); aa.NewLoginName.focus();return false}
    if (aa.NewPasswd.value=="") {
        window.alert ("请输入管理员密码!"); aa.NewPasswd.focus();return false}}

//-->
</SCRIPT>

<form name=form1 action="<%=request.servervariables("SCRIPT_NAME")%>" method="POST" >
<table width="200" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
 <tr bgcolor=rgb(214,211,206)>
   <td colspan=2>管理员</td>
 </tr>
 <tr>
    <td width="10%" bgcolor="#FFFFFF" align="right">用&nbsp;户&nbsp;名：</td>
    <td width="90%" bgcolor="#FFFFFF" align="left">
	 <input type=text name="NewLoginName">
	</td>
</tr>   
 <tr>
    <td width="10%" bgcolor="#FFFFFF" align="right">密&nbsp;&nbsp;&nbsp;&nbsp;码：</td>
    <td width="90%" bgcolor="#FFFFFF" align="left">
	 <input type=password name="NewPasswd">
	</td>
</tr> 
 <tr align=center>
   <td colspan=2>
      <input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="submit" value="  确定" name="okbtn" onClick="return checkvalue()">
       <input type=hidden name="gpy" value="CheckOk">
      <input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="button" value="  放弃" name="okbtn" onClick="window.close();">
   </td>
</tr>
</table>
</form>
<%
 HtmlEnd
end sub

sub ShowUnitHtml
 DelAll
 HtmlHead("系统初始化:第一步，输入部门名称")
%>
<SCRIPT language=JavaScript>
  <!--
  function checkvalue() {
    aa=document.form1
    if (aa.NewDeptName.value=="") {
        window.alert ("请输入部门名称!"); aa.NewDeptName.focus();return false}}

//-->
</SCRIPT>

<form name=form1 action="<%=request.servervariables("SCRIPT_NAME")%>" method="POST" >
<table width="300" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#7C7C7C" bordercolordark="#FFFFFF">
 <tr>
    <td bgcolor="<%=TableTopBg%>" colspan=2>&nbsp;</td>
</tr> 
 <tr>
    <td bgcolor="#FFFFFF" width=70>部门名称：</td>
    <td bgcolor="#FFFFFF" align="left">
	 <input type=text name="NewDeptName" size=30>
	</td>
</tr> 
 <tr align=center>
   <td colspan=2>
      <input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="submit" value="  下一步" name="okbtn" onClick="return checkvalue()">
       <input type=hidden name="gpy" value="AddUnit">
      <input style="font-family: 宋体; font-size: 10.5pt; background-image: url('images/task.gif'); background-repeat: no-repeat; border: 1px ridge; background-position: left center" type="button" value="  放弃" name="okbtn" onClick="window.close();">
   </td>
</tr>
</table>
</form>
<%
 HtmlEnd
end sub

sub DelAll
  conn.Execute("delete from GpyLeaveLog")
  conn.Execute("delete from MyOper")
  conn.Execute("delete from GpyModiLog")
  conn.Execute("delete from GpyWorkLog")
  conn.Execute("delete from MyDept")
  conn.Execute("delete from MyOper")

end sub
'程序：王星亮 网名：血饮狂刀 国外的叫我LANBOO
'OICQ：40001
'EMAIL：[e-mail]
'我是什么都有，您想要我开发什么程序，尽管说。只要价格合理就行。
'我电话：[phone]
%>