<% Set ClsPage = New Cls_Page If WRMPS.FsoIsTrue("Dir","Install") And WRMPS.FsoIsTrue("File","Install/install.wr.lock") = False Then Response.Write "
  • 請先運行 Install 以進行系統安裝過程
  • "&vbCrLf Response.Write "
  • 如果你已經反復運行此程序,但仍然出現此提示,請使用FTP工具手動刪除 Install 目錄
  • " Response.End End If Call DBConnBegin() Select Case Int(Briefness) Case 0 If Ucase(WR_Setting(15)) <> "ASP" Then Response.Redirect WRMPS.GetIndexUrl(MyCityID) Response.End End If TempStr = ClsPage.PageIndex(MyCityID) Case 1 TempStr = ClsPage.PageBriefnessIndex() End Select Set ClsPage = Nothing Call ClassEnd() Call DBConnEnd() Response.write TempStr %>我爱玩山西麻将app