我的组件为什么会出错?

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


请问是为什么?
...全文
120 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
位流 2004-11-30
  • 打赏
  • 举报
回复
<%
set obj = server.createobject("project1.class1")
obj.mm
%>





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

http://www.8asp.com
≡位流先锋≡专业建站≡
abc666 2004-11-30
  • 打赏
  • 举报
回复
无人知?

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧