ASP VBScript 函数 之返回多个值 By shawl.qiu

QUOTE:

ASP VBScript 函数 之返回多个值 By shawl.qiu

1. 数组方式返回多个值
2. 类方式返回多个值
3. 字典方式返回多个值

shawl.qiu
2006-8-14
  http://blog.csdn.net/btbtd

1. 数组方式返回多个值

1. linenum
2. <%     dim temp, ele
3.         temp="a,b,c,d,e"
4.     function fRtMltVal(str)
5.         fRtMltVal=split(str,",")
6.     end function 
7.     for each ele in fRtMltVal(temp)
8.         response.write ele&"<br/>"
9.     next 'u als kn chc mlt ar //shawl.qiu
10. %>

2. 类方式返回多个值

1. linenum
2. <% 
3.     class cVnt
4.         public val
5.         public val1
6.     end class
7.     function fRtMltVal()
8.         set fRtMltVal= new cVnt
9.             fRtMltVal.val="...val..."
10.             fRtMltVal.val1="...val1..."
11.     end function 'shawl.qiu code
12.         response.write fRtMltVal.val&"<br/>"&fRtMltVal.val1
13. %>

3. 字典方式返回多个值

1. linenum
2. <% 
3.     function fRtMltVal()
4.         set    dic=createObject("scripting.dictionary")
5.             dic.add "val", "...val"
6.             dic.add "val1", "...val1"
7.             dic.add "val2", "...val2"
8.         set    fRtMltVal=dic
9.     end function : dim dic 'shawl.qiu code
10.     set dic= fRtMltVal()
11.         response.write dic("val")&"<br/>"
12.         response.write dic("val1")&"<br/>"
13.         response.write dic("val2")
14.     set dic=nothing
15. %>