ASP分页问题错误大家看看

来源：百度知道 编辑：UC知道 时间：2024/05/13 04:17:34
<%page=1 '设置变量初始值PAGE=1
page=request.querystring("page") 'page值为接受值
diaryrs.PageSize =5 '每页显示记录数
if Not IsEmpty(trim(Request("Page"))) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > diaryrs.PageCount then '如果接收的页数大于总页数
diaryrs.AbsolutePage = diaryrs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
diaryrs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = diaryrs.AbsolutePage
for i=1 to diaryrs.pagesize%>

<% diaryrs.movenext
'if diaryrs.eof then
'exit
'end if这边要是没有注释掉就提示错误无效的 'exit' 语句
'/rlby/lover/diary00.asp, line 79, column 4
'exit
'---^

next %>
<%
Response.Write"共条"&diaryrs.recordcount&"记录 "
Response.Write"共"&d

<%
dim RsRecordCount,RsPageSize,RsPageNum
dim rs, conn, sql
dim page
dim i
RsPageSize = 10
page = Request.QueryString("page")
on error resume next
if page <> "" then
page = Clng(page)
else
page = 1
end if
if err.number <> 0 then
err.Clear
page = 1
end if

set conn = Server.CreateObject("Adodb.Connection")
conn.Mode = 1
conn.ConnectionString = ConnStr '修改这个数据库连接串
conn.Open
set rs = Server.CreateObject("Adodb.RecordSet")
rs.CursorType = 3
rs.CursorLocation = 3
rs.LockType = 1
rs.CacheSize = 5

sql = "" '修改SQL语句

rs.Open sql, conn
if rs.EOF and rs.BOF then
Response.Write "没有记录"
else
rs.PageSize = RsPageSize
rs.AbsolutePage = page
RsPageNum = rs.PageCount
RsRecordCount = rs.RecordCount
i = 0
do while no