ASP 分页 程序

来源:百度知道 编辑:UC知道 时间:2024/04/30 00:00:19
<!--#include file=conn.asp-->
<%
sql="select top 30 *from [data] order by n_id desc"
set rs=server.createobject("adodb.recordset")
rs.open,sql,conn,1,3
if not rs.eof then
pages=30
rs.pagesize=page
allpages=rs.pagecount
page=request.querystring("page")

if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
rs.AbsolutePage = page

do while not rs.eof and pages>0%>
<% response.write"<a href=disply.asp?n_id="&rs("n_id")&"><li>"&"["&rs("n_class")&"]"&left(rs("n_title"),30)&"</li></a>"

pages=pages-1
rs.movenext
loop
else
response.write("not data")
end if

rs.Close
Set rs = Noth

缺少end if

<!--#include file=conn.asp-->
<%
sql="select top 30 *from [data] order by n_id desc"
set rs=server.createobject("adodb.recordset")
rs.open,sql,conn,1,3
if not rs.eof then
pages=30
rs.pagesize=page
allpages=rs.pagecount
page=request.querystring("page")