我的组件为什么会出错?
我在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
请问是为什么?