index.asp

来自「个人网站比较简短」· ASP 代码 · 共 40 行

<!--#include file="Start.asp"-->
<!--#include file="Include/PowerEasy.Cache.asp"-->
<!--#include file="Include/PowerEasy.Channel.asp"-->
<!--#include file="Include/PowerEasy.Class.asp"-->
<!--#include file="Include/PowerEasy.Special.asp"-->
<!--#include file="Include/PowerEasy.Article.asp"-->
<!--#include file="Include/PowerEasy.Soft.asp"-->
<!--#include file="Include/PowerEasy.Photo.asp"-->
<!--#include file="Include/PowerEasy.Product.asp"-->
<!--#include file="Include/PowerEasy.SiteIndex.asp"-->
<!--#include file="Include/PowerEasy.Common.Front.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

ChannelID = 0
If fso.FileExists(Server.mappath("NotInsalled.txt")) Then
    Response.Write "<li>请先运行 <a href='Install.asp'>Install.asp</a> 以进行系统安装过程！</li><br/><br/>"
    Response.Write "<li>如果你已经反复运行此程序，但仍然出现此提示，请使用FTP工具手动删除 NotInstalled.txt 文件。</li>"
    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
%>