config.asp

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

else
fen=rsj("fen")
lei=split(fen,"|")
if lei(14)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“15.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [zhiwei]" 
rs.open sql,conn,1,3

if ad="save" then
rs.addnew
rs("lei")=request("lei")
rs("jiage")=request("jiage")
rs("suan")=request("suan")
rs.update
rs.close
response.write "<script>alert('职位价格设置。');location.href='?menu=zhiwei'</script>"
end if

if ad="del" then
id=request("id")
set rsa=server.createobject("adodb.recordset")
sql="delete * from [zhiwei] where id="&id 
rsa.open sql,conn,1,3
response.Redirect("?menu=zhiwei")
response.end
end if

set rsg=server.createobject("adodb.recordset")
sql="select * from [zhiwei]" 
rsg.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=zhiwei&ad=save">
    <tr>
      <td colspan="2" class="a1"><div align="center" class="STYLE1">设置职位工资</div></td>
    </tr>
    <tr>
      <td width="17%" class="a4">职位名称：</td>
      <td width="83%" class="a4"><input name="lei" type="text" id="lei" size="40"></td>
    </tr>
    <tr>
      <td class="a4">工 资：</td>
      <td width="83%" class="a4"><input name="jiage" type="text" id="jiage" value="" size="40">
      单位：元</td>
    </tr>
    <tr>
      <td class="a4">结算类型：</td>
      <td width="83%" class="a4"><select name="suan" id="suan">
        <option value="年" selected>年</option>
        <option value="月">月</option>
        <option value="周">周</option>
		<option value="季">季</option>
        <option value="日">日</option>
      </select>
      </td>
    </tr>
    <tr>
      <td colspan="2" class="a4"><div align="center">
        <input type="submit" name="Submit22322" value="提交">
      </div></td>
    </tr>
  </form>
</table>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <tr>
    <td colspan="4" class="a1"><div align="center" class="style3">职位薪资表</div></td>
  </tr>
  <tr>
    <td width="17%" class="a4"><div align="center">职位名称</div></td>
    <td width="39%" class="a4"><div align="center">工资</div></td>
    <td class="a4"><div align="center">结算类型</div></td>
    <td width="12%" class="a4"><div align="center"></div></td>
  </tr>
  <%do while not rsg.eof%>
  <tr>
    <td class="a4"><div align="center"><%=rsg("lei")%> </div></td>
    <td class="a4"><div align="center"><%=rsg("jiage")%>元</div></td>
    <td class="a4"><div align="center"><%=rsg("suan")%></div></td>
    <td class="a4"><div align="center"><a href="?menu=zhiwei&ad=del&id=<%=rsg("id")%>">删除</a></div></td>
  </tr>
  <%rsg.movenext
                  loop
                  rsg.close
                  set rs=nothing
                  %>
</table>
<%end if%>
<%if menu="adduser" 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(9)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“10.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [user]" 
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")

rs.addnew
rs("name")=name
rs("pass")=md5(pass,32)
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
if webreg3="no" then
rs("ok")="yes"
else
rs("ok")="no"
end if
rs.update
rs.close
response.write "<script>alert('新员工添加成功。');location.href='?menu=adduser'</script>"
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <form name="form1" method="post" action="?menu=adduser&ad=save">
    <tr>
      <td colspan="2" class="a1"><div align="center" class="STYLE1">添加员工信息</div></td>
    </tr>
    <tr>
      <td width="17%" class="a4"><div align="center">姓 名：</div></td>
      <td width="83%" class="a4"><input name="name" type="text" id="name" size="15">
以后当作登陆帐号用</td>
    </tr>
    <tr>
      <td class="a4"><div align="center">密 码：</div></td>
      <td width="83%" class="a4"><input name="pass" type="text" id="pass"></td>
    </tr>
    <tr>
      <td class="a4"><div align="center">性 别：</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">年 龄：</div></td>
      <td width="83%" class="a4"><input name="age" type="text" id="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"></td>
    </tr>
    <tr>
      <td class="a4"><div align="center">身份证：</div></td>
      <td width="83%" class="a4"><input name="shen" type="text" id="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" size="40">
      例如：工商银行 **** **** **** **** *** </td>
    </tr>
    <tr>
      <td class="a4"><DIV align="center">电 话：</DIV></td>
      <td width="83%" class="a4"><input name="tel" type="text" id="tel">
例如：区号-电话号码</td>
    </tr>
    <tr>
      <td class="a4"><DIV align="center">Q Q：</DIV></td>
      <td width="83%" class="a4"><input name="qq" type="text" id="qq"></td>
    </tr>
    <tr>
      <td class="a4"><DIV align="center">EMAIL：</DIV></td>
      <td width="83%" class="a4"><input name="email" type="text" id="email"></td>
    </tr>
    <tr>
      <td class="a4"><DIV align="center">联系地址：</DIV></td>
      <td width="83%" class="a4"><input name="add" type="text" id="add" size="60"></td>
    </tr>
    <tr>
      <td colspan="2" class="a4"><div align="center">
        <input type="submit" name="Submit22323" value="提交">
      </div></td>
    </tr>
  </form>
</table>
<%end if%>
<%
if menu="list" 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(7)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“8.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
exec="select * from user order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1

if ad="save" then
id=request("id")
set rsa=server.createobject("adodb.recordset")
sql="delete * from [user] where id="&id 
rsa.open sql,conn,1,3
response.Redirect("?menu=list")
end if

if ad="jie" then
name=request("user")
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
response.write "<script>alert('已经提交结算信息。');location.href='?menu=list'</script>"
end if
%>
<table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#D6E0EF">
  <tr bgcolor="#698CC3">
    <td width="5%"><div align="center" class="style3">编号</div></td>
    <td width="11%"><div align="center" class="style3">用户名</div></td>
    <td width="7%"><div align="center" class="style3">性别</div></td>
    <td width="6%"><div align="center" class="style3">年龄</div></td>
    <td width="14%"><div align="center" class="style3">Email</div></td>
    <td width="11%"><div align="center" class="style3">职位</div></td>
    <td width="21%"><div align="center" class="style3">地址</div></td>
    <td width="11%"><div align="center" class="style3">电话</div></td>
    <td width="14%">&nbsp;</td>
  </tr>
  <%
rs.PageSize=20 //每页显示数
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.PageSize
if rs.EOF then     
exit for
end if
%>
  <tr bgcolor="#FFFFFF" onMouseOver="style.backgroundColor='#f3fede'" 
            onmouseout="style.backgroundColor='#ffffff'">
    <td><div align="center"><%=rs("id")%></div></td>
    <td><div align="center"><a href="?menu=eduser&name=<%=rs("name")%>"><%=rs("name")%></a></div></td>
    <td><div align="center"><%=rs("sex")%></div></td>
    <td><div align="center">
      <div align="center"><%=rs("age")%></div>
    </div></td>
    <td><div align="center"><%=rs("email")%></div></td>
    <td><div align="center"><%=rs("zhiwei")%></div></td>
    <td><div align="center"><%=rs("add")%> </div></td>
    <td><div align="center"><%=rs("tel")%></div></td>
    <td><a href="?menu=list&ad=save&id=<%=rs("id")%>">删除</a> | <a href="?menu=list&ad=jie&user=<%=rs("name")%>">结算工资</a></td>
  </tr>
  <%
rs.movenext
next
%>
</table>
<table width="95%" border="0" align="center" cellpadding="5" >
  <tr>
    <td align="right">当前共有<font color=red><strong><%=rs.recordcount%> </strong></font>记录
      <%if page=1 and not page=pagecount then%>
      第<%=page%>页
      <%for i=1 to pagecount%>
      <a href="?page=<%=i%>"><%=i%></a>
      <%next%>
      <a href="?page=<%=page+1%>">下页</a>
      <%elseif page=pagecount and not page=1 then%>
      第<%=page%>页
      <%for i=1 to pagecount%>
      <a href="?page=<%=i%>"><%=i%></a>
      <%next%>
      <a href="?page=<%=page-1%>">上页</a>
      <%elseif page<1 then%>
      没有任何记录！
      <%elseif page>pagecount then%>
      没有任何记录！
      <%elseif page=1 and page=pagecount then%>