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
%>