config.asp

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

response.Redirect("?menu=jiesuan")
end if
%>
<table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#D6E0EF">
  <tr bgcolor="#698CC3">
    <td width="6%"><div align="center" class="style3">编号</div></td>
    <td width="13%" bgcolor="#698CC3"><div align="center" class="style3">签到日期</div></td>
    <td width="13%"><div align="center" class="style3">员工姓名</div></td>
    <td width="13%"><div align="center" class="style3">上班时间</div></td>
    <td width="17%"><div align="center" class="style3">下班时间</div></td>
    <td width="17%"><div align="center" class="style3">迟到说明</div></td>
    <td width="16%"><div align="center" class="style3">当日工资</div></td>
    <td width="5%">&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

user=rs("name")
set rsf=server.createobject("adodb.recordset")
sqlf="select * from [user] where name='"&user&"'" 
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
gongzi=jiage/30
gongzi= Round(gongzi,2)
elseif suan="日" then
gongzi=jiage
end if
%>
  <form action="?menu=del" method="post" onSubmit="return Confirm()">
  
  <tr bgcolor="#FFFFFF" onMouseOver="style.backgroundColor='#f3fede'" 
            onmouseout="style.backgroundColor='#ffffff'">
    <td><div align="center"><%=rs("id")%></div></td>
    <td><div align="center"><%=rs("riqi")%></div></td>
    <td><div align="center"><%=rs("name")%></div></td>
    <td><div align="center">
      <div align="center"><%=rs("time")%></div>
    </div></td>
    <td><div align="center"><%=rs("time2")%></div></td>
    <td><div align="center"><%=rs("bei")%></div></td>
    <td><div align="center"><%=gongzi%>元</div></td>
    <td></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="?menu=qiandao&page=<%=i%>"><%=i%></a>
      <%next%>
      <a href="?menu=qiandao&page=<%=page+1%>">下页</a>
      <%elseif page=pagecount and not page=1 then%>
      第<%=page%>页
      <%for i=1 to pagecount%>
      <a href="?menu=qiandao&page=<%=i%>"><%=i%></a>
      <%next%>
      <a href="?menu=qiandao&page=<%=page-1%>">上页</a>
      <%elseif page<1 then%>
      没有任何记录！
      <%elseif page>pagecount then%>
      没有任何记录！
      <%elseif page=1 and page=pagecount then%>
      <%else%>
      第<%=page%>页
      <%for i=1 to pagecount%>
      <a href="?menu=qiandao&page=<%=i%>"><%=i%></a>
      <%next%>
      <a href="?menu=qiandao&page=<%=page-1%>">上页</a> <a href="?menu=qiandao&page=<%=page+1%>">下页</a>
      </div>
      <%end if%></td>
  </tr>
</table>
<%end if%>
<%if menu="xianjin" 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(19)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“20.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [gongzi]" 
rs.open sql,conn,1,1

if ad="save" then
id=request("id")
set rsf=server.createobject("adodb.recordset")
sql="select * from [gongzi] where id="&id 
rsf.open sql,conn,1,3
rsf("ok")="yes"
rsf.update
rsf.close
response.Redirect("?menu=xianjin")
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <tr>
    <td colspan="8" class="a1"><div align="center" class="style3">现金提取清单</div></td>
  </tr>
  <tr>
    <td width="12%" class="a4"><div align="center">姓名</div></td>
    <td width="11%" class="a4"><div align="center">累计工资</div></td>
    <td width="10%" class="a4"><div align="center">累计提取</div></td>
    <td width="9%" class="a4"><div align="center">可用余额</div></td>
    <td width="12%" class="a4"><div align="center">本次提取</div></td>
    <td width="11%" class="a4"><div align="center">申请时间</div></td>
    <td width="23%" 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("gongzi")%>元</div></td>
    <td class="a4"><div align="center"><%=rs("leiji")%>元</div></td>
    <td class="a4"><div align="center"><%=cint(rs("gongzi"))-cint(rs("leiji"))%>元</div></td>
    <td class="a4"><div align="center"><%=rs("shangci")%>元</div></td>
    <td class="a4"><div align="center"><%=rs("time")%></div></td>
    <td class="a4"><div align="center"><%=rs("bei")%></div></td>
    <td class="a4"><div align="center">
      <%if rs("ok")="no" then%>
      <a href="?menu=xianjin&ad=save&id=<%=rs("id")%>">等待发放</a>
      <%else%>
      已发放
      <%end if%>
    </div></td>
  </tr>
  <%rs.movenext
                  loop
                  rs.close
                  set rs=nothing
                  %>
</table>
<%end if%>
<%if menu="addjie" 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(17)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“18.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rsd=server.createobject("adodb.recordset")
sql="select * from [user]" 
rsd.open sql,conn,1,3

if ad="save" then
set rse=server.createobject("adodb.recordset")
sqle="select * from [jiesuan]" 
rse.open sqle,conn,1,3
rse.addnew
rse("name")=request("name")
rse("riqi")=request("riqi")
rse("jiage")=request("jiage")
rse("time")=request("tian")
rse("zong")=request("zong")
rse("lei")=request("lei")
rse("ok")="yes"
rse("jiang")=request("jiang")
rse("ti")=request("ti")
rse("bu")=request("bu")
rse.update
rse.close
response.write "<script>alert('已经提交结算信息。');location.href='?menu=addjie'</script>"
response.End
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <form name="form1" method="post" action="?menu=addjie&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">选择员工：</div></td>
      <td width="83%" class="a4"><select name="name" id="name">
        <%do while not rsd.eof%>
        <option value="<%=rsd("name")%>"><%=rsd("name")%> - <%=rsd("zhiwei")%></option>
        <%rsd.movenext
                  loop
                  rsd.close
                  set rsd=nothing
                  %>
      </select>        　
      <a href="config.asp?menu=zhiwei" target="_blank">查询职位工资</a></td>
    </tr>
    <tr>
      <td class="a4"><div align="center">开始日期：</div></td>
      <td width="83%" class="a4"><input name="riqi" type="text" id="riqi" size="30" value="<%=date()%>"></td>
    </tr>
    <tr>
      <td class="a4"><div align="center">职位工资：</div></td>
      <td width="83%" class="a4"><input name="jiage" type="text" id="jiage" size="30">
        元。　只果记不清“职位工资”，请点“<a href="config.asp?menu=zhiwei" target="_blank">核对职位工资</a>”</td>
    </tr>
    <tr>
      <td class="a4"><div align="center">工资类型：</div></td>
      <td width="83%" class="a4"><select name="lei" id="lei">
        <option value="年" selected>年</option>
        <option value="月">月</option>
        <option value="周">周</option>
        <option value="季">季</option>
        <option value="日">日</option>
      </select>
        对应上面的，如果输入“月”表示5000元/月。此栏应以“<a href="config.asp?menu=zhiwei" target="_blank">职位工资</a>”为准。</td>
    </tr>
    <tr>
      <td class="a4"><div align="center">发放工资：</div></td>
      <td width="83%" class="a4"><input name="zong" type="text" id="zong" size="30">
      元。　从开始日期到今日，应该付多少工资。</td>
    </tr>
    <tr>
      <td class="a4"><div align="center">共上班</div></td>
      <td width="83%" class="a4"><input name="tian" type="text" id="tian" size="30">
      天</td>
    </tr>
    <tr>
      <td class="a4"><div align="center">奖金：</div></td>
      <td width="83%" class="a4"><input name="jiang" type="text" id="jiang" size="30">
        元</td>
    </tr>
    <tr>
      <td class="a4"><DIV align="center">提成：</DIV></td>
      <td width="83%" class="a4"><input name="ti" type="text" id="ti" size="30">
      元</td>
    </tr>
    <tr>
      <td class="a4"><DIV align="center">补助：</DIV></td>
      <td width="83%" class="a4"><input name="bu" type="text" id="bu" size="30">
      元</td>
    </tr>
    <tr>
      <td colspan="2" class="a4"><div align="center">
        <input type="submit" name="Submit223233" value="提交">
      </div></td>
    </tr>
  </form>
</table>
<%end if%>
<%if menu="zhiwei2" 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(15)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“16.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
zhi=""
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where zhiwei<>'"&zhi&"'" 
rs.open sql,conn,1,3
%>
<table width="95%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#D6E0EF">
  <tr bgcolor="#698CC3">
    <td width="9%"><div align="center" class="style3">编号</div></td>
    <td width="15%"><div align="center" class="style3">用户名</div></td>
    <td width="11%"><div align="center" class="style3">职位</div></td>
    <td width="10%"><div align="center" class="style3">工资</div></td>
    <td width="16%"><div align="center" class="style3">工牌号</div></td>
    <td width="15%"><div align="center" class="style3">联系电话</div></td>
    <td width="24%"><div align="center" class="style3">银行帐号</div></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

lei=rs("zhiwei")

set rsvl=server.createobject("adodb.recordset")
sql="select * from [zhiwei] where lei='"&lei&"'" 
rsvl.open sql,conn,1,3
%>
  <form action="?menu=del" method="post" onSubmit="return Confirm()">
  
  <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("zhiwei")%></div></td>
    <td><div align="center"><%=rsvl("jiage")%>元/<%=rsvl("suan")%></div></td>
    <td><div align="center"><%=rs("gong")%></div></td>
    <td><div align="center"><%=rs("tel")%></div></td>
    <td><div align="center"><%=rs("yin")%> </div></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="?menu=zhiwei2&page=<%=i%>"><%=i%></a>
      <%next%>
      <a href="?menu=zhiwei2&page=<%=page+1%>">下页</a>
      <%elseif page=pagecount and not page=1 then%>
      第<