ASP常用函数:LastDay()

程序代码

<%

'功能:判断一个值是否存在于数组

'来源:http://www.knowsky.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.knowsky.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

%>