UC知道麻烦看看这段asp翻页的代码哪里不对呀？谢谢~~
来源：百度知道 编辑：UC知道 时间：2024/09/21 04:21:03
刚开始学asp,好多问题呀。麻烦哪位高手看一下，主要是翻上一页，下一页那里的代码，按下一页的时候不起作用，按上一页的时候就出错，哪不对呀？？谢谢
<body>
<%
dim connstr,conn,mysql,rs,mypagesize,mypage,pgnm,counter,maxcount
mypage=request.querystring("whichpage")
if mypage="" then
mypage=1
end if
mypagesize=request.querystring("pagesize")
if mypagesize="" then
mypagesize=3
end if
mysql="select * from [user]"
set conn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db2.mdb")
conn.open()
rs.activeConnection=conn
rs.cursortype=1
rs.locktype=1
rs.open mysql
rs.movefirst()
rs.pagesize=mypagesize
maxcount=cint(rs.pagecount)
rs.absolutepage=mypage
howmanyrecs=3
response.write"当前页:" & mypa
<body>
<%
dim connstr,conn,mysql,rs,mypagesize,mypage,pgnm,counter,maxcount
mypage=request.querystring("whichpage")
if mypage="" then
mypage=1
end if
mypagesize=request.querystring("pagesize")
if mypagesize="" then
mypagesize=3
end if
mysql="select * from [user]"
set conn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db2.mdb")
conn.open()
rs.activeConnection=conn
rs.cursortype=1
rs.locktype=1
rs.open mysql
rs.movefirst()
rs.pagesize=mypagesize
maxcount=cint(rs.pagecount)
rs.absolutepage=mypage
howmanyrecs=3
response.write"当前页:" & mypa
给你一个简单的ASP分页代码:
数据库连接代码你自己写.
Page = Trim(Request.QueryString("Page"))
If Page&"" = "" Or Not IsNumeric(Page) Then Page = 1
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql = "Select UserName From [User]"
Rs.Open Sql,Conn,1,1
Rs.PageSize = 10
For II = 1 To Rs.PageSize * ( Page - 1 )
If Rs.Eof Then Exit For
Rs.MoveNext
Next
I = 1
Do While Not Rs.Eof
Response.Write(Rs("UserName")&"<br>")
I = I + 1
If I > Rs.PageSize Then Exit Do
Rs.MoveNext
Loop
Call DispCutPage("",Page,Rs.PageCount)
Rs.Close
Set Rs = Nothing
Set Conn = Nothing
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'作用：显示分页；
'参数：分页文字链接，当前页数字，全部页数字；
Public Sub DispCutPage(Alink,PageNum,AllPage)
Dim Sp
PageNum=Cint(PageNum)
I