www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\common\sitemap.asp

    <!--#include file="../inc/template.inc"-->
<%
Dim listArry,i,ii,m,n
Dim depth,iChannelID
Sub Main()
	Set TPL_XmlDom=NewAsp.CreateXmlDoc("msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
	If Not TPL_XmlDom.load(NewAsp.TemplatePath&"config.xml") Then
		Response.Write "载入模板配置文件出错!"&NewAsp.TemplatePath&"config.xml"
		Response.End
	End If
	Dim strHTML
	strHTML = NewAsp.LoadTemplate("sitemap")
	strHTML = Replace(strHTML, "{$pagetitle}",  "站点地图")
	strHTML = Replace(strHTML, "{$channelid}", 0)
	strHTML = Replace(strHTML, "{$classid}", 0)
	TPL_Scan strHTML
End Sub

Sub TPL_ParseNode(sTokenType, sTokenName, sVariant)
	Select Case sTokenType
		Case "newasp"
			ParseDataNode		sTokenName,sVariant
		Case "showlist","classlist"
			ParselistNode		sTokenName
	Case Else
	End Select
End Sub

Sub showMaplist()
	Dim Rs,SQL
	SQL="SELECT C.classid,C.ChannelID,C.ClassName,C.Readme,C.rootid,C.depth,C.Child,C.TurnLink,C.TurnLinkUrl,C.HtmlFileDir,B.ChannelDir,B.BindDomain,B.DomainName,B.IsCreateHtml,B.HtmlExtName,B.SortDestination FROM [NC_Classify] C inner join [NC_Channel] B On C.ChannelID=B.ChannelID WHERE B.StopChannel=0 ORDER BY C.ChannelID ASC,C.rootid ASC,C.orders ASC"
	Set Rs=NewAsp.Execute(SQL)
	If Not Rs.EOF Then
		listArry=Rs.GetRows(-1)
	End If
	Rs.Close:Set Rs = Nothing
End Sub

Sub TPL_ParseArea(sTokenName, sTemplate)
	Select Case sTokenName
		Case "showlist","classlist"
			Call showMaplist()
			If IsArray(listArry) Then
				For i=0 To UBound(listArry,2)
					ii=ii+1
					If (i Mod 2) = 0 Then m=1 Else m=2
					depth=CLng(listArry(5,i))
					TPL_Scan sTemplate
				Next
			End If
		Case "depth=0"				:	If depth=0 Then TPL_Scan sTemplate
		Case "depth!=0","depth=1"	:	If depth>0 Then TPL_Scan sTemplate
	End Select
End Sub

Sub ParseDataNode(sToken,sVariant)
	On Error Resume Next
	Select Case sToken
		Case "moremenu"
	End Select
	If Err Then Err.Clear
End Sub

Sub ParselistNode(sToken)
	Dim strLinks,strRssLink
	Dim iBindDomain,iCreateHtml,iDomainName,iChannelDir,iChannelPath
	iBindDomain=CLng(listArry(11,i))
	iCreateHtml=CLng(listArry(13,i))
	iDomainName=listArry(12,i)&""
	iChannelDir=listArry(10,i)&""
	If iBindDomain=1 Then
		iChannelDir=""
		iChannelPath=iDomainName&"/"
		If iCreateHtml=0 Then iDomainName=iDomainName&"/"
	Else
		iChannelPath=NewAsp.InstallDir&iChannelDir
		If iCreateHtml=0 Then
			iDomainName=NewAsp.InstallDir&iChannelDir
		Else
			iDomainName=""
		End If
	End If
	strRssLink=iChannelPath&"rssfeed.asp?classid="&listArry(0,i)
	If CLng(listArry(7,i))=1 Then
		strLinks=listArry(8,i)&""
	Else
		If iCreateHtml=0 Then
			If IsURLRewrite Then
				strLinks=CheckURLRewrite(iChannelPath,"list_1_"&listArry(0,i)&listArry(14,i))
			Else
				strLinks=iChannelPath&"list.asp?classid="&listArry(0,i)
			End If
		Else
			strLinks=iDomainName&NewAsp.HtmlDestination(listArry(15,i), iChannelDir, "",listArry(9,i),listArry(0,i),0,1,"")
		End If
	End If
	Select Case sToken
		Case "i"			:	TPL_Echo i
		Case "n"			:	TPL_Echo n
		Case "m"			:	TPL_Echo m
		Case "link"			:	TPL_Echo strLinks
		Case "rsslink"		:	TPL_Echo strRssLink
		Case "path"			:	TPL_Echo iChannelPath
		Case "classname"	:	TPL_Echo listArry(2,i)
		Case "readme"		:	TPL_Echo listArry(3,i)
		Case "classtitle"	:	TPL_Echo "<a href="""&strLinks&""">"&listArry(2,i)&"</a>"
		Case "classid"		:	TPL_Echo listArry(0,i)
	End Select
End Sub
%>