|
| 您查询的内容为：<%
title1=request("class")
title2=request("big")
title2=request("bigclass")
if title2="" then
%>
<%=title1%>
<%else%>
<%=title2%> <%=title1%>
<%end if%>
<%
page=clng(request("page"))
key=request("key")
key2=request("key2")
area=request("area")
big=request("big")
smallclass=request("class")
bigclass=request("bigclass")
set rslook=server.createobject("adodb.recordset")
if bigclass<>"" then
sql77="select * from info where bigclass='"&bigclass&"' and whereee='岚山' order by vip desc, tuijian desc,id asc"
aa=1
end if
if smallclass<>"" then
sql77="select * from info where bigclass='"&big&"' and smallclass='"&smallclass&"' and whereee='岚山' 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
%>
|
<%
dim rrrr
rrrr=0
set rsrs=server.createobject("adodb.recordset")
sql="select * from smallclass where bigclass='"& bigclass &"' order by sorder asc"
rsrs.open sql,conn,1,3
%>
<%
do while not rsrs.eof
%>
<%
if (rrrr mod 5) <> 0 then
%>
|
<%
else
%>
|
|
<%
end if
rsrs.movenext
rrrr=rrrr+1
if rsrs.eof then
for j=1 to 5 - rrrr mod 5
response.write(" | ")
next
end if
loop
%>
|
<%
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&"条记录/页"
%>
|
<%else%><%=rslook("company")%>
<%
end if
%>