📄 list.asp

📁 功能齐全的oa系统

💻 ASP

字号:

<% option explicit%>
<!-- #include virtual="include/DataEnvi.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,ObjRS
Dim IntPageCount,IntPageNo,IntPageSize
Dim C,ArrList,i,j,IntRows,IntCols
Dim IntID,ParentID,StrWhere,BoardID,BoardName

BoardName   = Request.QueryString ("BoardName")
BoardID     = Request.QueryString ("BoardID") 
StrWhere    = Request.QueryString("W")
IntPageNo   = Request.QueryString("PageNo")
IntPageSize = 16

Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB objDB

StrSQL = "Select ID,Title,TrueName,Hit,ReCount,CreateTime From v_OA_Public_BBS_TrueName where ParentID = 0 and BoardID="& BoardID  & StrWhere

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

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 class=Ltable cellspacing=1 cellpadding=3>
  <tr class=LHtr>
  <td width=1%><input type=checkbox name=ITEM id=0></td>
  <td width=20%>标题</td>
  <td width=20%>发表人</td>
  <td width=15%>点击次数</td>
  <td width=15%>回复次数</td>
  <td width=25%>创建时间</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>
<%
    For j = 1 To IntCols
%>
    <td><%=ArrList(j,i)%></td>
<%  
    Next
%>
    </tr>
<%
  Next
%>
  </table>
<%
  PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -