ASP代码，有关分页部分的的，帮帮忙？

来源：百度知道 编辑：UC知道 时间：2024/06/01 05:03:29
if rs.eof and rs.bof then
response.write "<p align='center'>没有找到相关的新闻</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if

if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"search.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
showContent
showpage totalput,MaxPerPage,"search.asp"
else
currentPage=1

<div id="listnews">
<%
exec="select * from webnews order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if rs.eof then
response.write"数据库中没有记录!"
else
rs.PageSize=25
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
rssum=rs.recordcount
if page>rs.pagecount then
response.write"你输入的页不存在,请查正后在来"
else
for i=1 to rs.PageSize
%>
<div id="row" >

<div id="list2">
<img src="img/i9.gif" width="15" height="10" border="0" /><a href="read.asp?id=<%=rs("id")%>" target="_blank" class="black"> <%