使用VB写ASP组件的朋友，你还在用ByRef传递参数吗？

看看微软的推荐吧： http://support.microsoft.com/kb/244012/zh-cn

下面的代码示例说明了各种方案，从而导致

类型不匹配

与方法调用从 Visual Basic 脚本使用 Visual Basic COM 组件的活动服务器页面 (ASP) 错误。

'VB Code : [Project=prjParam;Class=clsParam]
'By default,the parameter is passed 'ByRef'

Sub x( a as string )
   a = "Changed"
End Sub 

'ASP Code
k = "Hello"

'Create the above VB object

Set obj = Server.CreateObject("prjParam.clsParam")

obj.x k        'Type Mismatch error occurs

obj.x (k)      'Using ParaNTHESIS forces 'ByVal','k' does not change

Call obj.x (k) 'Type Mismatch error occurs

Call obj.x cstr(k)   'The CSTR function returns a string,'the address of the variable (k) is not passed.
                     'The value of 'k' doesn't change

Set obj = nothing
				

在以下条件，可能会导致错误的另一个示例：

'VB Code : [Project=prjParam;Class=clsParam]
'If you do not specify,by default the parameter is passed 'ByRef'
'Note: Parameter type is VARIANT

Sub y( a as variant )
   a = "Changed"
End Sub

'ASP Code
k = "Hello"

'Create the above VB object

Set obj = Server.CreateObject("prjParam.clsParam")

obj.y k        'changes 'k'

obj.y (k)      'Using ParaNTHESIS forces 'ByVal','k' doesn't change

Call obj.y (k) 'changes 'k'

Set obj = nothing
				

回到顶端

更多信息

VBScript 仅支持 VARIANT ByRef 参数。 您可以使用 VBScript 调用一个过程，该过程将 ByRef 字符串，但使用 Visual B...

有关更多的信息请单击下面文章编号，以查看 Microsoft 知识库中相应的文章：

197957 (http://support.microsoft.com/kb/197957/EN-US/ ) 通过到 VC COM 对象的引用 PRB： 传递参数

197956 (http://support.microsoft.com/kb/197956/EN-US/ ) 通过到 VB COM 对象的引用 PRB： 传递参数

174576 (http://support.microsoft.com/kb/174576/EN-US/ ) HOWTO： 返回在 ASP 的服务器端对象中的数组

218454 (http://support.microsoft.com/kb/218454/EN-US/ ) HOWTO： 实现数组参数在 VC COM 对象的活动服务器页面

217114 (http://support.microsoft.com/kb/217114/EN-US/ ) HOWTO： 实现数组参数在 Visual Basic COM 对象的活动服务器页面

回到顶端

这篇文章中的信息适用于:

• Microsoft Active Server Pages 4.0
• Microsoft Visual Basic 5.0 学习版
• Microsoft Visual Basic 6.0 学习版
• Microsoft Visual Basic 5.0 专业版
• Microsoft Visual Basic 6.0 专业版
• Microsoft Visual Basic 5.0 企业版
• Microsoft Visual Basic Enterprise Edition for Windows 6.0

回到顶端

关键字：	kbmt kbcodesnippet kberrmsg kbinfo KB244012 KbMtzh

原文地址：https://www.jb51.cc/vb/262034.html