<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<%
'******************************************************************
' Software name:KesionCMS X1.0
' 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 & "
"
end if
Next
End If
Maps=TreeStr
End Sub
Sub SubMapList(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
If Node.SelectSingleNode("@ks19").text>0 Then
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
%>
黄片一区二区在线免费观看哦-免费费一级特黄毛视频收-国产一级a爱做片免费观看AV-黄片毛片在线观看一级