announcelist.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="inc/Conn.asp"-->
<!--#include file="Inc/Cls.Common.asp"-->
<!--#include file="Inc/Cls.Templates.asp"-->
<%
  Dim i,n,CycList,CycTemp,TempList,List
  SitePath = ",<a href="&WR_Setting(3)&"AnnounceList.asp>公告列表</a>"
  SitePath = WRMPS.GetSitePath(0,SitePath)
  Page = WRMPS.CheckStr(Request("page"),1)
  Call DBConnBegin()
  Call WRMPS.FsoBegin()
  TempStr = WRTemp.SiteTemplates(1,0,34,0)
  Call WRMPS.FsoEnd()
  List = WRMPS.HCode(2,TempStr,"{\$AnnounceCycBegin}【","】")
  CycList = WRMPS.HCode(2,TempStr,"{\$AnnounceCycBegin}【"&List&"】","{\$AnnounceCycEnd}")
  
  Set Rs=server.createobject("adodb.recordset")
  Rs.Open "Select WM_ID,WM_Tit,WM_Content,WM_User,WM_Time From WM_Announce Where WM_Key=1 Order By WM_ID Desc", Conn, 1, 1
    TempList = "":CycTemp=""
    If Not Rs.EOF Then
       ListNum = Int(List)
       Rs.PageSize = ListNum
       If Page = "" Then Page = 1
       If Page < 1 Then Page = 1
       Rs.AbsolutePage = Page
       i = 0
       If Page = "" Then N = 0 Else N = ListNum * (Page - 1)
	   Do While Not Rs.EOF And i < ListNum
         N = N + 1
         CycTemp = WRMPS.GetReplace(CycList,"{$AnnounceID}",Rs(0)) 
         CycTemp = WRMPS.GetReplace(CycTemp,"{$AnnounceTitle}",Rs(1)) 
         CycTemp = WRMPS.GetReplace(CycTemp,"{$AnnounceContent}",Rs(2)) 
         CycTemp = WRMPS.GetReplace(CycTemp,"{$AnnounceTime}",Rs(4)) 
         CycTemp = WRMPS.GetReplace(CycTemp,"{$AnnounceAnthor}",Rs(3)) 
         TempList = TempList & CycTemp
       Rs.MoveNext
       i = i + 1
       Loop
       TempStr = WRMPS.GetReplace(TempStr,"{$NextPage}",WRMPS.GetPageList(URLParameter, ListNum, Rs.RecordCount, Page)) 
    End If
  Rs.Close
  Set Rs=Nothing
  TempStr = WRMPS.HCode(1,TempStr,"{\$AnnounceCycBegin}","{\$AnnounceCycEnd}") & TempList & WRMPS.HCode(3,TempStr,"{\$AnnounceCycBegin}","{\$AnnounceCycEnd}")
  TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceID}","") 
  TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceTitle}","") 
  TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceContent}","") 
  TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceTime}","") 
  TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceAnthor}","") 
  TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceCycBegin}","") 
  TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceCycEnd}","") 
  TempStr = WRMPS.GetReplace(TempStr,"{$NextPage}","") 
  TempStr = WRMPS.GetReplace(TempStr,"【$"&List&"】","") 
  TempStr = WRTemp.SiteLabel(TempStr)
  Call ClassEnd()
  Response.write TempStr
  Call DBConnEnd()
%>