<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("lesson.mdb")
exec="select * from movie "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
if not rs.bof and not rs.eof then
dim page_size,page_no,page_total
page_size=5
if request.querystring("page_no")="" then
page_no=1
else
page_no=cint(request.querystring("page_no"))
end if
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_no
%>

<%
dim i
i=page_size
do while not rs.eof and i>0
i=i-1
response.write rs("movie_name")&"<br>"
rs.movenext
loop

response.write"请选数据页"
for i=1 to page_total
if i=page_no then
response.write I&"&nbsp"
else
response.write "<a href='list.asp?page_no="&i&"'>"&i&"</a>&nbsp"
end if
next
else
response.write "没有记录"
end if
%>
<br>
<a href="list.asp?page_no=1">首页</a>

哪位大哥 帮我把下一页 上一页 最后一页 跳转 的代码完成

[此贴子已经被作者于2005-10-1 18:01:07编辑过]

不是一句两句说完的
下个留言薄看看，那最能解释你的疑问

这是我前几段时间写的代码： <% '*********************************************** '过程名：showpage '作 用：显示“上一页 下一页”等信息 '参 数：sfilename ----链接地址 ' totalnumber ----总数量 ' maxperpage ----每页数量 ' ShowTotal ----是否显示总数量 ' ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。 ' strUnit ----计数单位 '*********************************************** sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit) dim n, i,strTemp,strUrl if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if strTemp= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "'><tr><td>" if ShowTotal=true then strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "&nbsp;&nbsp;" end if strUrl=JoinChar(sfilename) if CurrentPage<2 then strTemp=strTemp & "首页 上一页&nbsp;" else strTemp=strTemp & "<a href='" & strUrl & "page=1'>首页</a>&nbsp;" strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一页</a>&nbsp;" end if

if n-currentpage<1 then strTemp=strTemp & "下一页 尾页" else strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a>&nbsp;" strTemp=strTemp & "<a href='" & strUrl & "page=" & n & "'>尾页</a>" end if strTemp=strTemp & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 " strTemp=strTemp & "&nbsp;<b>" & maxperpage & "</b>" & strUnit & "/页" if ShowAllPages=True then strTemp=strTemp & "&nbsp;转到：<select name='page' size='1' onchange='javascript:submit()'>" for i = 1 to n strTemp=strTemp & "<option value='" & i & "'" if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected " strTemp=strTemp & ">第" & i & "页</option>" next strTemp=strTemp & "</select>" end if strTemp=strTemp & "</td></tr></form></table>" response.write strTemp end sub %> 下面是该方法如何调用 当然里面的这些参数还要经过传递，还要结合另外一个函数来使用。因为另外一个函数代码太长了，不是很方便上贴，怕大家反感，如果真的有兴趣可以加我QQ：272038088，本人愿意为你解决。 <% if totalput>0 then call showpage(strFileName,totalput,MaxPerPage,false,true,strUnit) end if %>