ASP常用函数:CheckBoxScript()技巧

程序代码s8b中国设计秀
<%s8b中国设计秀
'功能:用来在指定CheckBox的哪几个值上打勾s8b中国设计秀
'来源:http://www.knowsky.com/asp.asps8b中国设计秀

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

例子:s8b中国设计秀

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