<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文，利用ASP函数的部分。
	ToShowPage=Trim(Request.QueryString("ToShowPage"))
	If ToShowPage<>"" Then
		Session("ToShowPage")=ToShowPage
	Else
		ToShowPage=Session("ToShowPage")
		If Session("ToShowPage")="" Then
			ToShowPage=1
		End If
	End If
'以下是数据库的设置信息
XML.StrSql="Select PersonName,Content,DateTime,Title From FreeWord Where Id=" & ToShowPage 
XML.EveryPageSize=10
XML.FieldShow="Title"
XML.FieldId="Id"
ShowContent=XML.MdbShow("Content")
'显示标题
XML.WriteOut "<h2>" & XML.MdbShow("Title") & "</h2>"
XML.WriteOut "<ul><li>"
XML.MorePage ShowContent,TextLong
'以下查询数据库的总数
XML.StrSql="Select Title,Content From FreeWord"
XML.MdbDo
ZongShu=XML.RecordCount
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("",XML.ThisFileName & "?ToShowPage=" & XML.RndNumber(ZongShu),"随机阅读")

XML.WriteRow XML.ImgA("","FreeWordList.asp","返回上级")

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