<!--#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
Dim UrlFindText : UrlFindText=XML.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
'以下是数据库的设置信息
If UrlFindText<>"" Or PostFindText<>"" Then
	XML.StrSql="select * from nyeee_qydata where (name Like '%"& FindText & "%' or faren Like '%"& FindText &"%' or yewu Like '%"& FindText &"%' or lei Like '%"& FindText &"%' or city Like '%"& FindText &"%' or http Like '%"& FindText &"%' or mail Like '%"& FindText &"%' or address Like '%"& FindText &"%' or youbian Like '%"& FindText &"%' or tel Like '%"& FindText &"%' or fax Like '%"& FindText &"%' or jieshao Like '%"& FindText &"%') and mark='1' order by id " & ListOrder
Else
	XML.StrSql="select * from nyeee_qydata where (name Like '%"& Session("FindText") &"%' or faren Like '%"& Session("FindText") &"%' or yewu Like '%"& Session("FindText") &"%' or lei Like '%"& Session("FindText") &"%' or city Like '%"& Session("FindText") &"%' or http Like '%"& Session("FindText") &"%' or mail Like '%"& Session("FindText") &"%' or address Like '%"& Session("FindText") &"%' or youbian Like '%"& Session("FindText") &"%' or tel Like '%"& Session("FindText") &"%' or fax Like '%"& Session("FindText") &"%' or jieshao Like '%"& Session("FindText") &"%') and mark='1' order by id " & ListOrder
End If
'XML.EveryPageSize=10
XML.FieldShow="Name"
'XML.FieldHeader=""
XML.FieldFooter=""
XML.FieldId="Id"
XML.GoFileName="QYResultShow.asp"
XML.ErrorPagePath="" 'XML.WapPath & "Success.asp?ToDo=NoNewsRecord"
XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
'XML.WriteRow XML.StrSql '用于输出SQL语句，调试时使用。
XML.MdbList
If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
If Session("ListOrder")="asc" or  ListOrder="" Then 
XML.WriteRow XML.ImgA("Images/reverse.gif",XML.Thisfilename & "?Order=desc&amp;Page=" & iPageCurrent,"反转排序")
Else
XML.WriteRow XML.ImgA("Images/reverse.gif",XML.Thisfilename & "?Order=asc&amp;Page=" & iPageCurrent,"反转排序")
End If
XML.WriteRow XML.ImgA("Images/checkarticle.gif","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
