<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
XML.WriteOut "<h2>自由文章</h2>"
XML.WriteOut "<ul><li>"
Dim ListOrder '指定排列的顺序
ListOrder=Request.QueryString("Order")
If ListOrder<>"" Then
	Session("ListOrder")=ListOrder
Else
	If Session("ListOrder")="" Then Session("ListOrder")="desc" '如果没有排序指定，则为"desc"
	ListOrder=Session("ListOrder")
End If
'以下是数据库的设置信息
XML.StrSql="Select Id,Title,PersonName From FreeWord order by DateTime " &  ListOrder
'XML.EveryPageSize=2
XML.FieldShow="Title"
'XML.FieldHeader="PersonName"
'XML.FieldFooter="Id"
'XML.FieldId="Id"
XML.GoFileName="FreeWordShow.asp"
XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
'XML.ErrorPagePath=""
XML.MdbListPages
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
If Session("ListOrder")="asc" or  ListOrder="" Then 
XML.WriteRow XML.ImgA("",XML.Thisfilename & "?Order=desc&amp;Page=" & iPageCurrent,"反转排序")
Else
XML.WriteRow XML.ImgA("",XML.Thisfilename & "?Order=asc&amp;Page=" & iPageCurrent,"反转排序")
End If
XML.WriteRow XML.ImgA("","FreeWordRandom.asp","随机阅读")
XML.WriteRow XML.ImgA("","FreeWord_FindText.asp","文章搜索")
XML.WriteRow XML.ImgA("","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
