config.asp

一个小型ASP做的工资管理系统,这也是别人做的,我觉得他很地干静.

      <%else%>
      第<%=page%>页
      <%for i=1 to pagecount%>
      <a href="?page=<%=i%>"><%=i%></a>
      <%next%>
      <a href="?page=<%=page-1%>">上页</a> <a href="?page=<%=page+1%>">下页</a>
      </div>
      <%end if%></td>
  </tr>
</table>
<%end if%>
<%if menu="jiesuan" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(18)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“19.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [jiesuan]" 
rs.open sql,conn,1,1

if ad="save" then
name=request("name")
id=request("id")
set rsa=server.createobject("adodb.recordset")
sql="delete * from [qiandao] where name='"&name&"'" 
rsa.open sql,conn,1,3

set rsf=server.createobject("adodb.recordset")
sql="select * from [jiesuan] where id="&id 
rsf.open sql,conn,1,3
rsf("ok")="yes"
rsf.update
rsf.close
response.Redirect("?menu=jiesuan")
end if
if ad="del" then
id=request("id")
set rsd=server.createobject("adodb.recordset")
sql="delete * from [jiesuan] where id="&id 
rsd.open sql,conn,1,3
response.Redirect("?menu=jiesuan")
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <tr>
    <td colspan="6" class="a1"><div align="center" class="style3">结算信息管理</div></td>
  </tr>
  <tr>
    <td width="17%" class="a4"><div align="center">姓名</div></td>
    <td width="23%" class="a4"><div align="center">结算日期</div></td>
    <td width="15%" class="a4"><div align="center">价格</div></td>
    <td width="17%" class="a4"><div align="center">工作时间</div></td>
    <td width="16%" class="a4"><div align="center">结算费用</div></td>
    <td width="12%" class="a4"><div align="center"></div></td>
  </tr>
  <%do while not rs.eof%>
  <tr>
    <td class="a4"><div align="center"><%=rs("name")%> </div></td>
    <td class="a4"><div align="center"><%=rs("riqi")-rs("time")%> - <%=rs("riqi")%></div></td>
    <td class="a4"><div align="center"><%=rs("jiage")%>元/<%=rs("lei")%></div></td>
    <td class="a4"><div align="center"><%=rs("time")%>天</div></td>
    <td class="a4"><div align="center"><%=rs("zong")%>元</div></td>
    <td class="a4"><div align="center"><%if rs("ok")="no" then%><a href="?menu=jiesuan&ad=save&name=<%=rs("name")%>&id=<%=rs("id")%>">结算</a><%else%>已结算<%end if%> 
        <a href="?menu=jiesuan&ad=del&id=<%=rs("id")%>">删除</a></div></td>
  </tr>
  <%rs.movenext
                  loop
                  rs.close
                  set rs=nothing
                  %>
</table>
<%end if%>
<%if menu="eduser" then
name=request("name")
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where name='"&name&"'" 
rs.open sql,conn,1,3

if ad="save" then
name=request("name")
pass=request("pass")
sex=request("sex")
age=request("age")
gong=request("gong")
yin=request("yin")
shen=request("shen")
tel=request("tel")
qq=request("qq")
email=request("email")
add=request("add")
zhiwei=request("zhiwei")

rs("name")=name
if pass<>"" then
rs("pass")=md5(pass,32)
end if
rs("sex")=sex
rs("age")=age
rs("gong")=gong
rs("shen")=shen
rs("yin")=yin
rs("tel")=tel
rs("qq")=qq
rs("email")=email
rs("add")=add
rs("ok")="yes"
if zhiwei<>"" then
rs("zhiwei")=zhiwei
end if
rs.update
rs.close
response.write "<script>alert('员工信息修改成功。');location.href='?menu=list'</script>"
end if

set rsvl=server.createobject("adodb.recordset")
sql="select * from [zhiwei]" 
rsvl.open sql,conn,1,3
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <form name="form1" method="post" action="?menu=eduser&ad=save">
    <tr>
      <td colspan="2" class="a1"><div align="center" class="style3">员工信息管理</div></td>
    </tr>
    <tr>
      <td width="17%" class="a4"><div align="center">姓&nbsp;名：</div></td>
      <td width="83%" class="a4"><input name="name" type="text" id="name" value="<%=rs("name")%>" size="15">
        以后当作登陆帐号用</td>
    </tr>
    <tr>
      <td class="a4"><div align="center">密&nbsp;码：</div></td>
      <td width="83%" class="a4"><input name="pass" type="text" id="pass"></td>
    </tr>
    <tr>
      <td class="a4"><div align="center">性&nbsp;别：</div></td>
      <td width="83%" class="a4"><select name="sex" id="sex">
        <option value="boy">男</option>
        <option value="girl">女</option>
      </select></td>
    </tr>
    <tr>
      <td class="a4"><div align="center">年&nbsp;龄：</div></td>
      <td width="83%" class="a4"><input name="age" type="text" id="age" value="<%=rs("age")%>" size="10"></td>
    </tr>
    <tr>
      <td class="a4"><div align="center">工牌号：</div></td>
      <td width="83%" class="a4"><input name="gong" type="text" id="gong" value="<%=rs("gong")%>"></td>
    </tr>
    <tr>
      <td class="a4"><div align="center">身份证：</div></td>
      <td width="83%" class="a4"><input name="shen" type="text" id="shen" value="<%=rs("shen")%>" size="40">
        必须输入正确的身份证号</td>
    </tr>
    <tr>
      <td class="a4"><DIV align="center">银行帐号：</DIV></td>
      <td width="83%" class="a4"><input name="yin" type="text" id="yin" value="<%=rs("yin")%>" size="40">
        例如：工商银行 **** **** **** **** ***</td>
    </tr>
    <tr>
      <td class="a4"><DIV align="center">电&nbsp;话：</DIV></td>
      <td width="83%" class="a4"><input name="tel" type="text" id="tel" value="<%=rs("tel")%>">
        例如：区号-电话号码</td>
    </tr>
    <tr>
      <td class="a4"><DIV align="center">Q&nbsp;Q：</DIV></td>
      <td width="83%" class="a4"><input name="qq" type="text" id="qq" value="<%=rs("qq")%>"></td>
    </tr>
    <tr>
      <td class="a4"><DIV align="center">E-mail：</DIV></td>
      <td width="83%" class="a4"><input name="email" type="text" id="email" value="<%=rs("email")%>"></td>
    </tr>
    <tr>
      <td class="a4"><DIV align="center">地&nbsp;址：</DIV></td>
      <td width="83%" class="a4"><input name="add" type="text" id="add" value="<%=rs("add")%>" size="60"></td>
    </tr>
    <tr>
      <td class="a4"><div align="center">职&nbsp;位：</div></td>
      <td width="83%" class="a4"><select name="zhiwei" id="zhiwei">
	  <option value="">当前职位：<%=rs("zhiwei")%></option>
        <%do while not rsvl.eof%>
        <option value="<%=rsvl("lei")%>">更改为：<%=rsvl("lei")%></option>
        <%rsvl.movenext
                  loop
                  rsvl.close
                  set rsvl=nothing
                  %>
      </select></td>
    </tr>
    <tr>
      <td colspan="2" class="a4"><div align="center">
        <input type="submit" name="Submit223232" value="提交">
      </div></td>
    </tr>
  </form>
</table>
<%end if%>
<%if menu="yue" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(20)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“21.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
if ad="jie" then
set rsf=server.createobject("adodb.recordset")
sql="select * from [jiesuan]"
rsf.open sql,conn,1,3
do while not rsf.eof
rsf("ok")="yes"
rsf.update
rsf.movenext
loop
response.write "<script>alert('结算成功。');location.href='?menu=jiesuan'</script>"
end if
if ad="zong" then
set rsvl=server.createobject("adodb.recordset")
sql="select * from [user]" 
rsvl.open sql,conn,1,3
do while not rsvl.eof
name=rsvl("name")
set rsf=server.createobject("adodb.recordset")
sqlf="select * from [user] where name='"&name&"'" 
rsf.open sqlf,conn,1,3
lei2=rsf("zhiwei")

set rs3=server.createobject("adodb.recordset")
sql3="select * from [zhiwei] where lei='"&lei2&"'" 
rs3.open sql3,conn,1,3
suan=rs3("suan")
jiage=rs3("jiage")

if suan="年" then
tian=jiage/365
tian=Round(tian, 2)
elseif suan="季" then
tian=jiage/90
tian=Round(tian, 2)
elseif suan="月" then
tian=jiage/30
tian=Round(tian, 2)
elseif suan="周" then
tian=jiage/7
tian=Round(tian, 2)
elseif suan="日" then
tian=jiage
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [qiandao] where name='"&name&"'" 
rs.open sql,conn,1,3
shu2=rs.recordcount
zong=tian*shu2
set rse=server.createobject("adodb.recordset")
sqle="select * from [jiesuan]" 
rse.open sqle,conn,1,3
rse.addnew
rse("name")=name
rse("riqi")=date()
rse("jiage")=jiage
rse("time")=shu2
rse("zong")=zong
rse("lei")=suan
rse("ok")="yes"
rse("bei")=request("bei")
rse.update
rse.close
set rsd=server.createobject("adodb.recordset")
sql="delete * from [qiandao] where name='"&name&"'"
rsd.open sql,conn,1,3

rsvl.movenext
loop
rsvl.close
set rsvl=nothing
response.write "<script>alert('结算成功。');location.href='?menu=jiesuan'</script>"
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <tr>
    <td class="a1"><div align="center" class="style3">管理员月结操作</div></td>
  </tr>
  <tr>
    <td class="a4">1.结算所有已经提交的结算请求。
      <input name="button42" type=button class="button" onClick="location.href='?menu=yue&ad=jie'" value="执行结算请求"></td>
  </tr>
  <form name="form2" method="post" action="?menu=list&ad=jie">
  <tr>
    <td class="a4">2.请选择员工： 
	  <%set rsvl=server.createobject("adodb.recordset")
sql="select * from [user]" 
rsvl.open sql,conn,1,3%><select name="user" id="user">
        <%do while not rsvl.eof%>
        <option value="<%=rsvl("name")%>"><%=rsvl("name")%> - <%=rsvl("zhiwei")%></option>
        <%rsvl.movenext
                  loop
                  rsvl.close
                  set rsvl=nothing
                  %>
      </select>
        <input type="submit" name="Submit3" value="结算该员工工资">      </td>
  </tr>
  <tr>
    <td class="a4">3. 此操作结算所有员工工资。 
      <input name="button2" type=button class="button" onClick="location.href='?menu=yue&ad=zong'" value="结算所有用户工资"></td>
  </tr>
  </form>
</table>
<%end if%>
<%if menu="qiandao" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(16)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“17.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [qiandao]" 
rs.open sql,conn,1,1

if ad="save" then
name=request("name")
set rsa=server.createobject("adodb.recordset")
sql="delete * from [qiandao] where name='"&name&"'" 
rsa.open sql,conn,1,3

set rsf=server.createobject("adodb.recordset")
sql="select * from [jiesuan] where name='"&name&"'" 
rsf.open sql,conn,1,3
rsf("ok")="yes"
rsf.update
rsf.close