在asp中调用vb组件，出错！

Question

vb组件代码：
sub GetInfo(byval Code as string,byref Name as string)
    Name="姓名"
end subasp中不能返回Name的值请大家帮忙看一下谢谢

Answer 1

sub GetInfo(byval Code as string) as string
    GetInfo="姓名"
end sub

Answer 2

byref Name as string
外部定义用
dim name as string
name = Space(20)
试试看

Answer 3

不用函数，用过程，用byref返回参数
sub GetInfo(byval Code as string,byref Name as string,byref Name1 as string)end sub
这样可以返回多个参数

Answer 4

好像ASP在调用VB写的DLL的时候，会强制用ByVal方法传递参数。
如果想一次反回多个值。可以这样：
比如要反回一个a和b 
在VB写控件的时候，定义两个全局变量：
public a as string
public b as string然后在过程里对这两个全局变量负值。
然后用直接在ASP里引用这个变量就行了。
比如：
set mytest=createobject("mytest.test")
mytest.getinfo("abcde","werwer")
response.write "第一个要得到的值：" & mytest.a
response.write "第二个要得到的值：" & mytest.b
set mytest=nothing