<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<!--#include file="Conn.asp"-->
<!--#include file="KS_Cls/Kesion.
<!--#include file="KS_Cls/Kesion.StaticCls.asp"-->
<%
'****************************************************
' Software name:Kesion CMS 5.5
' Email: service@ . QQ:111394,9537636
' Web: http://www. http://www.
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Dim KSCls
Set KSCls = New SiteIndex
KSCls.Kesion()
Set KSCls = Nothing

Class SiteIndex
        Private KS, KSR
        Private Sub Class_Initialize()
         If (Not Response.IsClientConnected)Then
            Response.Clear
            Response.End
         End If
          Set KS=New PublicCls
          Set KSR = New Refresh
        End Sub
        Private Sub Class_Terminate()
         Call CloseConn()
         Set KS=Nothing
        End Sub
        Public Sub Kesion()
           Dim QueryStrings:QueryStrings=Request.ServerVariables("QUERY_STRING")
           If QueryStrings<>"" And Ubound(Split(QueryStrings,"-"))>=1 Then
             Call StaticCls.Run()
           Else
              Dim Template,FsoIndex:FsoIndex=KS.Setting(5)
              IF Split(FsoIndex,".")(1)<>"asp" Then
                  Response.Redirect KS.Setting(5):Exit Sub
              Else
                       Template = KSR.LoadTemplate(KS.Setting(110))
                       FCls.RefreshType = "INDEX" '设置刷新类型，以便取得当前位置导航等
                       FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
                       Template=KSR.KSLabelReplaceAll(Template)
             End IF
             Response.Write Template  
          End If
          Set StaticCls=Nothing
        End Sub
End Class
%>
提示如下：
Script error detected at line 0.
Source line: Response.Write "锘?
Description: Unterminated string constant