📄 list_02.asp
字号:
<% option explicit%>
<%'需求列表%>
<!-- #include virtual="include/DataEnvi.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
if session("AccountID")="" then
%>
<script language=javascript>
alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%
Response.End
end if
IntAccountID = Session("AccountID")
IntPageNo = Request.QueryString("PageNo")
IntPageSize = 16
Dim IntAccountID
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
StrSQL="SELECT ExeID,ComName,DepName,JobName,Number,Reason,InTime,TrueName FROM v_Hrms_DepRequirement INNER JOIN OA.dbo.v_Hrms_DepRequirement_Flow ON dbo.v_Hrms_DepRequirement.ID = OA.dbo.v_Hrms_DepRequirement_Flow.ComMsgID WHERE ExeState = 1 AND IsCreator = 0 AND ExeIsDel = 0 AND ExecuteID = "& IntAccountID & " Order By ExeUpdateTime Desc"
else
StrSQL="SELECT ExeID,ComName,DepName,JobName,Number,Reason,InTime,TrueName FROM v_Hrms_DepRequirement INNER JOIN OA.dbo.v_Hrms_DepRequirement_Flow ON dbo.v_Hrms_DepRequirement.ID = OA.dbo.v_Hrms_DepRequirement_Flow.ComMsgID WHERE ReCreatorID='"&ComIDIsAll(ObjDB)&"' and ExeState = 1 AND IsCreator = 0 AND ExeIsDel = 0 AND ExecuteID = "& IntAccountID & " Order By ExeUpdateTime Desc"
end if
'if ars("isall")=1 then
'StrSQL="SELECT ExeID,ComName,DepName,JobName,Number,Reason,InTime,TrueName FROM v_Hrms_DepRequirement INNER JOIN OA.dbo.v_Hrms_DepRequirement_Flow ON dbo.v_Hrms_DepRequirement.ID = OA.dbo.v_Hrms_DepRequirement_Flow.ComMsgID INNER JOIN OA.dbo.t_OA_SYS_Account_Character ON OA.dbo.t_OA_SYS_Account_Character.AccountID = dbo.v_Hrms_DepRequirement.AppAccountID WHERE ExeState = 1 AND IsCreator = 0 AND ExeIsDel = 0 AND ExecuteID = "& IntAccountID & " Order By ExeUpdateTime Desc"
'else
'StrSQL="SELECT ExeID,ComName,DepName,JobName,Number,Reason,InTime,TrueName FROM v_Hrms_DepRequirement INNER JOIN OA.dbo.v_Hrms_DepRequirement_Flow ON dbo.v_Hrms_DepRequirement.ID = OA.dbo.v_Hrms_DepRequirement_Flow.ComMsgID INNER JOIN OA.dbo.t_OA_SYS_Account_Character ON OA.dbo.t_OA_SYS_Account_Character.AccountID = dbo.v_Hrms_DepRequirement.AppAccountID WHERE ReCreatorID='"&ComIDIsAll(ObjDB)&"' and ExeState = 1 AND IsCreator = 0 AND ExeIsDel = 0 AND ExecuteID = "& IntAccountID & " Order By ExeUpdateTime Desc"
'end if
ars.close
ObjDB.close
OpenDBH ObjDB
'ExeState,IsCreator,ExeIsDel,ExecuteID,ExeUpdateTime 在视图中实际都是OA库中表t_OA_Work_ComMessage_Record_Des中的字段
'StrSQL = "SELECT ExeID,Title,TrueName,ExeUpdateTime,Attachs FROM V_OA_Work_Commessage "
'StrSQL = StrSQL & " WHERE ExeState = 1 AND IsCreator = 0 AND ExeIsDel = 0 AND ExecuteID = "
'StrSQL = StrSQL & IntAccountID & " Order By ExeUpdateTime Desc"
'------------------------------------------------------------------------------------------------
'StrSQL="SELECT ExeID,ComName,DepName,JobName,Number,Reason,InTime FROM v_Hrms_DepRequirement INNER JOIN OA.dbo.v_Hrms_DepRequirement_Flow ON dbo.v_Hrms_DepRequirement.ID = OA.dbo.v_Hrms_DepRequirement_Flow.ComMsgID WHERE ExeState = 1 AND IsCreator = 0 AND ExeIsDel = 0 AND ExecuteID = "& IntAccountID & " Order By ExeUpdateTime Desc"
'------------------------------------------------------------------------------------------------
Set ObjRS = objDB.Execute(StrSQL)
If ObjRS.EOF Then
Response.Write "<body background='../../../images/bg.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)
IntPageCount = C.GetPageCount()
IntRows = C.GetRows()
IntCols = C.GetCols()
Sub Main
%>
<table width="100%" cellpadding=3 cellspacing=1 class=Ltable>
<tr class=LHtr>
<td width=3% align="center"> <input type=checkbox id=0 name=ITEM> </td>
<td width=11% align="left" >公司</td>
<td width=15% align="left">部门</td>
<td width=20% align="left">岗位</td>
<td width=8% align="left">人数</td>
<td width=13% align="left">申请理由</td>
<td width=16% align="left">希望到岗时间</td>
<td width=14% 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><%=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>
</tr>
<%
Next
%>
</table>
<%
PageFooter IntPageCount,"PageNo"
%>
<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td align=left></td><td align=right>
<input type=button class=button value="查看选中的部门需求" onclick="parent.frmToolbar.doView()" id=button1 name=button1>
</td></tr></table>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -