ASP中模拟PHP的关联数组

最新推荐文章于 2021-04-08 15:12:45 发布

china_skag

最新推荐文章于 2021-04-08 15:12:45 发布

阅读量1.3k

点赞数

分类专栏： ASP 文章标签： php asp function null

本文链接：https://blog.csdn.net/china_skag/article/details/6915281

版权

ASP 专栏收录该内容

34 篇文章 0 订阅

订阅专栏

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