<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
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
Dim UrlFindText : UrlFindText=Wap.RequestText("UrlFindText") 'Url传递
Dim PostFindText : PostFindText=Request("PostFindText")
If UrlFindText<>"" Then '获得按何种方式传递的值
	FindText=UrlFindText
Else
	FindText=PostFindText
End If
If FindText<>"" Then 
	Session("FindText")=FindText
Else 
	FindText=Session("FindText")
End If
'以下是数据库的设置信息
'Wap.WriteOut Wap.P("left","wrap")
If UrlFindText<>"" Or PostFindText<>"" Then
	Wap.StrSql="Select PersonName,Id,Title From FreeWord Where Title Like '%" & FindText & "%' order by DateTime " &  ListOrder
Else
	Wap.StrSql="Select PersonName,Id,Title From FreeWord Where Title Like '%" & Session("FindText") & "%' order by DateTime " &  ListOrder
End If
'Wap.EveryPageSize=10
Wap.FieldShow="Title"
Wap.FieldHeader="PersonName"
Wap.FieldFooter=""
Wap.FieldId="Id"
Wap.GoFileName="FreeWord_FindResultShow.asp"
Wap.DBIsShowImage=False
Wap.ErrorPagePath=Wap.WapPath & "Success.asp?ToDo=NoRecord"
Wap.MdbList()
'以下为返回链接等
If Session("ListOrder")="asc" or  ListOrder="" Then 
Wap.WriteRow Wap.ImgA("",Wap.Thisfilename & "?Order=desc&amp;Page=" & iPageCurrent,"反转排序")
Else
Wap.WriteRow Wap.ImgA("",Wap.Thisfilename & "?Order=asc&amp;Page=" & iPageCurrent,"反转排序")
End If
Wap.WriteRow Wap.ImgA("","FreeWordRandom.asp","随机阅读")
Wap.WriteRow Wap.ImgA("","FreeWord_FindText.asp","返回搜索")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
