程序代碼
<%
'功能:判斷一個值是否存在于數組
'來源:http://www.49028c.com/asp.asp

Function InArray( sValue, aArray )
    Dim x
    InArray = False
    For Each x In aArray
        If x = sValue Then
            InArray = True
            Exit For
        End If
    Next
End Function
%>

 程序代碼
<%
'功能:判斷一個值是否存在于數組
'來源:http://www.49028c.com/asp.asp

Function InArray( sValue, aArray )
    Dim i
    InArray = False
    For i = 0 To UBound( aArray )
        If aArray(i) = sValue Then
            InArray = True
            Exit For
        End If
    Next
End Function
%>