如何在ASP中判断复选框是否已被选中

怎么在ASP中判断复选框是否已被选中？

VBScript code

<%sql="select * from rights"set rs=server.CreateObject("adodb.recordset")rs.open sql,conn,1,1if not rs.eof then    rights=rs.getrows()end ifrs.close():set rs=nothingsql="select * from rightuser where username='小明'"set rs=server.CreateObject("adodb.recordset")rs.open sql,conn,1,1do while not rs.eof    userrights=userrights & rs("rid") & ","    rs.movenextlooprs.close():set rs=nothing%><style>table{ width:100%; border-collapse:collapse; border-spacing:0;}td{ border:1px solid red;}</style><form action="" method="post" name="form1"><table ><tr><td>用户</td><td>权限</td></tr><tr><td>李明</td><td><%userrights="," & userrightsfor i=0 to ubound(rights,2)%><input type="checkbox" name="cbox" value="<%=rights(0,i)%>"  <%if instr(userrights,"," & rights(0,i) & ",")>0 then%>checked<%end if%>/><%=rights(1,i)%><input type="text" name="rtext" value="<%=rs("rname")%>"/><%next%></td></tr><tr><td><input type="hidden" value="1" name="flag"><input type="submit" value="修改权限"></td></tr></table></form><%If request.form("flag")=1 Then'如果提交了表单'获取表单数据Dim cboxcbox=Trim(request.form("cbox"))'先删除用户所有权限，再插入选中的权限sql="delete from rightuser where username='小明'"'清空该用户的权限conn.execute(sql)If cbox<>"" Then'有选中权限，则插入选中的权限    If InStr(cbox,",")>0 Then'当前选中多项        cbox=Split(cbox,",")        For i=0 To UBound(cbox)            sql="insert into rightuser(rid,username) values ("&cbox(i)&",'小明')"            conn.execute(sql)        next        Else'当前只选中一项        sql="insert into rightuser(rid,username) values ("&cbox&",'小明')"        conn.execute(sql)    End If End If     End If %>

以下是数据库表：

表名1：rights
字段：rid　　　rname

rid　　　rname　　　
 1　　　系统设置　　　
 2　　　登陆设置　
 3　　　人员管理　　
 4　　　考勤管理　　
 5　　　权限分配　　
 6　　　数据管理　


-----------------------------

表名2：rightuser
字段：ruid　　　rid　　　username

ruid　　　rid　　　rname　　　username
 1　　　　3　　　人员管理　　　小张
 2　　　　1　　　系统设置　　　小明
 3　　　　6　　　数据管理　　　小王
 4　　　　3　　　人员管理　　　小明
 5　　　　4　　　考勤管理　　　小张
 6　　　　2　　　登陆管理　　　小明　　　




现在要做的就是修改以上ASP代码，将已选中的rname也添加到rightuser表中。



[解决办法]

VBScript code

sql="insert into rightuser(rid,username, rname) select rid, '小明', rname from rights where rid=" & cbox
[解决办法]
探讨

VBScript code
sql="insert into rightuser(rid,username, rname) select rid, '小明', rname from rights where rid=" & cbox
 

 

查看更多 下一篇