📄 transfer_rec.asp
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 6000200 '本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID) then '验证权限
Server.Transfer "../err/un_authorized.htm"
response.end
end if
%>
<!--**************身份验证部分****************-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" type="text/css" href="../style.css">
</head>
<body>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tr>
<td><a href="transfer.asp" target="foot">进行工作移交</a></td>
<td></td>
</tr>
</table>
<hr size=1>
<table bgcolor="#FFFFFF" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr bgcolor="#EFEFEF">
<td>移交日期</td>
<td>移交人</td>
<td>接交人</td>
<td>监交人</td>
<td>移交原因</td>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs_sub = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select * from Employee_Transfer_Rec order by Rec_ID DESC"
'response.write sql
rs.open sql,conn,1
if rs.eof then
response.write "<tr><td colspan=18>暂时没有记录</td></tr></table>"
response.end
end if
PageSize = request.Cookies("PageSize")
if not IsNot(PageSize,"n") then PageSize = DefaultPageSize
rs.pagesize = PageSize
PageCount = rs.PageCount
PageNo = request("PageNo")
if PageNo = "" or CInt(PageNo) < 1 then PageNo = 1
if CInt(PageNo) > PageCount then PageNo = PageCount
rs.absolutepage = PageNo
i = 0
while not rs.eof and i < rs.pagesize
f_Rec_ID = rs("Rec_ID")
f_Rec_Date = rs("Rec_Date")
f_From_Employee_ID = rs("From_Employee_ID")
f_To_Employee_ID = rs("To_Employee_ID")
f_Check_Employee_ID = rs("Check_Employee_ID")
f_Transfer_Reason = rs("Transfer_Reason")
'移交人
sql_sub = "select Employee_Name from Employee where Employee_ID = " & f_From_Employee_ID
set rs_sub = conn.execute(sql_sub)
if not rs_sub.eof then From_Employee_Name = rs_sub("Employee_Name")
'接交人
sql_sub = "select Employee_Name from Employee where Employee_ID = " & f_To_Employee_ID
set rs_sub = conn.execute(sql_sub)
if not rs_sub.eof then To_Employee_Name = rs_sub("Employee_Name")
'监交人
sql_sub = "select Employee_Name from Employee where Employee_ID = " & f_Check_Employee_ID
set rs_sub = conn.execute(sql_sub)
if not rs_sub.eof then Check_Employee_Name = rs_sub("Employee_Name")
if i mod 2 = 0 then
response.write "<tr>"
else
response.write "<tr bgcolor=#EFEFEF>"
end if
%>
<td><%= FormatDate(f_Rec_Date,1) %> </td>
<td><a href="../employee/detail.asp?Employee_ID=<%= f_From_Employee_ID %>" target="foot"><%= From_Employee_Name %></a> </td>
<td><a href="../employee/detail.asp?Employee_ID=<%= f_To_Employee_ID %>" target="foot"><%= To_Employee_Name %></a> </td>
<td><a href="../employee/detail.asp?Employee_ID=<%= f_Check_Employee_ID %>" target="foot"><%= Check_Employee_Name %></a> </td>
<td><%= f_Transfer_Reason %></td>
</tr>
<%
i = i + 1
rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<tr bgcolor="#EFEFEF">
<td colspan="12">
<a href="transfer_rec.asp?PageNo=1"><font face="Webdings">5</font>第一页</a>
<a href="transfer_rec.asp?PageNo=<%= PageNo -1 %>"><font face="Webdings">3</font>上一页</a>
<a href="transfer_rec.asp?PageNo=<%= PageNo + 1 %>"><font face="Webdings">4</font>下一页</a>
<a href="transfer_rec.asp?PageNo=<%= PageCount %>"><font face="Webdings">6</font>最后一页</a>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -