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

[my0707]

==============================================
<%
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


请高手帮忙！

[aspczlover]

<%
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
%>

[my0707]

感谢：efei(草不含羞)

问题解决！

[smallyear]

public property Get getRsCount(rs)

[surfchen]

class rs在哪里？

[Drowning]

这句private rs

你把rs拿到函数外面定义试试

[my0707]

class 里的rs为什么没有接收到外面传过来的rs变量值？

[efei]

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