📄 queryemployeesalary.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"
if session("hr_user_power")=3 then
strSql=strSql&" where Employee_ID="&session("hr_user_id")
end if
rsSalary.open strSql,conn,3,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="headfiles/text.css" rel="stylesheet" type="text/css">
</head>
<body bottommargin="0" leftmargin="0" topmargin="0" rightmargin="0" background="images/bg.gif">
<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 rsSalary.eof
%>
<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>
<%
rsSalary.movenext
loop
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -