📄 month.asp
字号:
<!--#include file="conn.asp" -->
<%
'session("年份")=2004
'sql="select * from daylu where year(日期) ="&session("nian")&" and month(日期)="&session("yue")&" "
%>
<%if request("qd")<>"" then
session("nian")=request("nian")
session("yue")=request("yue")
end if
'确定年份和月份，定义session后面备用%>
<HTML>
<HEAD>
<TITLE></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #FFffff;
}
-->
</style>
<link href="style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="#FF0000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<div align="center">
<table width="100%" border="0" cellspacing="5" cellpadding="5">
<tr>
<td> <div align="right">
<% If session("admin")<>"yes" Then
response.write("系统超时，您需要<font color=red><b>重新登陆</font></b>。 ")
response.end
Else %>
您现在处于管理状态。
<%end if%>
<strong><a href="javascript:self.location.reload();"><font color="#FF0000">刷新</font></a></strong>
</div></td>
</tr>
<tr>
<td> <strong>工作月录：</strong><br>
<br>
<table width="100%" border="0" cellpadding="2" cellspacing="2" class="input">
<form name="form2" method="post" action=""><tr>
<td height="24">
<%
if request("cx")<>"" then
session("nian")=""
session("yue")=""
response.Redirect("month.asp")
end if%> 请选则年份：
<select name="nian" id="nian">
<% for i=1999 to year(date())%>
<option value="<%=i%>" selected><%=i%></option>
<%next
i=i+1%>
</select>
请选择月份：
<select name="yue" id="yue">
<% for i=1 to 12%>
<option value="<%=i%>" selected><%=i%></option>
<%next
i=i+1%>
</select>
<input name="qd" type="submit" id="qd" value="确 定" <%if session("nian")<>"" then %>disabled<%end if%>>
<input name="cx" type="hidden" id="cx" value="">
<%if session("nian")<>"" then%>
<strong>当前选择：</strong><font color="#FF0000"><%= session("nian") %></font>年<font color="#FF0000"><%= session("yue") %></font>月 <a href="?cx=yes"><font color="#0000FF">重新选择</font></a>
<%end if%>
</td>
</tr></form>
</table>
<br>
<%
'列表查询
if session("nian")<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from men order by mid asc"
rs.open sql,conn,3,2
if rs.eof or rs.bof then
gid=1
%>
<table width="100%" border="0" cellpadding="2" cellspacing="2" class="front">
<tr>
<td><div align="center">目前还没有。</div></td>
</tr>
</table>
<%else
pgsize=8
page=request.querystring("page")
rs.pagesize=pgsize
pgnm=rs.pagecount
if page=""or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page
count=0%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" class="front">
<tr>
<td bgcolor="#F2EADF" ><div align="left" class="gb4">现有记录：<font color="#FF0000"><%=rs.recordcount %></font>共<font color="#FF0000">
<%= pgnm %></font> 页，当前页：<font color="#0033FF"><%= page %> </font><a href=?page=1>第一页</a> <a href=?page=<%=pgnm%>>最后一页</a>
<a href=?page=<%=page+1%>>下一页</a>
<a href=?page=<%=page-1%>>上一页</a>
</div></td>
</tr>
</table><br>
<% do while not rs.eof and count<rs.pagesize %>
<form name="form1" method="post" action="add.asp">
<table width="100%" border="0" cellpadding="2" cellspacing="2" class="front">
<tr>
<td width="12%"><strong>工号：</strong></td>
<td width="17%"><%= rs("mid") %></td>
<td width="12%"><strong>姓名：</strong></td>
<td width="22%"><%= rs("name") %></td>
<td width="15%"><strong>基本工资：</strong></td>
<td width="22%"><%=rs("money") %></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td>工龄：</td>
<td><font color="#000000"> <%= rs("gongling") %></font></td>
<td><font color="#000000">工龄工资：</font></td>
<td><font color="#000000"> <%= rs("gongling") %> X
<%set rs3=server.createobject("adodb.recordset")
sql="select money from config"
rs3.open sql,conn,1,3
%>
<%=rs3("money")%>
<%gz=rs3("money")*rs("gongling")%>
=<%=gz%>
<%rs3.close%>
</font></td>
</tr>
<tr>
<td>系数： <%set rs2=server.createobject("adodb.recordset")
sql="select * from monthlu where 工号 like '"&rs("mid")&"' and 月份 like '"&session("yue")&"' and 年份 like '"&session("nian")&"'"
rs2.open sql,conn,1,3
%></td>
<td><input name="xishu" type="text" value="<%if rs2.eof or rs2.bof then
xishu=1%>1<%else
xishu=rs2("合格系数")%><%=rs2("合格系数")%><%end if%>" size="8" maxlength="15"></td>
<td>奖金：</td>
<td>
<input name="jiangjin" type="text" id="jiangjin" value="<%if rs2.eof or rs2.bof then
add="no"
jiangjin=0%>0<%else
add="yes"
id=rs2("id")
jiangjin=rs2("奖金")%><%=rs2("奖金")%><%end if%>"size="8" maxlength="15">
元</td>
<%rs2.close%>
<td>记件工资：</td>
<td><%set rs2=server.createobject("adodb.recordset")
sql="select * from daylu where 工号 like '"&rs("mid")&"'and year(日期)="&session("nian")&" and month(日期)="&session("yue")&" "
rs2.open sql,conn,1,3
if rs2.eof or rs2.bof then
response.write("没有此人记录")
else
jjgz=0
do while not rs2.eof
'计算此人记件工资。
jjgz=jjgz+rs2("合计工资")
msg=("<a href=per.asp?mid="&rs("mid")&"&month="&session("yue")&"&year="&session("nian")&"><font color=red>"&jjgz&"</font></a>")
if not rs2.eof or rs2.bof then rs2.movenext
loop%><%= msg %>
<%
end if
rs2.close%></td>
</tr>
<tr>
<td><div align="left"></div></td>
<td> </td>
<td><input name="act" type="submit" id="act" value="更新" <%if add="no" then%>disabled<%end if%>>
<input name="id" type="hidden" id="id" value="<%=id%>"></td>
<td><input name="act" type="submit" id="act" value="增加" <%if add="yes" then%>disabled<%end if%>>
<input name="jjgz" type="hidden" id="jjgz" value="<%=jjgz%>">
<input name="all" type="hidden" id="all" value="<%=all%>">
<input name="gz" type="hidden" id="gz" value="<%=gz%>">
<input name="money" type="hidden" id="money" value="<%=rs("money")%>">
<input name="mid" type="hidden" id="mid" value="<%=rs("mid")%>"></td>
<td>工资合计：
<input name="name" type="hidden" id="name" value="<%=rs("name")%>">
<input name="page" type="hidden" id="page" value="<%=page%>"></td>
<td><%all=jjgz*xishu+jiangjin+rs("money")+gz
all=all%><%=all%> </td>
</tr>
<tr>
<td colspan="6"><hr size="1" noshade></td>
</tr>
</table>
</form>
<%
if not rs.eof or not rs.bof then rs.movenext
count=count+1
loop
end if
rs.close
end if
%>
<p class="style1"></p>
<br>
<br>
<br>
<br>
</td>
</tr>
</table>
</div>
</BODY>
</HTML> <%
conn.close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -