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

📄 list.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" -->
<%
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 IntParentID

IntPageNo = Request.QueryString("PageNo")
IntPageSize = 16
IntParentID = Request.QueryString("ParentID")

If IntParentID = "" Then IntParentID = 0
  
StrSQL = "Select ID,NodeType,SourceTypeName,SourceName,Createtime From t_OA_Work_Source Where ParentID = " & FixSQL(IntParentID) & " Order By NodeType"
Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB
Set C = Server.CreateObject ("CMS2003.DBhandle")

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>"
  'Response.End
End If

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
%>
  <table class=Ltable cellspacing=1 cellpadding=3>
  <tr class=LHtr>
    <td width=1%><input type=checkbox id=0 name=ITEM></td>
    <td width=1%></td>
    <td width=83%>名称</td>
    <td width=15%>日期</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><img src="<%=PicURL(ArrList(1,i))%>"></td>
    <td><%=ArrList(ArrList(1,i)+2,i)%></td>
    <td><%=FormatDate(ArrList(4,i))%></td>
  </tr>
<%
  Next    
%>
  </table>
<%
  PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->

⌨️ 快捷键说明

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