<!--#include file="setting/conn.asp"--><%:cid=0:Select Case SoonBiz.ract:Case "" : showmap:End Select:htmlstr=SoonBiz.replaceallflag(htmlstr):htmlstr=SoonBiz.HuiQiaoHtml(htmlstr):SoonBiz.endhtml:setallnothing:Sub showmap():Dim shujun:Dim jintong(1,0):jintong(0,0)="网站地图" : jintong(1,0)="#":navstate=SoonBiz.Getnavstate(jintong):htmlstr=SoonBiz.Tp(cid,pn,"index"):htmlstr=Replace(htmlstr,"{$trhtml}",map):End Sub:Function map():Dim xmlchannel,xmlclass:Dim nodechannel,nodeclass:Dim yilin,shujun:Set xmlchannel=Application(CacheName&"_channel").cloneNode(True).documentElement.selectNodes("channel[@cha_show='1']"):Set xmlclass=Application(CacheName&"_class").cloneNode(True).documentElement.selectNodes("class[@isshow='1']"):yilin="<ul class='channel'>":For each nodechannel in xmlchannel:shujun="":yilin=yilin & "<li><a href='"& nodechannel.getAttribute("cha_url") &"?u="& nodechannel.getAttribute("id") &"' title='"& nodechannel.getAttribute("cha_readme") &"'>"& nodechannel.getAttribute("cha_name") &"</a>":For each nodeclass in xmlclass
If nodeclass.getAttribute("cid")=nodechannel.getAttribute("id") Then 
If Not (clng(nodeclass.getAttribute("cid"))=7 and clng(nodeclass.getAttribute("depth"))=0) Then
shujun=shujun & "<li class='depth"& nodeclass.getAttribute("depth") &"'><a href='"& nodeclass.getAttribute("readurl") &"?u="& nodeclass.getAttribute("cid") &"w"& nodeclass.getAttribute("id") &"' title='"& nodeclass.getAttribute("readme") &"'>"& nodeclass.getAttribute("title") &"</a></li>"
End If
End If:Next
If len(shujun)>0 Then
yilin=yilin & "<ul class='class'>"& shujun &"</ul>"
End If:yilin=yilin & "</li>":Next:yilin=yilin & "</ul>":map=yilin:End Function
%>