<% Dim i,n,CycList,CycTemp,TempList,List SitePath = ",公告列表" SitePath = WRMPS.GetSitePath(-1,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() %>我爱玩山西麻将app