asp代码没有写错,为什么预览的时候还会出错?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%option explicit%>
<!--#include file="Conn.asp"-->
<!--#include file="KS_Cls/Kesion.PublicCls.asp"-->
<!--#include file="KS_Cls/Kesion.Label.CommonCls.asp"-->
<%
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 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 Sub
End Class
%>
大家看看我哪里写错了
补充:IIS我已经装了