ASP常用函数:LastDay()

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