高分求教呀,急求!!!!

[lwjhugo]

我想在ASP里做一个能分页显示数据库(我用的是SQLSever)的记录, 一页显示10条,能显示总页数,当前页数,可以有上一页,下一页选择, 并且一页里有10页数字选择,点击一个数字能到达该页,如果超过10页的话可以显示下一个10页, 请问该怎么做呀?凡是回帖的必有分加, 谢谢!

[coffee_cn]

发邮件到[e-mail]
我送一个给你

[tiandiren2008]

还是以邮件形势给你吧！
[e-mail]

[zurong]

你自己整理的看看

SQLStr="select * from [bbs1] where (Solution=1) and (boardID like '"&forum_id&"%') order by DateAndTime DESC"
rs.open SQLStr,conn,1,1

rs.PageSize=10
pagecount=rs.PageCount
cur_page=int(request.QueryString("page"))
if cur_page<=0 then cur_page=1 end if
if request.QueryString("page")="" then cur_page=1 end if
rs.AbsolutePage=cur_page
end if

dim totalput
dim MaxPerPage
dim currentpage
MaxPerPage=10
totalput=rs.recordcount

response.write cstr(totalput)&"篇"
currentpage=0
if (totalput mod MaxPerPage=0) then
currentpage=totalput\MaxPerPage
else
currentpage= totalPut\MaxPerPage + 1
end if
dim i
for i=1 to currentpage
response.write " "
if i=cur_page then
response.write "<font color="&"red"&">"&i&"</font>"
else
response.write "<a href=forum.asp?forum_id="&trim(forum_id)&"&page="&i&" target=_self onclick=javascript:>"&i&"</a>"
end if
next
if rs.eof and rs.bof then
response.write "<tr><td >"
response.write "<font color=red><p align='right'><strong> 还 没 有 任 何 文 章</strong></p></font>"
response.write "</tr></td>"
else
do while not rs.eof
response.write "<a href=tiezi3.asp?ID=<% =trim(rs("AnnounceID"))%>&Solution=<%=rs("Solution")%> target=_blank ><%=rs("Topic")%></a></font><font color="black" size="-1">(<%=trim(rs("Username"))%>)</font></td>"
rs.movenext
loop

[bananasmiling]

SQLStr="select * from [bbs1] where (Solution=1) and (boardID like '"&forum_id&"%') order by DateAndTime DESC"
rs.open SQLStr,conn,1,1

rs.PageSize=10
pagecount=rs.PageCount
cur_page=int(request.QueryString("page"))
if cur_page<=0 then cur_page=1 end if
if request.QueryString("page")="" then cur_page=1 end if
rs.AbsolutePage=cur_page
end if

dim totalput
dim MaxPerPage
dim currentpage
MaxPerPage=10 '这个地方可以改成你想要的每页显示的记录
totalput=rs.recordcount
response.write cstr(totalput)&"篇"
currentpage=0
if (totalput mod MaxPerPage=0) then
currentpage=totalput\MaxPerPage
else
currentpage= totalPut\MaxPerPage + 1
end if
dim i
for i=1 to currentpage
response.write " "
if i=cur_page then
response.write "<font color="&"red"&">"&i&"</font>"
else
response.write "<a href=forum.asp?forum_id="&trim(forum_id)&"&page="&i&" target=_self onclick=javascript:>"&i&"</a>"
end if
next
if rs.eof and rs.bof then
response.write "<tr><td >"
response.write "<font color=red><p align='right'><strong> 还 没 有 任 何 文 章</strong></p></font>"
response.write "</tr></td>"
else
do while not rs.eof
response.write "<a href=tiezi3.asp?ID=<% =trim(rs("AnnounceID"))%>&Solution=<%=rs("Solution")%> target=_blank ><%=rs("Topic")%></a></font><font color="black" size="-1">(<%=trim(rs("Username"))%>)</font></td>"
rs.movenext
loop

[bananasmiling]

只是借用上面的,如果还想要详细的..请给我发信.

[zorou_fatal]

告诉邮箱，发个详细的给你看看。

[lwjhugo]

你们好,好多谢你们的热心帮忙,你的邮箱是[e-mail],请你们将代码发到我的邮箱,谢谢!

[arcow]

顶