%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<%
'****************************************************
' Software name:Kesion CMS 3.1
' Email: service@kesion.com . QQ:111394,9537636
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Dim KSCls
Set KSCls = New SiteIndex
KSCls.Execute()
Set KSCls = Nothing
Class SiteIndex
Private KSCMS, KSRFObj
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
Set KSRFObj = New Refresh
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Public Sub Execute()
Dim FileContent,FsoIndex:FsoIndex=KSCMS.GetConfig("FsoIndex")
IF Split(FsoIndex,".")(1)<>"asp" Then
Response.Redirect KSCMS.GetConfig("FsoIndex"):Exit Sub
Else
FileContent = KSRFObj.LoadTemplate(9999)
Application(KSCMS.SiteSN & "RefreshType") = "INDEX" '设置刷新类型,以便取得当前位置导航等
Application(KSCMS.SiteSN & "RefreshFolderID") = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
If Trim(FileContent) = "" Then FileContent = "首页模板不存在!"
FileContent=KSRFObj.KSLabelReplaceAll(FileContent)
End IF
Response.Write FileContent
End Sub
End Class
%>