[Import] common ASP functions: checkboxscript ()

<%
'Function: used to check the CheckBox values.
'Source: http://jorkin.reallydo.com/article.asp? Id = 465

Function CheckBoxScript (ByVal FormElement, ByVal ElementValue)
CheckBoxScript = "<scr" & "ept 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
%>

Example:
<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>

After </form>, use
<% = CheckBoxScript ("Form1.ReallyDo", "10, 30, 50") %>
If no Form is available
<% = CheckBoxScript ("document. getElementsByName (" "ReallyDo" ")", "10, 30, 50") %>

PS: do not check the checkbox by default.

Source: http://Jorkin.Reallydo.Com/default.asp? Id = 465