ASP中模拟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,"性别")
%>