<!--#Include File="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息	
	Forum_id=Trim(Request.QueryString("Forum_id"))

	If Forum_id<>"" Then
		Session("Forum_id")=Forum_id
	Else
		Forum_id=Session("Forum_id")
	End If

XML.EveryPageSize=10
If Forum_id="Time" Then
	XML.WriteRow "最近更新的帖子"
	XML.WriteOut XML.Div(,,"N")
	XML.FieldId="Topic_ID" '数据库中的关键字段的名称。
	XML.ErrorPagePath="" '当页面发生错误，或者没有记录时，跳转到的页面。默认为站点首页。
	XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。
	XML.GoFileName="topic_show_content.asp" '连接到页面的文件的名字。
	XML.StrSql="Select top 15 * From Topics  Order By T_date Desc" '要查询数据库的SQL语句。
	XML.DbListTypeMode=0 '当为9时，以设置DbListImgPath的属性值。
	XML.DbListImgPath="Images/New.gif"
	XML.FieldShow="T_subject"
	XML.MdbList
Elseif Forum_id="Read" Then
	XML.WriteRow "阅读最多的帖子"
	XML.WriteOut XML.Div(,,"N")
	XML.FieldId="Topic_ID" '数据库中的关键字段的名称。
	XML.ErrorPagePath="" '当页面发生错误，或者没有记录时，跳转到的页面。默认为站点首页。
	XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。
	XML.GoFileName="topic_show_content.asp" '连接到页面的文件的名字。
	XML.StrSql="Select top 15 * From Topics  Order By T_Read Desc" '要查询数据库的SQL语句。
	XML.DbListTypeMode=9 '当为9时，以设置DbListImgPath的属性值。
	XML.DbListImgPath="Images/New.gif"
	XML.FieldShow="T_subject"
	XML.MdbList 
Elseif Forum_id="Reply" Then
	XML.WriteRow "回复最多的帖子"
	XML.WriteOut XML.Div(,,"N")
	XML.FieldId="Topic_ID" '数据库中的关键字段的名称。
	XML.ErrorPagePath="" '当页面发生错误，或者没有记录时，跳转到的页面。默认为站点首页。
	XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。
	XML.GoFileName="topic_show_content.asp" '连接到页面的文件的名字。
	XML.StrSql="Select Top 10 * From Topics  Order By T_Replies Desc" '要查询数据库的SQL语句。
	XML.DbListTypeMode=9 '当为9时，以设置DbListImgPath的属性值。
	XML.DbListImgPath="Images/New.gif"
	XML.FieldShow="T_subject"
	XML.MdbList 
else 
	XML.WriteRow "精华帖子"
	XML.WriteOut XML.Div(,,"N")
	XML.StrSql="SELECT Top 15 * from Topics where IsJH=Yes Order By T_date Desc"
	XML.EveryPageSize=15
	XML.FieldShow="T_subject"
	XML.FieldHeader="F_RCount"'回复数量
	XML.FieldFooter="F_Count" '主题数量
	XML.FieldId="Topic_ID"
	XML.DbListTypeMode=0 '
	XML.GoFileName="topic_show_content.asp"
	XML.ErrorPagePath=""
	XML.RsInfoPlace="bottom" '设置显示的数据集合信息的位置[top\bottom\none,默认是top]
	XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
	XML.MdbList()
End If
	XML.WriteOut XML.Div(,,"N")
'以下为返回链接等信息。
XML.WriteRow XML.ImgA("Images/topt.gif","index.asp","返回上级")

%>
<!--#Include File="WapConfig/WapFooter.asp"--> 
