📄 list.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,UserName,FilesIn,Assure,InState,DutyClass,InTime From v_Hrms_Employees_UsersRemark Order by Id desc"
else
StrSQL = "Select Id,UserName,FilesIn,Assure,InState,DutyClass,InTime From v_Hrms_Employees_UsersRemark Where 1=1 " & StrWhere & " Order by ID desc"
end if
else
If StrWhere = "" Then
StrSQL = "Select Id,UserName,FilesIn,Assure,InState,DutyClass,InTime From v_Hrms_Employees_UsersRemark Where CreatorID='"&ComIDIsAll(ObjDB)&"' Order by Id desc"
else
StrSQL = "Select Id,UserName,FilesIn,Assure,InState,DutyClass,InTime From v_Hrms_Employees_UsersRemark 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")
OpenDBH ObjDB
%>
<table width="100%" border="0" cellpadding=1 cellspacing=1 class=Ltable>
<tr class=LHtr>
<td width=5% align="center"> <input type=checkbox id=0 name=ITEM></td>
<td width=11% >姓名</td>
<td width=16%>档案</td>
<td width=14%>担保</td>
<td width=16%>在职状态</td>
<td width=19%>职务级别</td>
<td width="19%">入职时间</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="11%" align=left><%=ArrList(1,i)%></td>
<%
dim Files
if ArrList(2,i)=1 then
Files="档案在公司"
else if ArrList(2,i)=0 then
Files="档案不在公司"
else
Files="无内容"
end if
end if
%>
<td width="16%"><%=Files%></td>
<%
dim Assure
if ArrList(3,i)=1 then
Assure="有担保书"
else if ArrList(3,i)=0 then
Assure="无担保书"
else
Assure="无内容"
end if
end if
%>
<td width="14%"><%=Assure%></td>
<%
dim DutyClass,InState
if ArrList(5,i)= 1 then
DutyClass="普通职务"
else if ArrList(5,i)=2 then
DutyClass="一级职务"
else if ArrList(5,i)=3 then
DutyClass="二级职务"
else
DutyClass="无职务内容"
end if
end if
end if
if ArrList(4,i)= 1 then
InState="试用在职"
end if
if ArrList(4,i)= 2 then
InState="正式在职"
end if
if ArrList(4,i)= 3 then
InState="正常离职"
end if
if ArrList(4,i)= 4 then
InState="辞职"
end if
if ArrList(4,i)= 5 then
InState="辞退"
end if
if ArrList(4,i)= 6 then
InState="除名"
end if
if ArrList(4,i)= 7 then
InState="开除"
end if
%>
<td width="16%"><%=InState%></td>
<td><%=DutyClass%></td>
<td><%=ArrList(6,i)%></td>
</tr>
<%
Next
%>
</table>
<%
PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -