关于用ASP写CLASS的问题!急用.

my0707 2004-08-03 12:12:34
==============================================
<%
class test
private rs
private rscount
public property Let setRs(rs)
rscount=rs.recordcount
end property
public property Get getRsCount
getRsCount=rs.recordcount
end property
end class

connstr="provider=SQLOLEDB;Data Source=(local);database=mytest;user id=sa; password=123"
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
rs.open "select rq,val1,val2 from tb",conn,3,1

set t=new test
t.setRs=rs
response.write t.getRsCount
%>
==============================================

错误提示:
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'rs'

/WEB/bzhs/qst/test.asp,行9


请高手帮忙!
...全文
140 7 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
efei 2004-08-03
class test
private rs
public property Let setRs(vNewValue)
set rs = vNewValue
end property
public property Get getRsCount
getRsCount = rs.recordcount
end property
end class

set t = new test
t.setRs = rs
response.write t.getRsCount
  • 打赏
  • 举报
回复
my0707 2004-08-03
class 里的rs为什么没有接收到外面传过来的rs变量值?
  • 打赏
  • 举报
回复
Drowning 2004-08-03
这句private rs

你把rs拿到函数外面定义试试
  • 打赏
  • 举报
回复
surfchen 2004-08-03
class rs在哪里?
  • 打赏
  • 举报
回复
smallyear 2004-08-03
public property Get getRsCount(rs)
  • 打赏
  • 举报
回复
my0707 2004-08-03
感谢:efei(草不含羞)

问题解决!
  • 打赏
  • 举报
回复
aspczlover 2004-08-03
<%
class test
private rs
private rscount
public property Let setRs(rs)
rscount=rs.recordcount
end property
public getRsCount
getRsCount=rs.recordcount
end property
end class

connstr="provider=SQLOLEDB;Data Source=(local);database=mytest;user id=sa; password=123"
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
rs.open "select rq,val1,val2 from tb",conn,3,1

set t=new test
response.write t.getRsCount
%>
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
加入

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
申请成为版主
帖子事件
创建了帖子
2004-08-03 12:12
社区公告
暂无公告