| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 390 人关注过本帖
标题:checkbox用CheckBoxScript怎么用?
只看楼主 加入收藏
myou841103
Rank: 2
等 级:论坛游民
帖 子:30
专家分:46
注 册:2009-9-28
结帖率:66.67%
收藏
已结贴  问题点数:60 回复次数:1 
checkbox用CheckBoxScript怎么用?
error: 'String.PRototype' 为空或不是对象

我想实现的是编辑页面默认勾选之前添加页面所作的勾选.


下面id的人是勾选组长和村代表,即数据库czzmm那里是1,2

下面是代码:
村政治面貌

<input name="czzmm" type="checkbox" value="1" />组长
<input name="czzmm" type="checkbox" value="2" />村代表
<input name="czzmm" type="checkbox" value="3" />村民
<%
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


%>

<%
resultStr=rs("czzmm")--------------------'response.Write(resultstr)是1,2
<%=CheckBoxScript("edituser.czzmm",resultStr)%>
搜索更多相关主题的帖子: checkbox 
2010-11-06 20:28
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:60 
String.prototype
注意大小写
2010-11-08 12:05
快速回复:checkbox用CheckBoxScript怎么用?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050347 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved