<!--#Include File="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim Cat_ID,FoundErr,ErrMsg
	Cat_ID=Trim(Request("Cat_ID"))
	If Cat_ID<>"" Then
		Session("Cat_ID")=Cat_ID
	Else
		Cat_ID=Session("Cat_ID")
	End If

'显示导航
Call HoriNavi()
XML.WriteOut XML.Div(,,"N")
XML.StrSql="SELECT Forum_ID,F_Name,F_Count,F_RCount from Forum where F_Cat="  & Cat_ID
XML.EveryPageSize=15
XML.FieldShow="F_Name"
'XML.FieldHeader="F_RCount"'回复数量
XML.FieldFooter="F_Count" '主题数量
XML.FieldId="Forum_ID"
XML.GoFileName="Topics.asp"
XML.ErrorPagePath=""
XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
XML.MdbList()
'以下为返回链接等信息。
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("Images/topt.gif",XML.WapPath,"返回上级")
%>
<!--#Include File="WapConfig/WapFooter.asp"--> 
