韩国歌手太阳的歌曲:分页问题!

来源：百度文库编辑：高校问答时间：2024/05/05 19:21:51

<html>
<title>分页技术</title>
<head>
<%
const MaxPerPage=25
dim sql
dim rs
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
%>
</head>
<body bgcolor=Thistle>
实例
分页技术

<%
conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql = "SELECT * FROM mytable"
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,1
rs.MoveFirst
rs.pagesize=MaxPerPage
howmanyfields=rs.Fields.Count-1

If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1
End If

if rs.eof then
response.write " ERROR!"
else
totalPut=rs.recordcount
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage<totalPut then
rs.move(currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
end if
end if

dim n,k
if (totalPut mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if%>

PAGE <%=currentpage%> OF <%=n%> 共<%=rs.recordcount%> 纪录
<% k=currentPage
if k<>1 then
response.write "["+"<a href='index.asp?page=1'>首页</a>] "
response.write "["+"<a href='index.asp?page="+cstr(k-1)+"'>上一页</a>] "
else
Response.Write "[首页] [上一页]"
end if
if k<>n then
response.write "["+"<a href='index.asp?page="+cstr(k+1)+"'>下一页</a>] "
response.write "["+"<a href='index.asp?page="+cstr(n)+"'>尾页</a>] "
else
Response.Write "[下一页] [尾页]"
end if
%>



<TABLE border=1 align=center>
<tr>
<%
for i= 0 to howmanyfields%>
<TD><%=rs(i).name%></TD>
<%
next
i=0
do while not rs.eof and i<maxperpage%>
<tr align=middle>
<%for j=0 to howmanyfields%>
<td>
<%=rs(j)%>
</td>
<%next%>
</tr>
<%
i=i+1
rs.movenext
loop
%>
</TABLE>

<%
end if
rs.close
set rs=nothing
%>

</body>
</html>

这段代码是正确的,它只在头部显示分页,我想在尾部也显示分页,该怎么加东西,弄了半天老是出错,请教大侠帮我改改,先谢谢了!

我告诉你吧，你把所有的分页代码存放到一个变量中去，然后在头尾只书写这个变量不就可以了，我就是这么做的，我给你看看物品写的吧。
你自己试试再按你自己的要求改下就可以了。
'用变量存储需要写入的分页横条
dim henglist
henglist="PAGE "¤tpage&" OF "&n&" 共"&rs.recordcount&" 纪录"
k=currentPage
if k<>1 then
henglist=henglist+"["+"<a href='index.asp?page=1'>首页</a>] "
henglist=henglist+"["+"<a href='index.asp?page="+cstr(k-1)+"'>上一页</a>] "
else
henglist=henglist+"[首页] [上一页]"
end if
if k<>n then
henglist=henglist+"["+"<a href='index.asp?page="+cstr(k+1)+"'>下一页</a>] "
henglist=henglist+"["+"<a href='index.asp?page="+cstr(n)+"'>尾页</a>] "
else
henglist=henglist+"[下一页] [尾页]"
end if
henglist=henglist+""
Response.Write (henglist) '想要的地方就书写变量。

分页问题! 分页问题分页文件问题~~~~~~？求教ASP分页问题 .net 中的分页问题 asp分页问题？ ASP分页显示问题 asp分页的问题 jsp 分页出现问题 dw分页问题