ASP中VBScript多个返回值的方法

    VBScript中的函数可以是Sub,也可以是Function,但Sub是没有返回值的,而Function只能有一个返回值。这一讲主要介绍如何借助其他手段使Function也能有多个返回值。

    方法1:借助Class

' 定义一个有多个变量成员的类  
Class MultiValue  
    Dim a, b, c  
End Class  
  
Function ClassMulti(param1, param2, param3)  
    Dim oClass  
    ' 实例化类    
    Set oClass = New MultiValue  
    oClass.a = param1  
    oClass.b = param2  
    oClass.c = param3  
     
    ' 指定函数返回为oClass对象  
    Set ClassMulti = oClass  
End Function  
  
Dim oClass  
Set oClass = ClassMulti("value1","value2","value3")  
  
  
Msgbox oClass.a & vbCrlf & oClass.b & vbCrlf & oClass.c  

    方法2:借助Dictionary对象

​
    VBScript中的函数可以是Sub,也可以是Function,但Sub是没有返回值的,而Function只能有一个返回值。这一讲主要介绍如何借助其他手段使Function也能有多个返回值。

' 定义一个有多个变量成员的类  
Class MultiValue  
    Dim a, b, c  
End Class  
  
Function ClassMulti(param1, param2, param3)  
    Dim oClass  
    ' 实例化类    
    Set oClass = New MultiValue  
    oClass.a = param1  
    oClass.b = param2  
    oClass.c = param3  
     
    ' 指定函数返回为oClass对象  
    Set ClassMulti = oClass  
End Function  
  
Dim oClass  
Set oClass = ClassMulti("value1","value2","value3")  
  
  
Msgbox oClass.a & vbCrlf & oClass.b & vbCrlf & oClass.c  

Function DictionaryMulti(param1, param2, param3)  
    Dim oDict  
    ' 创建字典对象  
    Set oDict = CreateObject("Scripting.Dictionary")  
    ' 增加键名和键值  
    oDict("a") = param1  
    oDict("b") = param2  
    oDict("c") = param3  
  
   ' 指定函数返回为Dictionary对象  
   Set DictionaryMulti = oDict  
End Function  
  
Dim oDict, sMsg  
Set oDict = DictionaryMulti("value1", "value2", "value3")  
  
  
' 遍历返回的Dictionary中的键  
For Each vKey In oDict  
    sMsg = sMsg & oDict.Item(vKey) & vbCrlf  
Next  
  
Msgbox sMsg  
​

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值