📄 list.asp
字号:
<%option explicit%>
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<!-- #include virtual="include/dataenvi.asp" -->
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/datefunction.asp" -->
<%
Dim ObjDB,StrSQL,ObjRS
Dim IntPageCount,IntPageNo,IntPageSize
Dim C,ArrList,i,j,IntRows,IntCols
Dim IntParentID
Dim Msql,ObjRSM,SubRole,ObjDBH
if session("AccountID")="" then
%>
<script language=javascript>
alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%
Response.End
end if
IntPageNo = Request.QueryString("PageNo")
IntPageSize = 16
IntParentID = Request.QueryString("ParentID")
Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDBH ObjDB
Set ObjDBH = Server.CreateObject("Adodb.Connection")
OpenDB ObjDBH
SubRole=0
Msql="select SubRoles from t_OA_SYS_Account where ID="&session("AccountID")
SET ObjRSM=ObjDBH.EXECUTE(Msql)
if not ObjRSM.eof then
if left(ObjRSM("SubRoles"),1)="2" then
SubRole="2"
end if
end if
If Request.QueryString("W")<>"" Then
if SubRole="2" then
StrSQL = "Select ID,FirstMenuID,SecondMenuID,Operation,OpeTime From T_Hrms_Viewlog where 1=1 " & Request.QueryString("W")&" and Convert(char(10),OpeTime,20) like '%"&FormatDateM(date())&"%' order by OpeTime desc"
else
StrSQL = "Select ID,FirstMenuID,SecondMenuID,Operation,OpeTime From T_Hrms_Viewlog where 1=1 " & Request.QueryString("W")&" and Convert(char(10),OpeTime,20) like '%"&FormatDateM(date())&"%' and OpePeople='"&session("AccountID")&"' order by OpeTime desc"
end if
ELSE
if SubRole="2" then
StrSQL = "Select ID,FirstMenuID,SecondMenuID,Operation,OpeTime From T_Hrms_Viewlog where Convert(char(10),OpeTime,20) like '%"&FormatDateM(date())&"%' order by OpeTime desc"
else
StrSQL = "Select ID,FirstMenuID,SecondMenuID,Operation,OpeTime From T_Hrms_Viewlog where Convert(char(10),OpeTime,20) like '%"&FormatDateM(date())&"%' and OpePeople='"&session("AccountID")&"' order by OpeTime desc"
end if
END IF
'
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>"
Response.End
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
%>
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr>
<td width=2%>
<input type=checkbox id=0 name=ITEM>
</td>
<td width=2%></td>
<td width=24%>一级菜单</td>
<td width=24%>二级菜单</td>
<td width=10%>操作</td>
<td width=27%>时间</td>
</tr>
<%
For i = 0 To IntRows
%>
<tr class=Ltr name=ITEMTR id=<%=ArrList(0,i)%>>
<td><input type=checkbox name=ITEM id=<%=ArrList(0,i)%>></td>
<td><img src="../../../Images/OA/Private/Data/2.gif" width="16" height="16"></td>
<td><%=ArrList(1,i)%></td>
<td><%=ArrList(2,i)%></td>
<td><%=ArrList(3,i)%></td>
<td><%=FormatDate(ArrList(4,i))%></td>
</tr>
<%
Next
%>
</table>
<%
PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="../../SysInfo/Business/Templet.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -