无聊之作：ASP中模拟PHP的关联数组

ASP中给函数传参确实是个麻烦事，当参数个数特别多的时候（比如有七八个或者更多的参数个数）差不多就要眼冒金星了，一个个的数吧。而且要命的是参数位置必须不能有丁点错误。每次给函数传一大堆的参数时都让人觉得特无奈……

所以我借鉴了PHP中传参方法，将所有参数放在数组中，传个数组得了。虽然Scripting.Dictionary对象可以实现关联数组功能，但感觉太麻烦：

Set Dict= CreateObject("Scripting.Dictionary")

Dict.Add "a","AAA"

Dict.Add "b","BBB"

Dict.Add "c","CCC"

于是写了一个函数来实现类似于PHP中的关联数组：

'// 根据键获取伪关联数组的值

'// 若对应的键不存在则返回null

Public Function assArray(iArray,iKey)

if Not(isArray(iArray)) then

assArray = null

exit function

end if

Dim i,j,tmpArr

For i = 0 to UBound(iArray)

if instr(iArray(i),"=>") > 0 then

tmpArr = split(iArray(i),"=>")

if isArray(tmpArr) then

if UCase(Trim(tmpArr(0))) = UCase(Trim(iKey)) then

assArray = tmpArr(1)

exit function

end if

end if

end if

Next

assArray = null

End Function

 

'//使用举例：

Dim myArr : myArr = Array("myName => 姓名","myTel => 110","性别=>男")

Response.Write assArray(myArr,"myname") & assArray(myArr,"性别")