%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005-2009 佛山市动易网络科技有限公司 版权所有
'**************************************************************
ChannelID = 0
If fso.FileExists(Server.mappath("NotInsalled.txt")) Then
Response.Write "
请先运行 Install.asp 以进行系统安装过程!
"
Response.Write "如果你已经反复运行此程序,但仍然出现此提示,请使用FTP工具手动删除 NotInstalled.txt 文件。"
Response.End
End If
If FileName_SiteIndex <> "Index.asp" Then
Call CloseConn
Response.Redirect FileName_SiteIndex
Else
If CurrentPage > 1 Or PE_Cache.CacheIsEmpty("Site_Index") Then
Call GetHTML_SiteIndex
If CurrentPage = 1 Then PE_Cache.SetValue "Site_Index", strHtml
Else
strHtml = PE_Cache.GetValue("Site_Index")
End If
Response.Write strHtml
End If
Call CloseConn
%>