程序代码
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
%>
程序代码
<%
功能:判断一个值是否存在于数组
Function InArray( sValue aArray )
Dim i
InArray = False
For i = To UBound( aArray )
If aArray(i) = sValue Then
InArray = True
Exit For
End If
Next
End Function
%>
