%
dim show, keywords, qylb,sortid, country,sf,city
dim sql, rslist,msg_per_page, icolor
show=Replace_Text(request("show"))
keywords=Replace_Text(request("keywords"))
qylb=Replace_Text(request("qylb"))
sortid=Replace_Text(request("sortid"))
country=Replace_Text(request("country1"))
sf=Replace_Text(request("province"))
city=Replace_Text(request("city"))
sql="select * from corporation where (qymc like '%"&keywords&"%' or zycp like '%"&keywords&"%') and cflag=1"
if Chkrequest(sortid) then
sql = sql & " and sortid="&sortid&""
end if
if country > "" then
sql = sql & " and country='"&country&"'"
end if
if (sf > "") and (sf <> "省份") then
sql = sql & " and sf='"&sf&"'"
end if
if (city > "") and (city <> "地级城市") then
sql = sql & " and city='"&city&"'"
end if
if (qylb > "") and (qylb <> "所有经营模式") then
sql = sql & " and qylb like '%"&qylb&"%'"
end if
if show="trust_score" then
sql=sql&" order by trust_score desc"
else
sql=sql&" order by id desc"
end if
Set rslist= Server.CreateObject("ADODB.Recordset")
rslist.open sql,conn,1,1
msg_per_page=20 '定义每页显示记录条数
%>