ASP常用函數:LastDay()

　　程序代碼

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

　　
 程序代碼
<%
功能:判斷一個值是否存在於數組

　　Function InArray( sValue aArray )
  Dim i
  InArray = False
  For i = To UBound( aArray )
  If aArray(i) = sValue Then
  InArray = True
  Exit For
  End If
  Next
End Function
%>

From:http://tw.wingwit.com/Article/program/net/201311/14156.html