ASP常用函数:LastDay()_ASP教程

推荐：ASP常用函数:CheckBoxScript()
程序代码 % '功能:用来在指定CheckBox的哪几个值上打勾 '来源:http://www.cncms.com/asp.asp Function CheckBoxScript(ByVal FormElement , ByVal ElementValue) CheckBoxScript = scr ipt language=javascript type=text/Javascript vbCrLf String.PRototype. CheckBo

 程序代码

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

分享：ASP常用函数:Str4Js()
程序代码 % '功能:定义转换为javascript字符串输出(约定Javascript中，用单引号引用字符串) '来源:http://www.cncms.com/asp.asp Function Str4Js(sString) Str4Js = sString If IsNull(sString) Then Str4Js = : Exit Function Str4Js = Replace(Str4Js, \, \\) Str4J