推薦：ASP常用函數(shù):Str4Js()
程序代碼 % '功能:定義轉(zhuǎn)換為javascript字符串輸出(約定Javascript中，用單引號(hào)引用字符串) '來(lái)源:http://www.cncms.com/asp.asp Function Str4Js(sString) Str4Js = sString If IsNull(sString) Then Str4Js = : Exit Function Str4Js = Replace(Str4Js, \, \\) Str4J

 程序代碼

<%
'功能:用來(lái)在指定CheckBox的哪幾個(gè)值上打勾
'來(lái)源:http://www.cncms.com/asp.asp

Function CheckBoxScript(ByVal FormElement , ByVal ElementValue)
  CheckBoxScript = "<scr" & "ipt language=""javascript"" type=""text/Javascript"">" & vbCrLf & "String.PRototype."
  CheckBoxScript = CheckBoxScript & "ReallyDo=function(){return this.replace(/(^\s*)|(\s*$)/g,"""");}" & vbCrLf
  CheckBoxScript = CheckBoxScript & "var Jorkin = """ & ElementValue & """.split("","");" & vbCrLf
  CheckBoxScript = CheckBoxScript & "for (i = 0; i < " & FormElement & ".length; i++){" & vbCrLf
  CheckBoxScript = CheckBoxScript & "  for (j = 0; j < Jorkin.length; j++){" & vbCrLf
  CheckBoxScript = CheckBoxScript & "　  if (Jorkin[j].ReallyDo() == " & FormElement & "[i].value.ReallyDo()){" & vbCrLf
  CheckBoxScript = CheckBoxScript & "　　  " & FormElement & "[i].checked = true } } }</scr" & "ipt>" & vbCrLf
End Function
%>

例子:

 程序代碼
<form name="Form1">
<input name="ReallyDo" type="checkbox" id="ReallyDo1" value="10" />10
<input name="ReallyDo" type="checkbox" id="ReallyDo2" value="20" />20
<input name="ReallyDo" type="checkbox" id="ReallyDo3" value="30" />30
<input name="ReallyDo" type="checkbox" id="ReallyDo4" value="40" />40
<input name="ReallyDo" type="checkbox" id="ReallyDo5" value="50" />50
</form>
<%=CheckBoxScript("Form1.ReallyDo","10,30, 50")%>

分享：ASP常用函數(shù):WriteLn() PrintLn()
程序代碼 % '功能:輸出字符串加換行 '來(lái)源:http://www.cncms.com/asp.asp Function WriteLn(sString) Response.Write( sString vbCrLf ) End Function % 程序代碼 % '功能:輸出字符串加HTML代碼br / '來(lái)源:http://www.cncms.com/asp.asp Function PRintLn(sString) Res