ASP分页出现的问题
代码如下：<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><%SetdbConn=Server.CreateObject("ADODB.Con...
代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set dbConn = Server.CreateObject("ADODB.Connection")
dbconn.Open "webdata","sa","1234"
set dbRS=dbConn.Execute("select * from 新闻")
%>
<%
dbRS.PageSize = 2
zongye=dbRS.PageCount
if trim(request("page"))="" then
page=1
else
page=cint(request("page"))
end if
if page<=0 then page=1
dbRS.AbsolutePage=page
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>分页效果</title>
</head>
<body>
<% if dbRS.EOF and dbRS.BOF then
response.Write("暂时还没有文章")
else
for i=1 to dbRS.pagesize
if dbRS.EOF then : exit for : end if
%>
<a href="shownews.asp? num=<%=dbRS(0)%> &head=<%=dbRS(3)%> &tim=<%=dbRS(4)%> &data=<%=dbRS(2)%>"><%=dbRS(3)%></a>
<%
dbRS.MoveNext
next
end if%>
<%dbRS.close%>
<%dbConn.close%>
<%for i=1 to zongye %>
<a href="fenye.asp?page=<%=i%>"><%=i%></a>
<%next%></td>
</body>
</html>
问题是ADODB.Recordset (0x800A0CB3)
当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。
/cdgh/fenye.asp, 第 16 行
dbRS.AbsolutePage=page 这是第16行 展开
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set dbConn = Server.CreateObject("ADODB.Connection")
dbconn.Open "webdata","sa","1234"
set dbRS=dbConn.Execute("select * from 新闻")
%>
<%
dbRS.PageSize = 2
zongye=dbRS.PageCount
if trim(request("page"))="" then
page=1
else
page=cint(request("page"))
end if
if page<=0 then page=1
dbRS.AbsolutePage=page
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>分页效果</title>
</head>
<body>
<% if dbRS.EOF and dbRS.BOF then
response.Write("暂时还没有文章")
else
for i=1 to dbRS.pagesize
if dbRS.EOF then : exit for : end if
%>
<a href="shownews.asp? num=<%=dbRS(0)%> &head=<%=dbRS(3)%> &tim=<%=dbRS(4)%> &data=<%=dbRS(2)%>"><%=dbRS(3)%></a>
<%
dbRS.MoveNext
next
end if%>
<%dbRS.close%>
<%dbConn.close%>
<%for i=1 to zongye %>
<a href="fenye.asp?page=<%=i%>"><%=i%></a>
<%next%></td>
</body>
</html>
问题是ADODB.Recordset (0x800A0CB3)
当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。
/cdgh/fenye.asp, 第 16 行
dbRS.AbsolutePage=page 这是第16行 展开
2个回答
展开全部
set dbRS=dbConn.Execute("select * from 新闻")
改成
set dbRS=Server.CreateObject("ADODB.Recordset")
dbRS.open "select * from 新闻",dbConn,1,1
Connction对象的Execute方法返回的记录集是不支持分页的。
改成
set dbRS=Server.CreateObject("ADODB.Recordset")
dbRS.open "select * from 新闻",dbConn,1,1
Connction对象的Execute方法返回的记录集是不支持分页的。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
