|
|
| 您查询的内容为：最新更新企业
<%
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")
sql77="select * from info where bigclass<>'日照党政机关' order by id desc"
cc=1
rslook.open sql77,conn,1,3
%>
|
<%
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
%>
<%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>0 and vip>0 then%><%=rslook("company")%>
<%elseif tuijian>0 and (isnull(vip)=true or vip=0) then%><%=rslook("company")%>
<%else%><%=rslook("company")%>
<%
end if
%>