📄 printtotalsalary.asp

📁 一个VB的p2p聊天系统
💻 ASP
字号:
<!--#include file="headfiles/Connection.inc"-->
<%
dim intYear,intMonth
intYear=request("y")
intMonth=request("m")
'response.Write(intYear&intMonth)
if intYear="" then
	intYear=year(date())
	intMonth=month(date())-1
end if
tablestring=""&intYear
if intMonth<10 then
	tablestring=tablestring&"0"
end if
tablestring=tablestring&intMonth
dim rsSalary,rsDepart
set rsSalary=server.CreateObject("adodb.recordset")
strSql="select * from "&tablestring&"SalaryView order by Employee_Depart1"
rsSalary.open strSql,conn,3,1
set rsDepart=server.CreateObject("adodb.recordset")
strSql="select * from "&tablestring&"DepartSalaryView order by Depart_ID"
rsDepart.open strSql,conn,3,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=intYear%>年<%=intMonth%>月工资统计表</title>
<link href="headfiles/text.css" rel="stylesheet" type="text/css">
</head>

<div align="center">
<body bottommargin="0" leftmargin="0" topmargin="0" rightmargin="0">
<table width="580" cellpadding="5" cellspacing="0" border="0">
	  <tr><td class="title6" align="center"><%=intYear%>年<%=intMonth%>月工资统计表</td></tr>
	  <tr><td align="right" class="title">制表日期：<%=date()%></td></tr>
<tr><td>
	<table width="100%" cellpadding="2" cellspacing="0" border="1">
	  <tr class="title2" align="center"><td>员工ID</td><td>姓名</td><td>部门</td><td>工资模板</td><td>模板工资</td><td>考勤扣款</td><td>实发</td></tr>
<%
	do while not rsDepart.eof
		do while not rsSalary.eof
			if rsSalary("Employee_Depart1")<>rsDepart("Depart_ID") then
				exit do
			else
%>
	  <tr class="title"><td><%=rsSalary("Employee_ID")%></td><td><%=rsSalary("Employee_Name")%></td><td><%=rsSalary("Depart_Name")%></td><td><%=rsSalary("Employee_SM")%></td><td><%=rsSalary("Employee_TotalS")%></td><td><%=rsSalary("Employee_ReduceS")%></td><td><%=rsSalary("Employee_LastS")%></td></tr>
<%
			end if
			rsSalary.movenext
		loop
%>
	  <tr class="title1" bgcolor="#eeeeee"><td colspan="4"><%=rsDepart("Depart_Name")%>  汇总：</td><td><%=rsDepart("Employee_TotalAll")%>&nbsp;</td><td><%=rsDepart("Employee_ReduceAll")%>&nbsp;</td><td><%=rsDepart("Employee_LastAll")%>&nbsp;</td></tr>
<%
		rsDepart.movenext
	loop
%>
	</table>
</td></tr>
	  <tr><td align="right" class="title">制表人：<%=session("hr_user_name")%></td></tr>
<tr><td align="right"><input type="button" id="btnPrint" name="btnPrint"  style="width:70px;height:25px" value="打 印" class="title1" onclick="window.print();"></td></tr>
</table>
</body>
</div></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -