[导入]ASP常用函数:InArray2()

未完,测试中...

<%
'功能:判断一个变量是否在于一个二维数据的某列
'来源:http://jorkin.reallydo.com/article.asp?id=482
'需要Bint函数:http://jorkin.reallydo.com/article.asp?id=395

Function InArray2(ByVal sValue, ByVal aArray(), ByVal iColumn, ByVal bCompare)
    On Error Resume Next
    Dim i, j
    InArray2 = False
    i = Bint(iColumn)
    If i < 0 Or i > UBound(A) Then
        Exit Function
    End If
    For j = 0 To UBound(A, 2)
        If StrComp(sValue, A(i, j), bCompare) = 0 Then
            Response.Write(A(i, j) & "<br />")
            InArray2 = True
            Exit Function
        End If
    Next
End Function
%>

文章来源: http://Jorkin.Reallydo.Com/default.asp?id=482