 |
推 荐 企 业 |
 |
|
| 您查询的内容为:
<%=request("key")%> 以下是您要查询的记录列表。
<%
page=clng(request("page"))
key=trim(fstr(request("key")))
key2=trim(fstr(request("key2")))
area=fstr(request("area"))
big=fstr(request("big"))
smallclass=fstr(request("class"))
bigclass=fstr(request("bigclass"))
set rslook=server.createobject("adodb.recordset")
if key2="cp" then
if smallclass<>"" and big <>"" then
sql77="select * from info where smallclass='"&smallclass&"'and bigclass='"&big&"' order by vip desc, tuijian desc,id asc"
aa=1
end if
if area<>"" then
sql77="select * from info where gscontent like '%"& key &"%' and whereee='"&area&"' order by vip desc, tuijian desc,id asc"
bb=1
end if
if area="日照" then
sql77="select * from info where gscontent like '%"& key &"%' order by vip desc, tuijian desc,id asc"
bb=1
end if
if bigclass<>"" and smallclass="" then
sql77="select * from info where bigclass='"&bigclass&"' order by vip desc, tuijian desc,id asc"
cc=1
end if
else
if key2="tel" then
if smallclass<>"" and big <>"" then
sql77="select * from info where smallclass='"&smallclass&"'and bigclass='"&big&"' order by vip desc, tuijian desc,id asc"
aa=1
end if
if area<>"" then
sql77="select * from info where phone like '%"& key &"%' and whereee='"&area&"' order by vip desc, tuijian desc,id asc"
bb=1
end if
if area="日照" then
sql77="select * from info where phone like '%"& key &"%' order by vip desc, tuijian desc,id asc"
bb=1
end if
if bigclass<>"" and smallclass="" then
sql77="select * from info where bigclass='"&bigclass&"' order by vip desc, tuijian desc,id asc"
cc=1
end if
else
if key2="dz" then
if smallclass<>"" and big <>"" then
sql77="select * from info where smallclass='"&smallclass&"'and bigclass='"&big&"' order by vip desc, tuijian desc,id asc"
aa=1
end if
if area<>"" then
sql77="select * from info where address like '%"& key &"%' and whereee='"&area&"' order by vip desc, tuijian desc,id asc"
bb=1
end if
if area="日照" then
sql77="select * from info where address like '%"& key &"%' order by vip desc, tuijian desc,id asc"
bb=1
end if
if bigclass<>"" and smallclass="" then
sql77="select * from info where bigclass='"&bigclass&"' order by vip desc, tuijian desc,id asc"
cc=1
end if
else
aa=1
end if
if area<>"" then
sql77="select * from info where (InStr(1,LCase(company),LCase('"&key&"'),0)<>0 or (InStr(1,LCase(phone),LCase('"&key&"'),0)<>0 ) or (InStr(1,LCase(address),LCase('"&key&"'),0)<>0 )) and whereee='"&area&"' order by vip desc, tuijian desc,id asc"
bb=1
end if
if area="日照" then
sql77="select * from info where InStr(1,LCase(company),LCase('"&key&"'),0)<>0 or (InStr(1,LCase(phone),LCase('"&key&"'),0)<>0 ) or (InStr(1,LCase(address),LCase('"&key&"'),0)<>0 ) order by vip desc, tuijian desc,id asc"
bb=1
end if
cc=1
end if
end if
rslook.open sql77,conn,1,3
if rslook.eof or rslook.bof then
response.write""
else
%>
|
|
|
<%
rslook.PageSize=14
if page=0 then page=1
pages=rslook.pagecount
if page > pages then page=pages
rslook.AbsolutePage=page
for j=1 to rslook.PageSize
%>
<%
rslook.movenext
if rslook.eof then exit for
next
end if
%>
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "首页 "
response.write "上一页 "
end if
if rslook.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write ""
response.write "下一页 尾页"
end if
response.write " 页次："&Page&"/"&rslook.pagecount&"页 "
response.write " 共"&rslook.recordcount&"条记录 "&rslook.pagesize&"条记录/页"
%>
|
|
.html" target="_blank"><%
tuijian=rslook("tuijian")
vip=rslook("vip")
if tuijian=1 and vip>0 then%><%=rslook("company")%>
<%elseif tuijian>0 and (isnull(vip)=true or vip=0) then%><%=rslook("company")%>
<%else%><%=rslook("company")%>
<%
end if
%>