📄 mb.asp
字号:
<!--#include file="conn.asp" -->
<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 valign="top"> <strong>月报表：</strong> (核算日期：每月第一天到最后一天)</td>
</tr>
<tr>
<td valign="top"><div align="right"><a href="hesuan.asp"><font color="#FF0000">
</font></a>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="17%"><font color="#000000">当前月份：<strong> <font color="#FF0000">
<%if request("month")="" then
response.Write(""&month(date())&"")
mon=month(date())
else
response.Write(""&request("month")&"")
mon=request("month")
end if%>
</font></strong></font></td>
<td width="65%"><font color="#000000">选择月份：
<% for i=1 to 12
%><a href=?month=<%=i%>&mid1=<%=request("mid1")%>&mid2=<%=request("mid2")%>&mid=<%=request("mid")%>><%=i%></a> <%next
i=i+1%>
</font></td>
<td width="18%"><div align="right"><a href="hesuan.asp"><font color="#FF0000">返回工资核算系统</font></a></div></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td valign="top">
<%set rs=server.createobject("adodb.recordset")
if request("mid")="" then
sql="select * from men order by mid asc"
else
sql="select * from men where mid like "&request("mid")&""
end if
if request("mid1")<>"" and request("mid2")<>"" then
sql="select * from men where mid>"&request("mid1")&" and mid<"&request("mid2")&""
end if
rs.open sql,conn,3,1
if rs.eof or rs.bof then
response.Write("没有发现员工记录。")
else
%><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> <a href="mb.asp?month=<%=mon%>&page=<%=page%>&mid1=<%=request("mid1")%>&mid2=<%=request("mid2")%>" target="_blank"><font color="#FF0000">打印预览</font></a></div></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td><b>工号：</b></td>
<td><b>姓名：</b></td>
<td><strong>基本工资</strong></td>
<td><strong>工龄工资</strong></td>
<td><strong>记件工资</strong></td>
<td><strong>奖金</strong></td>
<td><b>年份</b></td>
<td><b><%= mon %>月工资</b></td>
</tr>
<%do while not rs.eof %>
<tr bgcolor="#FFFFFF">
<td><b><%=rs("mid")%>：</b></td>
<td><a href=per.asp?mid=<%=rs("mid")%>&month=<%=mon%>><font color="#FF0000"><%=rs("name")%></font></a></td><%set rs2=server.createobject("adodb.recordset")
sql="select * from monthlu where 月份 like '"&mon&"' and 工号 like '"&rs("mid")&"' and 年份 like '"&year(date())&"'"
rs2.open sql,conn,3,1
%>
<td><%if rs2.eof or rs2.bof then
response.Write("没有")
else%><%=rs2("基本工资")%><%end if%></td>
<td><%if rs2.eof or rs2.bof then
response.Write("没有")
else%><%=rs2("工龄工资")%><%end if%></td>
<td><%if rs2.eof or rs2.bof then
response.Write("没有")
else%><a href=db.asp?mid=<%=rs("mid")%>&month=<%=mon%>><font color="#FF0000"><%=rs2("记件工资")%></font></a>X<%=rs2("合格系数")%><%end if%></td>
<td><%if rs2.eof or rs2.bof then
response.Write("没有")
else%><%=rs2("奖金")%><%end if%></td>
<td><%if rs2.eof or rs2.bof then
response.Write("没有")
else%><%=rs2("年份")%><%end if%></td>
<td><%if rs2.eof or rs2.bof then
response.Write("没有")
else%><%all=rs2("记件工资")*rs2("合格系数")+rs2("奖金")+rs2("工龄工资")+rs2("基本工资")%><%=all%><%end if%></td><%
rs2.close%>
</tr>
<%
if not rs.eof or not rs.bof then rs.movenext
loop
end if
rs.close
%>
</table></td>
</tr>
</table>
</div>
</BODY>
</HTML> <%
conn.close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -