<!--#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
'以下是数据库的设置信息
Wap.StrSql="Select PersonName,Content,DateTime,Title From FreeWord Where Id=" & ToShowPage 
Wap.EveryPageSize=10
Wap.FieldShow="Title"
Wap.FieldId="Id"
ShowContent=Wap.MdbShow("Content")
ShowContent="标题:" & Wap.MdbShow("Title") & "<br/>" & "发表人:" & Wap.MdbShow("PersonName") & "<br/>" & ShowContent
Wap.MorePage ShowContent,TextLong
'以下查询数据库的总数
Wap.StrSql="Select Title,Content From FreeWord"
Wap.MdbDo
ZongShu=Wap.RecordCount
Wap.WriteRow Wap.ImgA("",Wap.ThisFileName & "?ToShowPage=" & Wap.RndNumber(ZongShu),"随机阅读")
Wap.WriteRow Wap.ImgA("","FreeWord_FindText.asp","文章搜索")
Wap.WriteRow Wap.ImgA("","FreeWordList.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"-->
 
