<!--#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
'以下是数据库的设置信息
Wap.StrSql="Select Id,Title,DateTime From FindWork order by DateTime " &  ListOrder
Wap.EveryPageSize=10
Wap.FieldShow="Title"
Wap.FieldHeader=""
Wap.FieldFooter=""
'Wap.FieldId="Id"
Wap.GoFileName="FindWorkShow.asp"
Wap.DbIsShowImage=False
'Wap.DBListSymbol="◆" '设置数据记录显示前的符号，默认为空。[新增较V1.5]
Wap.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
Wap.ErrorPagePath=""
Wap.MdbListPagesThree
If Wap.RecordCount<1 Then Wap.WriteRow "暂时没有您要找的信息。"
'以下为返回链接等
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("","index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
