ASP中模拟PHP的关联数组

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

所以我借鉴了PHP中传参方法，将所有参数放在数组中，传个数组得了。

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

<％
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,"性别")
％>