<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<%
'****************************************************
' Software name:Kesion CMS 9.5
' Email: service@kesion.com . 营销QQ:4000080263 Tel:400-008-0263
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************
Dim KSCls
Set KSCls = New SiteMaps
KSCls.Kesion()
Set KSCls = Nothing
Class SiteMaps
Private KS, KSR,Maps,ClassXml,TreeStr
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 FileContent
Dim MapTemplatePath:MapTemplatePath=KS.Setting(3) & KS.Setting(90) & "common/map.html" '模板地址
FileContent = KSR.LoadTemplate(MapTemplatePath)
FCls.RefreshType = "map" '设置刷新类型，以便取得当前位置导航等
FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
Call MapList()
FileContent=Replace(FileContent,"{$ShowMap}",Maps)
FileContent=KSR.KSLabelReplaceAll(FileContent)
response.write FileContent
End Sub
Sub MapList()
Call KS.LoadClassConfig()
Dim Node,TJ,SpaceStr,k
Set ClassXML=Application(KS.SiteSN&"_class")
If IsOBject(ClassXml) Then
For Each Node In ClassXML.DocumentElement.SelectNodes("class[@ks26=1][@ks10=1]")
if ks.chkclng(ks.c_s(Node.SelectSingleNode("@ks12").text,21))=1 then
TJ=Node.SelectSingleNode("@ks10").text
TreeStr = TreeStr & ""&vbcrlf & "
" & KS.GetClassNP(Node.SelectSingleNode("@ks0").text) &"
" &vbcrlf
Call SubMapList(Node.SelectSingleNode("@ks0").text)
TreeStr=TreeStr & "
" & vbcrlf & " " & KS.GetClassNP(Node.SelectSingleNode("@ks0").text) & "："
Call SubMapList2(Node.SelectSingleNode("@ks0").text)
TreeStr = TreeStr & "
"&vbcrlf
Else
TreeStr = TreeStr & "" & KS.GetClassNP(Node.SelectSingleNode("@ks0").text) & ""
End If
end if
Next
End If
End Sub
Sub SubMapList2(TN)
Dim Node,K,TJ,SpaceStr
If IsOBject(ClassXml) Then
For Each Node In ClassXML.DocumentElement.SelectNodes("class[@ks26=1][@ks13='" & TN &"']")
if ks.chkclng(ks.c_s(Node.SelectSingleNode("@ks12").text,21))=1 then
TreeStr = TreeStr & "" & KS.GetClassNP(Node.SelectSingleNode("@ks0").text) & ""
end if
Next
End If
End Sub
End Class
%>