推薦：ASP常用函數(shù):CheckBoxScript()
程序代碼 % '功能:用來在指定CheckBox的哪幾個(gè)值上打勾 '來源:http://www.cncms.com/asp.asp Function CheckBoxScript(ByVal FormElement , ByVal ElementValue) CheckBoxScript = scr ipt language=javascript type=text/Javascript vbCrLf String.PRototype. CheckBo

 程序代碼

<%
'功能:判斷一個(gè)值是否存在于數(shù)組
'來源: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
%>

 程序代碼
<%
'功能:判斷一個(gè)值是否存在于數(shù)組
'來源: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常用函數(shù):Str4Js()
程序代碼 % '功能:定義轉(zhuǎn)換為javascript字符串輸出(約定Javascript中，用單引號(hào)引用字符串) '來源:http://www.cncms.com/asp.asp Function Str4Js(sString) Str4Js = sString If IsNull(sString) Then Str4Js = : Exit Function Str4Js = Replace(Str4Js, \, \\) Str4J