<%
Set XML=Server.CreateObject("QuickWAP.XML")
Set WAP=Server.CreateObject("QuickWAP.WAP")
%>
<!--#Include File="WapConfig.asp"-->
<%
If Session("CSSFile")<>"" Then CSSFile=Session("CSSFile")
XML.XhtmlHeader CSSFile
XML.WriteRow XML.Img(XML.SiteLogo)
If Session("ChineseType")<>"" Then
	XML.ChineseType=Session("ChineseType")
	WAP.ChineseType=Session("ChineseType")
End If
Sub HoriNavi() '文章栏目导航
XML.WriteOut "导航:" & XML.A("","Index.asp","首页")
	If Forum_ID<>0 Then
		dim zClassID,zClassName
		XML.StrSql="Select Forum_ID,F_Name,F_Cat From Forum Where Forum_ID=" & Forum_ID
		XML.MdbDo
		If Not XML.RS.Eof Then
			zClassID=XML.RS("Forum_ID")		
			zClassName=XML.RS("F_Name")
			Cat_ID=XML.RS("F_Cat")
			XML.RS.Close
		End If
	End If
	If Cat_ID<>0 Then
	XML.StrSql="Select Cat_ID,Cat_Name From Category Where Cat_ID=" & Cat_ID & zF_Cat
		XML.MdbDo 1
		Do While Not XML.RS1.Eof		
		XML.WriteOut " -&gt;&gt; " & XML.A("","forum.asp?ListID=" & XML.RS1("Cat_ID"), XML.RS1("Cat_Name")) 
		XML.RS1.MoveNext
		Loop
		XML.RS1.Close
	End If
	If zClassName<>"" then
 		XML.WriteRow " -&gt;&gt; " & zClassName
	Else
		XML.WriteRow ""
	End If
End Sub


%>