程序代码

<%
'功能:判断一个值是否存在于数组
'来源:/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
%>

程序代码
<%
'功能:判断一个值是否存在于数组
'来源:/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
%>