⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 list0.asp

📁 功能齐全的oa系统
💻 ASP
字号:
🔍 
<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/datefunction.asp" -->
<!-- #include virtual="include/Roles.asp" -->
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"

Dim ObjDB,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

Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB
dim ars
Set ars = ObjDB.Execute("select t_OA_Sub_SubRoles.isall from t_OA_Sub_SubRoles,t_OA_SYS_Account where t_OA_Sub_SubRoles.SubRoleID=t_OA_SYS_Account.SubRoles and t_OA_SYS_Account.ID="&Session("AccountID"))
	if ars("isall")=1 then
		If StrWhere = "" Then
		StrSQL = "Select Id,Name,Dates,Form,CandiNum,ComName,DepName,StationName,CreateTime From v_Hrms_PersonSave Order by Id desc"
		else
		StrSQL = "Select Id,Name,Dates,Form,CandiNum,ComName,DepName,StationName,CreateTime From v_Hrms_PersonSave Where 1=1 " & StrWhere & " Order by ID desc"
		end if
	else 
		If StrWhere = "" Then
		StrSQL = "Select Id,Name,Dates,Form,CandiNum,ComName,DepName,StationName,CreateTime From v_Hrms_PersonSave Where CreatorID='"&ComIDIsAll(ObjDB)&"' Order by Id desc"
		else
		StrSQL = "Select Id,Name,Dates,Form,CandiNum,ComName,DepName,StationName,CreateTime From v_Hrms_PersonSave Where CreatorID='"&ComIDIsAll(ObjDB)&"' and 1=1 " & StrWhere & " Order by ID desc"
		end if
	end if
	ars.close
	ObjDB.close

OpenDBH ObjDB

Set ObjRS = ObjDB.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(ObjDB)
ArrList = C.List(IntPageNo,IntPageSize,StrSQL)	'使用List()函数获得列表数组
IntPageCount = C.GetPageCount()					        '使用GetPageCount()函数获得总页码
IntRows = C.GetRows()							              '使用GetRows()获得总返回的行数
IntCols = C.GetCols()							              '使用GetCols()获得总返回的列数

ObjDB.Close
Set ObjDB = Nothing

Sub Main
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
%>
	
<table class=Ltable cellspacing=1 cellpadding=3>
  <tr class=LHtr> 
    <td align="center"> 
      <input type=checkbox id=0 name=ITEM> </td>
    <td align="left">&nbsp;</td>
    <td align="left" >主考人</td>
    <td align="left" >面试日期</td>
    <td align="left" >面试形式</td>
    <td align="left" >面试人数</td>
    <td align="left">应聘公司</td>
    <td align="left">应聘部门</td>
    <td align="left">应聘岗位</td>
    <td align="left">入库时间</td>
  </tr>
  <%
	For i = 0 To IntRows
%>
  <tr class=Ltr name=ITEMTR id=<%=ArrList(0,i)%>> 
    <td align="center"> 
      <input type=checkbox name=ITEM  id=<%=ArrList(0,i)%>></td>
    <td align="left"> <img src="../../../Images/OA/Private/Data/2.gif" width="16" height="16"> 
    </td>
    <td align=left><%=ArrList(1,i)%></td>
    <td align=left><%=ArrList(2,i)%></td>
    <td align=left><%=ArrList(3,i)%></td>
    <td align=left><%=ArrList(4,i)%></td>
    <td align="left"><%=ArrList(5,i)%></td>
    <td align="left"><%=ArrList(6,i)%></td>
    <td align="left"><%=ArrList(7,i)%></td>
    <td align="left"><%=ArrList(8,i)%></td>
  </tr>
  <%
	Next		
%>
</table>
<%
	PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->

⌨️ 快捷键说明

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