[导入]ASP常用函数:CheckBoxScript()

最新推荐文章于 2025-09-12 16:56:45 发布

weixin_33948416

最新推荐文章于 2025-09-12 16:56:45 发布

阅读量53

点赞数

CC 4.0 BY-SA版权

文章标签： javascript ViewUI

原文链接：http://www.cnblogs.com/pboy2925/archive/2008/02/23/1105397.html

本文介绍了一种通过脚本批量设置HTML表单中CheckBox选中状态的方法。使用自定义函数CheckBoxScript，开发者可以指定一系列值，使得对应值的CheckBox被选中。此方法适用于需要预设CheckBox状态的场景。

<%
'功能:用来在指定CheckBox的哪几个值上打勾
'来源:http://jorkin.reallydo.com/article.asp?id=465

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")%>