|
白云资讯
<%
classid=request.QueryString("classid")
if sp="" then
sql="select top 8 * from by_zixun order by id desc"
else
sql="select top 8 * from by_zixun where classid="&classid&" order by id desc"
end if
'response.Write(sql)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,Conn,1,1
'rsz=1
if not isempty(request("page")) then
pagecount=cint(request("page")) '当前页面
else
pagecount=1
end if
rs.PageSize=20 '显示记录多少
if rs.eof and rs.bof then
response.write " NONE "
response.End()
else
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
i=0
%>
<%do while not rs.eof%>
| <%=rs("id")%> |
"><%=rs("title")%>
|
<%
i=i+1
rs.movenext
if i>=rs.PageSize then exit do
loop
%>
| 当前是第<%=pagecount%>页/共<%=rs.pagecount%>页 |
<%if not pagecount=1 then response.write("[第一页"&key&"]")%>
<%
if pagecount>1 then response.write("[上一页]")
response.write " "
if pagecount下一页]")
response.write " "
if pagecount尾页]")
end if
rs.close
set rs=nothing
%>
|
|
