ASP常用函数:LastDay()

 程序代码

<%
'功能:判断一个值是否存在于数组
'来源: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
%>