UC知道关于ASP的分页
来源：百度知道 编辑：UC知道 时间：2024/06/14 06:59:50
<!--#include file="head.asp" -->
<%
Set NewsViewrs = Server.CreateObject("ADODB.Recordset")
ssql="select * from N_News order by id desc"
NewsViewrs.Open ssql,conn,1,1
'总记录数
dim RecordCount
RecordCount=NewsViewrs.RecordCount
if RecordCount=0 then
response.write("<br><br><center>暂无任何新闻！</center><br><br>")
else
dim MaxPerPage,CurrentPage,PageCount
MaxPerPage=30'每页显示信息数
NewsViewrs.PageSize=MaxPerPage
PageCount=NewsViewrs.PageCount'确定当前页
if request("page")="" then
CurrentPage=1
else
CurrentPage=Cint(request("page"))
end if
If CurrentPage < 1 Then
CurrentPage = 1
end if
If CurrentPage > PageCount Then
CurrentPage = PageCount
end if
New
<%
Set NewsViewrs = Server.CreateObject("ADODB.Recordset")
ssql="select * from N_News order by id desc"
NewsViewrs.Open ssql,conn,1,1
'总记录数
dim RecordCount
RecordCount=NewsViewrs.RecordCount
if RecordCount=0 then
response.write("<br><br><center>暂无任何新闻！</center><br><br>")
else
dim MaxPerPage,CurrentPage,PageCount
MaxPerPage=30'每页显示信息数
NewsViewrs.PageSize=MaxPerPage
PageCount=NewsViewrs.PageCount'确定当前页
if request("page")="" then
CurrentPage=1
else
CurrentPage=Cint(request("page"))
end if
If CurrentPage < 1 Then
CurrentPage = 1
end if
If CurrentPage > PageCount Then
CurrentPage = PageCount
end if
New
dim MaxPerPage,CurrentPage,PageCount '定义当前页，总页数
MaxPerPage=30'每页显示信息数
NewsViewrs.PageSize=MaxPerPage ‘把每页显示数赋值给记录集的Pagesize属性
PageCount=NewsViewrs.PageCount'确定总页数
if request("page")="" then ’如果获得的page值为空
CurrentPage=1 ‘当前页的数值是1
else
CurrentPage=Cint(request("page")) ‘否则将page值赋值给当前页
end if
If CurrentPage < 1 Then ’如果当前页小于1
CurrentPage = 1 ‘当前页的数值为1
end if
If CurrentPage > PageCount Then ’如果当前页数值大于总页数数值
CurrentPage = PageCount ‘把记录集的pagecount的值指定给当前页
end if
NewsViewrs.AbsolutePage=CurrentPage 把当前页的数值指定给记录集的AbsolutePage属性