<!--#Include File="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
XML.WriteRow "今天是" & Date() & XML.QueryWeek
XML.WriteOut XML.Div(,,"N")
if session("OnlineName")<> "" then
XML.WriteOut session("OnlineName") & ",欢迎您!("
XML.WriteOut XML.A("","UserAdmin.asp","管理中心") & "/"
XML.WriteRow XML.A("","CheckUser.asp?ToDo=Exit","注销登录") & ")"
Else 
XML.WriteOut "您尚未(" & XML.ImgA("","Login.asp","登陆") & "/"
XML.WriteRow XML.ImgA("","register.asp","注册") & ")"
End If

'以下是数据库的设置信息
XML.StrSql="Select P_count,U_count,P_RCount,P_NewUser from totals"
	P_count=XML.MdbShow("P_count") '论坛帖子总数
	U_Count=XML.MdbShow("U_Count") '注册用户总数
	P_RCount=XML.MdbShow("P_RCount") '论坛帖子回复总数
	P_NewUser=XML.MdbShow("P_NewUser") '最新加入用户
XML.WriteRow "主题:" & P_count & " 回复:" & P_RCount 
XML.WriteRow "注册会员:" & U_Count & " 最新加入:" & P_NewUser 
XML.WriteOut XML.Div(,,"N")
XML.EveryPageSize=10 '每页显示的记录条数。默认为10。
XML.FieldShow="Title" '要显示的记录的字段名称。
XML.FieldId="Id" '数据库中的关键字段的名称。
XML.ErrorPagePath="" '当页面发生错误，或者没有记录时，跳转到的页面。默认为站点首页。
XML.RsInfoPlace="none" '设置显示的数据集合信息的位置[top\bottom\none,默认是top]
'XML.DBListNumber=True '设置数据记录前是否显示自动编号数字。
'XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。
XML.GoFileName="AnnounceShow.asp" '连接到页面的文件的名字。
XML.StrSql="Select * From SiteAnnounce Order By DateTime Desc" '要查询数据库的SQL语句。
XML.DbListTypeMode=9 '当为9时，可以设置DbListImgPath的属性值。
XML.DbListImgPath="Images/announce.gif"
XML.ErrorPagePath=""
XML.MdbList


XML.StrSql="SELECT * FROM Category order by Cat_Order DESC"
XML.EveryPageSize=10 '每页显示的记录条数。默认为10。
XML.DbListTypeMode=0 '当为9时，可以设置DbListImgPath的属性值。
XML.FieldShow="Cat_Name" '要显示的记录的字段名称。
'XML.FieldHeader="Id" '数据列表的前缀字段的名字
'XML.FieldFooter="Id" '数据列表的后缀字段的名字
XML.FieldId="Cat_ID" '数据库中的关键字段的名称。
XML.GoFileName="forum.asp" '连接到页面的文件的名字。
XML.RsInfoPlace="bottom" '设置显示的数据集合信息的位置[top\bottom\none,默认是top]
XML.DbListTypeMode=9 '当为9时，可以设置DbListImgPath的属性值。
XML.DbListImgPath="Images/50.png"
XML.MdbListPagesTwo
XML.WriteOut XML.Div(,,"N")
XML.WriteOut XML.ImgA("Images/new.gif","TopicsList.asp?Forum_id=Time","最新帖子") & "-" 
XML.WriteRow XML.ImgA("Images/hot.gif","TopicsList.asp?Forum_id=Read","阅读排行") 
XML.WriteOut XML.ImgA("Images/Hom.gif","TopicsList.asp?Forum_id=Reply","回复排行") & "-" 
XML.WriteRow XML.ImgA("Images/19.png","TopicsList.asp?Forum_id=JH","精华帖子") 

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