ASP常用函數:CheckBoxScript()

推薦：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

程序代碼

<%

'功能:用來在指定CheckBox的哪幾個值上打勾

'來源: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常用函數:WriteLn() PrintLn()
程序代碼% '功能:輸出字符串加換行'來源:http://www.cncms.com/asp.asp Function WriteLn(sString) Response.Write( sString vbCrLf ) End Function % 程序代碼% '功能:輸出字符串加HTML代碼br / '來源:http://www.cncms.com/asp.asp Function PRintLn(sString) Res