ASP常用函数:LastDay()

核心提示：程序代码<%'功能:判断一个值是否存在于数组'来源:http://www.cncms.com/asp.aspFunction InArray( sValue, aArray ) Dim x InArray = False For Each x In aArray If x = sValue

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