谁能给一个分页显示的例子，越单越好！！（分少是因为没有分了）
谁能给一个数据存取分页显示的例子，越单越好！！（分少是因为没有分了） 问题点数：0、回复次数：3Top
1 楼alexzhang00（三角猫）回复于 2003-12-03 19:23:38 得分 0
<%
Dim PageSize,PageCount,CurPage,i
PageSize = 20 '指定每页显示的条数
CurPage = Trim(Request.QueryString("page"))
If CurPage = "" Then
CurPage = 1
Else
CurPage = CInt(CurPage)
End If
Set rs = Server.CreateObject("ADODB.Recordset")
With rs
.Open "Select * from table order by id desc",adodbConnection,1,1
If .Eof and .Bof Then
.Close
Response.Write "No Record"
Response.End
End If
.PageSize = PageSize
PageCount = .PageCount
If .PageCount < CurPage Then
.AbsolutePage = .PageCount
Else
.AbsolutePage = CurPage
End If
For i = 1 to .PageSize
%>
这里写相关显示代码
<%
.MoveNext
If .Eof Then Exit For
Next
.Close
End With
Set rs = nothing
%>
<%
'这里是下一页，上一页部分
If CurPage > 1 Then
Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?page=" & CStr(CurPage - 1) & """>Prev Page</a> "
End If
If CurPage < PageCount Then
Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?page=" & CStr(CurPage + 1) & """>Next Page</a> "
End If
%>
Top
2 楼fuyungril（我要学习.net）回复于 2003-12-03 19:56:08 得分 0
<%rs1.pagesize=20
page=cint(request("page"))
allpages=rs1.pagecount
if isEmpty(page) or Cint(page)< 1 then
page=1
elseif Cint(page) > allPages then
page=cint(allPages)
end if
rs1.AbsolutePage=page
rowcount=rs1.pagesize%>
<%do while not rs1.eof and rowcount>0
rowcount=rowcount-1
rs1.MoveNext
Loop
end if
%>
共计<%=rs1.pagecount %>页
<% k=page
n=rs1.pagecount
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
response.write"转：<input size=5 maxlength=4 type=text name=page value="&page&">"
response.write "<input alt=页面跳转 name='query' type='submit' value='GO' >"
<%
rs.close
rs.MoveNext
Loop
end if
%>Top
3 楼shenlong69（赛特）回复于 2003-12-03 20:19:24 得分 0
<%
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
%>
<% rs.movenext
loop
%>
<%
response.write "请选择数据页:"
for i=1 to page_total
if page_no=i then
response.write i&" "
else
response.write "<a href='guest_index.asp?page_no="&i&"'>"&i&"</a> "
end if
next
%>Top
