asp 分页显示.但是有问题，请大侠们帮助啊

来源：百度知道 编辑：UC知道 时间：2024/09/22 16:33:04
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>合法用户界面</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY>
<div align="center">
<%
Set conn=Server.CreateObject("Adodb.Connection")
connstr="provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("myDSN.mdb")
conn.open connstr
Set rs=Server.CreateObject("Adodb.Recordset")
sql="Select username,phonenumber from phonelist"
rs.open sql,conn,1,1
%>
<%
rs.pagesize=5 '每页记录条数
curpage=Request.QueryString("curpage"

你写的代码很多地方不对啊
给你一段我自己写的分页函数，你自己参考下把
Function pageToView(rsThis,dataNum,pageStyle)
'在recordset.open后和recordset.close前使用
'pageToView(rs指针,显示数据数目,页码样式)
'//计算页码
Dim RecordCounts,PageCount,PageCode,toI,thisName
thisName = Request.ServerVariables("Document_name")
PageCode = Request.QueryString("page")
if not IsNumber(PageCode) or PageCode<=0 or PageCode<="0" then PageCode=1
RecordCounts = rsThis.RecordCount
rsThis.PageSize = dataNum
If RecordCounts mod rsThis.PageSize <>0 Then
PageCount = RecordCounts\rsThis.PageSize+1
Else
PageCount = RecordCounts\rs.PageSize
End if

If PageCode >= PageCount then PageCode = PageCount
rsThis.AbsolutePage = PageCode
'//输出页码和样式
Select case pageStyle
Case 1
Response.Write "<a href="""&thisName&"