我的组件为什么会出错?

abc666 2004-11-30 12:27:28
我在vb中用class builder创建的class,有一个属性pp和方法mm

Private mvarpp As String 'local copy

Public Sub mm()
End Sub

Public Property Let pp(ByVal vData As String)
'used when assigning a value to the property, on the left side of an
assignment.
'Syntax: X.pp = 5
mvarpp = vData
End Property


Public Property Get pp() As String
'used when retrieving value of a property, on the right side of an
assignment.
'Syntax: Debug.Print X.pp
pp = mvarpp
End Property

编译成功,注册成功


================================================
在asp中如下调用时:

<%
set obj = server.createobject("project1.class1")

obj.mm()

%>

出现以下错误:



Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft VBScript 运行时错误 错误 '800a01b6'

对象不支持此属性或方法: 'mm'

/com/project1.asp,行17


请问是为什么?
...全文
68 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
位流 2004-11-30
<%
set obj = server.createobject("project1.class1")
obj.mm
%>





┈∴┈
位流
----------------------------
⊙⊙先锋⊙⊙

http://www.8asp.com
≡位流先锋≡专业建站≡
回复
abc666 2004-11-30
无人知?
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

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