<% Dim ID ID = WRMPS.CheckStr(Request("ID"),1) If ID = "" Then Call WRMPS.ErrView("","","
  • 操作錯誤,本窗口將在 5 秒鐘后自動關閉。",0) SitePath = ",閱讀公告" SitePath = WRMPS.GetSitePath(-1,SitePath) Call DBConnBegin() Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open "Select WM_ID,WM_Tit,WM_Content,WM_User,WM_Time,WM_TempID From WM_Announce Where WM_Key=1 and WM_ID="&ID ,Conn,1,1 If Rs.Eof Then Call WRMPS.ErrView("","","
  • 公告不存在,本窗口將在 5 秒鐘后自動關閉。",0) Else Call WRMPS.FsoBegin() TempStr = WRTemp.SiteTemplates(1,Rs(5),12,0) Call WRMPS.FsoEnd() TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceID}",Rs(0)) TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceTitle}",Rs(1)) TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceContent}",Rs(2)) TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceTime}",Rs(4)) TempStr = WRMPS.GetReplace(TempStr,"{$AnnounceAnthor}",Rs(3)) End If Rs.Close Set Rs = Nothing TempStr = WRTemp.SiteLabel(TempStr) Call ClassEnd() Response.write TempStr Call DBConnEnd() %>我爱玩山西麻将app