<%
page=clng(request("page"))
key=fstr(request("key"))
key2=fstr(request("key2"))
area=fstr(request("area"))
smallclass=fstr(request("smallclass"))
if request("class")<>"" then
smallclass=fstr(request("class"))
end if
bigclass=fstr(request("bigclass"))
if request("big")<>"" then
bigclass=fstr(request("big"))
end if
set rslook=server.createobject("adodb.recordset")
if bigclass<>"" then
sql77="select * from info where bigclass='"&bigclass&"' order by vip desc, tuijian desc,id asc"
aa=1
end if
if smallclass<>"" then
sql77="select * from info where bigclass='"&bigclass&"' and smallclass='"&smallclass&"' order by vip desc, tuijian desc,id asc"
cc=1
end if
rslook.open sql77,conn,1,3
if rslook.eof or rslook.bof then
response.write"暂时没有数据！"
else
%>
<%
rslook.PageSize=9
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
%>
|
<%
dim ifsite
ifsite=rslook("site")
if ifsite="http://" then
response.write"