PHP里有in_array()函数搜索数组中是否存在指定的值。ASP系统函数里不具备这个函数，今天跟大家分享：ASP模仿PHP之InArray()函数的代码。

InArray的定义和用法

InArray()搜索数组中指定值并返回它的索引（如果没有找到则返回-1）

InArray的语法

InArray( value, array )
'value 必需。规定要在数组搜索的值。
'array 必需。规定要搜索的数组。

InArray()的说明

如果给定的值 value 存在于数组 array 中则返回 它的索引。

如果没有在数组中找到参数，函数返回 -1。

ASP模仿InArray()函数的代码

Function InArray(elem, arr)
    If IsArray(arr) then
        dim i
        For i = 0 to UBound(arr)
            If arr(i) = elem Then
                InArray = i
                Exit Function
            End If
        Next
    End if
    InArray = -1
End Function

InArray()函数的应用范例

dim arr
arr = array("Peter", "Joe", "Glenn", "qdxw")
InArray("Peter",arr) '0
InArray("peter",arr) '-1
InArray("qdxw",arr) '3
InArray("Pester",arr) '-1