分页显示有错,求救了!!!

George96 2001-07-26 08:33:47
代码如下:

<% Dim currentPage,rowcount,i
currentPage=Trim(request("currentPage"))
if currentPage="" then currentPage = 1
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "DSN=test;UID=sa;PWD=test;DATABASE=test"
Set RS=server.CreateObject("ADODB.RecordSet")
RS.CursorType =adOpenStatic
RS.PageSize =5
RS.Open "select userid,email,regidate,fee_flag,fee_date,set_flag from user_info",Con
RS.AbsolutePage = cINT(currentPage)
rowcount=0
%>
.......
<% for i=1 to RS.PageCount%>
<font color=White> <a href="manage.asp?currentPage=<%=i%>"><%=i%> </a></font>
<%
next
%>

总是提示:RS.AbsolutePage=cINT(currentPage)
这一行出错:错误类型:
ADODB.Recordset (0x800A0CB3)
...全文
30 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tripofdream 2001-07-26
RS.CursorType =adOpenStatic
常量adOpenStatic没定义
改成RS.CursorType=3或把adovbs.ini包含进来
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2001-07-26 08:33
社区公告
暂无公告