📄 list.asp

📁 功能齐全的oa系统

💻 ASP

字号:

<% option explicit%>
<!-- #include virtual="include/DataEnvi.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,BoardID

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

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

Set C = Server.CreateObject("CMS2003.DBHandle")
C.Init(ObjDB)
StrSQL=" Select ID,Title,KeyWord,TrueName,CreateTime from V_OA_Public_Notice_TrueName Order By ID Desc"
If Request.QueryString("W")<>"" Then
  StrSQL=" Select ID,Title,KeyWord,TrueName,CreateTime from V_OA_Public_Notice_TrueName Where 1=1 " & Request.QueryString("w") & " Order By ID Desc"
End If

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

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=1%></td>
      <td width=53%>公告名称</td>
      <td width=15%>发布人</td>
      <td width=15%>日期</td>
    </tr>
<%
  For i = 0 To IntRows
%>
    <tr class=Ltr id=<%=ArrList(0,i)%> name=ITEMTR>
      <td><input type = checkbox name= ITEM id=<%=ArrList(0,i)%>></td>
      <td><img src='../../../images/oa/public/notice/icon.gif'></td>
      <td><%=ArrList(1,i)%></td>
      <td><%=ArrList(3,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 + -