Question

ASP读取数据库全部数据，然后分页显示，每个页面15条。那位大大帮帮我。。

大大们对不起，帮我改一改，这是PHP100教程里的全部读取每页3条分页读取代码。我想改成每页15的，改掉后要不就是下一页打不开，要不就是第一页显示的是15条，但第二页还是显示3条，然后在第二页时点击上页回去后，第一页也变成只读取3条了。。。。字数超限放不上代码去。。。麻烦了，解决了双倍给分。谢谢拉- -

Answer 1

<!--列表-->
<%
conn.open connsdiv
set rs=server.CreateObject("adodb.recordset")
sql="select * from test order by id desc"
rs.Open sql,conn,1,1
page=request.querystring("page")
if page="" then
page=1
else
page=Cint(page)
end if

Section=request.querystring("section")
if Section="" then
Section=1
else
Section=Cint(Section)
end if
'变量赋值
intPageSize=5 '每页显示记录数
intSectionSize=5 '多少页为一段，像GOOGLE一样
PrevSectionText="<FONT face=webdings>7</FONT>" '上一段的链接文字
NextSectionText="<FONT face=webdings>8</FONT>" '下一段的链接文字
PrevPageText="<FONT face=webdings>3</FONT>" '上页的链接文字
NextPageText="<FONT face=webdings>4</FONT>" '下页的链接文字

strPageUrl="?t=" & strQueryString

rs.pagesize=intPageSize
intCount=rs.RecordCount
intPageCount=rs.pagecount
intSectionCount=(intPageCount - 1) \ intSectionSize + 1
if intCount>0 then
rs.AbsolutePage=page
end if
for i=1 to intPageSize
if rs.eof then exit for
response.Write("<a herf="&id&">")
response.Write("<font>"&rs("aa")&"</font>")
response.Write("<a>")
rs.movenext
next
%>
<!--列表结束-->

<!--翻页按钮-->
<font>共有<%=intCount%>记录，分<%=intPageCount%>页，当前页<%=Page%>，每页显示<%=intPageSize%>条记录
<%
'计算每一段的开始页
intStarPage=(Section-2) * intSectionSize + 1
'前一段
if Section<=1 then
response.Write(PrevSectionText & " ")
else
response.Write("<a href='" & strPageUrl & "&page=" & intStarPage & "§ion=" & Section-1 & "'>" & PrevSectionText & "</a> ")
end if

'显示页码列表
response.Write("第")
intStarPage=(Section-1) * intSectionSize + 1
for p=intStarPage to intStarPage + intSectionSize - 1
if p > intPageCount then exit for
if p=page then
response.Write("<strong>[" & p & "]</strong> ")
else
response.Write("<a href='" & strPageUrl & "&page=" & p & "§ion=" & Section & "'>[" & p & "]</a> ")
end if
next
response.Write("页")
'后一段
intStarPage=(Section) * intSectionSize + 1
if Section>=intSectionCount then
response.Write(" " & NextSectionText)
else
response.Write(" <a href='" & strPageUrl & "&page=" & intStarPage & "§ion=" & Section+1 & "'>" & NextSectionText & "</a> ")
end if
%>
<select name="page" size="1" onChange="window.location='<%=strPageUrl & "§ion="%>' + (Math.floor((parseInt(this.value)-1)/<%=intSectionSize%>)+1) + '<%="&page="%>' + this.value">
<option value="<%=page%>" selected>第<%=page%>页</option>
<%
for i=1 to rs.pagecount
%>
<option value="<%=i%>" >第<%=i%>页</option>
<%
next
%>
</select>
</font>
<!--翻页按钮结束-->

追问

好长的代码，我先去试试能行不

追答

Q:294850404

Answer 2

把rs.pagesize=3改成＝15

追问

你说的那个我改掉后，读取index.asp时没问题，但是只能显示出10来，然后点击下一页，也就是代码里的indexPAGE+1%页面还是显示3条。并且只改掉那里后根本不切合整个代码。上一条和下一条的连接就都会错误

Answer 3

中毒了介意杀毒非