📄 testate_list.asp
字号:
<%
'OA 表单生成器1.0
'功能：档案基本信息列表
'参数：request("page")=int #当前页码; request.form("Search")=chr #上次查询条件
%>
<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'response.buffer=false
'------------------------------------------------设置参数
LoginID=trim(Session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
'------------------------------------------------取上岗证情况记录
table="tbioaHrmTestate" '表名
set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from (SELECT TbioaHrmTestate.*, nsqx, CASE WHEN nsrq IS NULL THEN DATEADD(yy, nsqx, fzrq) ELSE DATEADD(yy, nsqx, nsrq) END AS dqr "_
&"FROM TbioaHrmTestate INNER JOIN TbioaHrmTestateSort ON TbioaHrmTestate.zszl = TbioaHrmTestateSort.name) table1 inner join tbioaHrmBase on table1.bid=tbioaHrmBase.id where tbioaHrmBase.mod>=0 and dqr<DATEADD(mm, 3, getdate()) order by dqr"
rs.open sql,oConn,1,1
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
</head>
<body topmargin="10" leftmargin="10">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<p align="left"><img border="0" src="../images/icon_title.gif" align="left">上岗证年审提醒：(最近三个月要到期或已到期的上岗证)</p>
</td>
<td width="85" nowrap class=noprint>
<object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" > </object>
<img src="../images/PageSetup.gif" align="absMiddle"> <a href="#" onClick="document.all.WebBrowser.ExecWB(8,1);return false">
页面设置</a>
</td>
<td width="85" nowrap class=noprint>
<img src="../images/print.gif" align="absMiddle"> <a href="#" onClick="document.all.WebBrowser.ExecWB(7,1);return false">
打印预览</a>
</td>
</tr>
</table>
<%if rs.eof then%>
<center>暂无相关信息！</center>
<%else%>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td class="tdTop3" nowrap>员工姓名</td>
<td class="tdTop3" nowrap>证书编号</td>
<td class="tdTop3" nowrap>证书种类</td>
<td class="tdTop3" nowrap>发证日期</td>
<td class="tdTop3" nowrap>最近年申日期</td>
<td class="tdTop3" nowrap>年申期限</td>
<td class="tdTop3" nowrap>到期日</td>
</tr>
<%for i = 0 to rs.RecordCount-1
If rs.EOF Then Exit For
if i mod 2 = 0 then td_class="td1" else td_class="td2"
%>
<tr>
<td class="<%=td_class%>"><a href="../HrmBase/HrmTestate_list.asp?bid=<%=rs("bid")%>" target="_blank"><%=HtmlOut(GetTableValue("tbioaHrmBase","xm","id",rs("bid")))%></a></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("number"))%></td>
<td class="<%=td_class%>"><%=HtmlOut(rs("zszl"))%></td>
<td class="<%=td_class%>"><%=rs("fzrq")%></td>
<td class="<%=td_class%>"><%=rs("nsrq")%></td>
<td class="<%=td_class%>"><%=rs("nsqx")%>(年)</td>
<td class="<%=td_class%>"><%=rs("dqr")%></td>
</tr>
<%
rs.MoveNext
next
%>
</table>
<%end if%>
</body>
</html>
<%'释放对象变量
rs.close
oConn.close
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -