📄 list0.asp
字号:
<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/datefunction.asp" -->
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
Dim ObjDBH,StrSQL,ObjRS
Dim IntPageCount,IntPageNo,IntPageSize
Dim C,ArrList,i,j,IntRows,IntCols
Dim StrWhere
IntPageNo = Request.QueryString("PageNo")
StrWhere = Request.QueryString("W")
IntPageSize = 16
If StrWhere = "" Then
StrSQL = "Select Id,Name,Result,EducationStyle,GraduateSchool,Speciality,Attachs From t_Hrms_JobApplication_Interview Order by Id desc"
else
StrSQL = "Select Id,Name,Result,EducationStyle,GraduateSchool,Speciality,Attachs From t_Hrms_JobApplication_Interview Where 1=1 " & StrWhere & " Order by ID desc"
end if
Set ObjDBH = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDBH
Set ObjRS = ObjDBH.Execute(StrSQL)
If ObjRS.EOF Then
Response.Write "<body background='../../../images/bg_1.gif'><table border=0 height='100%' width='100%'><tr><td valign=middle align=center>目前没有您所需要的人才储备的记录！！<td></tr></table></body>"
End if
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDBH)
ArrList = C.List(IntPageNo,IntPageSize,StrSQL) '使用List()函数获得列表数组
IntPageCount = C.GetPageCount() '使用GetPageCount()函数获得总页码
IntRows = C.GetRows() '使用GetRows()获得总返回的行数
IntCols = C.GetCols() '使用GetCols()获得总返回的列数
ObjDBH.Close
Set ObjDBH = Nothing
Sub Main
Set ObjDBH = Server.CreateObject("Adodb.Connection")
OpenDBH ObjDBH
%>
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr>
<td width=5% align="center">
<input type=checkbox id=0 name=ITEM></td>
<td width=6% align="left"> </td>
<td width=15% align="left" >姓名</td>
<td width=15% align="left" >人才状态</td>
<td width=19% align="left">教育类型</td>
<td width=20% align="left">最终毕业学校</td>
<td width=20% align="left">所学专业</td>
</tr>
<%
For i = 0 To IntRows
%>
<tr class=Ltr name=ITEMTR id=<%=ArrList(0,i)%>>
<td width="5%" align="center">
<input type=checkbox name=ITEM id=<%=ArrList(0,i)%>></td>
<td width="6%" align="left"> <img src="../../../Images/OA/Private/Data/2.gif" width="16" height="16">
<%
If ArrList(6,i)<>"" Then
%>
<img src='../../../images/oa/work/commessage/att.gif'>
<%
End If
%>
</td>
<td width="15%" align=left><%=ArrList(1,i)%></td>
<td width="15%" align=left>
<%dim num
num=ArrList(2,i)
if num= 0 then %>
录用
<%else if num= 1 then %>
暂不录用
<%else%>
不录用
<%end if%>
<%end if%>
</td>
<td width="19%" align="left"><%=ArrList(3,i)%></td>
<td width="20%" align="left"><%=ArrList(4,i)%></td>
<td width="20%" align="left"><%=ArrList(5,i)%></td>
</tr>
<%
Next
%>
</table>
<%
PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -