网络编程
位置:首页>> 网络编程>> Asp编程>> ASP中模拟PHP的关联数组

ASP中模拟PHP的关联数组

作者:情留メ蚊子 来源:情留メ蚊子blog 发布时间:2009-12-25 16:31:00 

标签:函数,asp,参数,数组

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


0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com