UC知道ASP分页问题?
来源：百度知道 编辑：UC知道 时间：2024/06/14 20:07:07
<%'数据库连接文件
dim conn,connstr,db1,startime
startime=timer()
db1="jj.mdb"
Set db = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db1)
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
db.Open connstr
sub closedb()
conn.close
set conn=nothing
end sub
%>
<%'打开记录集
dim strsql,rs,ab
set rs=server.createobject("adodb.recordset")
strsql="select * from announce"
rs.open strsql,conn,1,1
%>
<%'分页
'查询记录
If Not rs.Bof And Not rs.Eof Then
'以下主要为了分页显示
dim page_size '定义每页多少条记录变量
dim page_no '定义当前是第几页变量
dim page_total '定义总页数变量
dim page_to
page_size=10 '每页显示2条记录
'如果第一次打开，则page_no为1，否则由传回的参数决定
if Request.QueryString("page_no&qu
dim conn,connstr,db1,startime
startime=timer()
db1="jj.mdb"
Set db = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db1)
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
db.Open connstr
sub closedb()
conn.close
set conn=nothing
end sub
%>
<%'打开记录集
dim strsql,rs,ab
set rs=server.createobject("adodb.recordset")
strsql="select * from announce"
rs.open strsql,conn,1,1
%>
<%'分页
'查询记录
If Not rs.Bof And Not rs.Eof Then
'以下主要为了分页显示
dim page_size '定义每页多少条记录变量
dim page_no '定义当前是第几页变量
dim page_total '定义总页数变量
dim page_to
page_size=10 '每页显示2条记录
'如果第一次打开，则page_no为1，否则由传回的参数决定
if Request.QueryString("page_no&qu
应该是:rs.open strsql,db,1,1
你的connection对象名为:db
可能与你连接数据库的语句有关
你可以用连接数据库的类class来做处理
这是我常用的代码
很好用 与大家一起分享！！！
很独特哦！！呵呵！
'======================定义数据库类
Class Cls_Database
Public Conn,Db,Connstr
Public Sub LoadData()
Db="jj.mdb"
Connstr="Provider=Microsoft.Jet.Oledb.4.0;Data Source="&Server.MapPath(db)
End Sub
Public Sub Connect()
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open Connstr
End Sub
Public Function Execute(Sql)
Set Rs=Server.CreateObject("Adodb.Recordset")
If Isobject(Conn)=false then
Connect()
Rs.Open Sql,conn,1,3
Else
Rs.Open Sql,conn,1,3
End If
Set Execute=Rs
End Function
Public Sub Disconnect()
Conn.Close
Set Conn=Nothing
End S