📄 list.asp
字号:
<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Function.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
Dim ObjDB,StrSQL
Dim IntPageCount,IntPageNo,IntPageSize,StrWhere
Dim C,ArrList,i,j,IntRows,IntCols
Dim IntParentID
IntPageNo = Request.QueryString("PageNo")
StrWhere = Request.QueryString("W")
IntPageSize = 12
If StrWhere = "" Then
StrSQL = "Select ID,FileName,BelongTo,Createtime,ExtName From t_OA_EI_DataUP Where IsValid=1 "
Else
StrSQL = "Select ID,FileName,BelongTo,Createtime,ExtName From t_OA_EI_DataUP Where IsValid=1 " & StrWhere
End If
Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)
ArrList = C.List(IntPageNo,0,StrSQL) '使用List()函数获得列表数组
IntPageCount = C.GetPageCount() '使用GetPageCount()函数获得总页码
IntRows = C.GetRows() '使用GetRows()获得总返回的行数
IntCols = C.GetCols() '使用GetCols()获得总返回的列数
ObjDB.Close
Set ObjDB = Nothing
Dim PicURL(3)
PicURL(0) = "../../../images/oa/private/data/0.gif"
PicURL(1) = "../../../images/oa/private/data/1.gif"
PicURL(2) = "../../../images/oa/private/data/2.gif"
PicURL(3) = "../../../images/oa/private/data/3.gif"
%>
<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>
<body bgcolor="#DBF4F7">
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr>
<td width=2%><input type=checkbox id=0 name=ITEM></td>
<td width=30%>文件名称</td>
<td width=30%>所属科室</td>
<td width=30%>创建时间</td>
<%
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><%=ArrList(1,i)%></td>
<td><%=GetDepName(ArrList(2,i))%></td>
<td><%=ArrList(3,i)%></td>
</tr>
<%
Next
%>
</table>
</body>
<%
End Sub
%>
<!-- #include file="templet.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -