<!--#Include File="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文，利用ASP函数的部分。
Dim ChannelName : ChannelName=Request.QueryString("ChannelName") 
If ChannelName<>"" Then Session("ChannelName")=ChannelName Else ChannelName=Session("ChannelName")
XML.WriteOut "<h2>" & ChannelName & "</h2>"
XML.WriteOut "<ul><li>"
XML.StrSql="Select * From SQ_GuestBook Where GuestIsPassed=True And TopicID=GuestID ORDER BY OnTop DESC,LastReplyTime DESC,guestid DESC"
XML.EveryPageSize=10 '每页显示的记录条数。默认为10。
XML.FieldShow="GuestTitle" '要显示的记录的字段名称。
XML.FieldHeader="GuestName" '数据列表的前缀字段的名字
'XML.FieldFooter="GuestDatetime" '数据列表的后缀字段的名字
XML.FieldId="GuestID" '数据库中的关键字段的名称。
XML.GoFileName="GuestBookShow.asp" '连接到页面的文件的名字。 
XML.ErrorPagePath="" '当页面发生错误，或者没有记录时，跳转到的页面。默认为站点首页。
'XML.RsInfoPlace="top" '设置显示的数据集合信息的位置[top\bottom\none,默认是top]
'XML.DbListTypeMode=2 '设置每条数据记录前的显示样式，值为0、1....10。
XML.DbListTypeMode=9 '当为9时，可以设置DbListImgPath的属性值。
XML.DbListImgPath="Images/Dot.gif"
'XML.DbListTypeMode=10 '当为10时，可以设置DblistPreString的属性值，用于显示在每条记录前。
'XML.DblistPreString="☆"
XML.MdbList


If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow Wap.ImgA("","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"-->
