ASP常用函数:LastDay()技巧

程序代码ofU中国设计秀
<%ofU中国设计秀
'功能:判断一个值是否存在于数组ofU中国设计秀
'来源:http://www.knowsky.com/asp.aspofU中国设计秀

Function InArray( sValue, aArray )ofU中国设计秀
    Dim xofU中国设计秀
    InArray = FalseofU中国设计秀
    For Each x In aArrayofU中国设计秀
        If x = sValue ThenofU中国设计秀
            InArray = TrueofU中国设计秀
            Exit ForofU中国设计秀
        End IfofU中国设计秀
    NextofU中国设计秀
End FunctionofU中国设计秀
%>ofU中国设计秀

ofU中国设计秀
 程序代码ofU中国设计秀
<%ofU中国设计秀
'功能:判断一个值是否存在于数组ofU中国设计秀
'来源:http://www.knowsky.com/asp.aspofU中国设计秀

Function InArray( sValue, aArray )ofU中国设计秀
    Dim iofU中国设计秀
    InArray = FalseofU中国设计秀
    For i = 0 To UBound( aArray )ofU中国设计秀
        If aArray(i) = sValue ThenofU中国设计秀
            InArray = TrueofU中国设计秀
            Exit ForofU中国设计秀
        End IfofU中国设计秀
    NextofU中国设计秀
End FunctionofU中国设计秀
%>ofU中国设计秀