<%
DYZH=request("dyzh")
XM=request("xm")
XB=request("xb")
YZ=request("yz")
MZ=request("mz")
SSDW=request("ssdw")
IsWhere=""
S_Qual=" "
SearchKeywords=""
if DYZH<>"" then
if S_Qual=" " then
S_Qual=S_Qual&" [dyzh] like '%"&DYZH&"%' "
else
S_Qual=S_Qual&" and [dyzh] like '%"&DYZH&"%' "
end if
IsWhere=" where "
SearchKeywords=SearchKeywords&"&dyzh="&DYZH
end if
if XM<>"" then
if S_Qual=" " then
S_Qual=S_Qual&" [xm] like '%"&XM&"%' "
else
S_Qual=S_Qual&" and [xm] like '%"&XM&"%' "
end if
IsWhere=" where "
SearchKeywords=SearchKeywords&"&xm="&XM
end if
if MZ<>"" then
if S_Qual=" " then
S_Qual=S_Qual&" [mz] like '%"&MZ&"%' "
else
S_Qual=S_Qual&" and [mz] like '%"&MZ&"%' "
end if
IsWhere=" where "
SearchKeywords=SearchKeywords&"&xm="&XM
end if
if YZ<>"" then
if S_Qual=" " then
S_Qual=S_Qual&" [yz] like '%"&YZ&"%' "
else
S_Qual=S_Qual&" and [yz] like '%"&YZ&"%' "
end if
IsWhere=" where "
SearchKeywords=SearchKeywords&"&yz="&YZ
end if
if SSDW<>"" then
if S_Qual=" " then
S_Qual=S_Qual&" [ssdw] like '%"&SSDW&"%' "
else
S_Qual=S_Qual&" and [ssdw] like '%"&SSDW&"%' "
end if
IsWhere=" where "
SearchKeywords=SearchKeywords&"&ssdw="&SSDW
end if
if XB<>"" and XB<>"0" then
if S_Qual=" " then
S_Qual=S_Qual&" xb='"&XB&"' "
else
S_Qual=S_Qual&" and xb='"&XB&"' "
end if
IsWhere=" where "
SearchKeywords=SearchKeywords&"&xb="&XB
end if
OrderBy= " order by isCommend_I,isCommend desc "
CurrentPage = request("page")
set RS=server.CreateObject("adodb.recordset")
strSQL = "select * from Jiudian "&IsWhere&S_Qual&OrderBy
PerPageNum = 20
RS.cursorlocation = 3
RS.pagesize = PerPageNum
RS.open strSQL,Conn
%>
沈阳旅游网-沈阳旅游局主办-旅行指南
