index.asp

来自「网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。」· ASP 代码 · 共 27 行

<!--#include file="inc/Conn.asp"-->
<!--#include file="Inc/Cls.Common.asp"-->
<!--#include file="Inc/Cls.Templates.asp"-->
<!--#include file="Inc/Cls.Content.asp"-->
<%	
Set ClsPage = New Cls_Page
If WRMPS.FsoIsTrue("Dir","Install") Then
      Response.Write "<li>请先运行 <a href='Install'>Install</a> 以进行系统安装过程！</li><br/><br/>"&vbCrLf
      Response.Write "<li>如果你已经反复运行此程序，但仍然出现此提示，请使用FTP工具手动删除 Install 目录。</li>"
      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
%>