yms123您好：

素未平生，请您帮助我，按照以下的问题，帮我写个例子，一个显示页面，一个保存页面！谢谢！

请教关于复选框的问题,是这样的

一个页面的一个<form><form>里有2组各三个复选框□,共6个
拿一组来说明：选中赋值为1，未选赋值为0，把这三个值 （如101）写入数据库德一个字段，第二次在用这个页面的这三个复选框显示数据库里这个字段的值，（1显示√）

[CODE]<script language=JavaScript>
function btnA_Click()
{
alert('复选框组1选择了'+reStr(document.chkF.chkA));
alert('复选框组2选择了'+reStr(document.chkF.chkB));
}
function reStr(chkT)
{
var reTSt;
reTSt="";
for(var i=0;i<chkT.length;i++)
{
if(chkT[i].checked)
reTSt+="1";
else
reTSt+="0";
}
return reTSt;
}
</script>
<form name=chkF >
复选框组1
<input type=checkbox name=chkA >
<input type=checkbox name=chkA >
<input type=checkbox name=chkA >
复选框组2
<input type=checkbox name=chkB >
<input type=checkbox name=chkB >
<input type=checkbox name=chkB >
<input type=button name=btnA onClick=btnA_Click() value=确定 >
</form>[/CODE]
先得到值写入数据库，
数据库中判断
读取后判断1和0就可以实现了
<%
Dim i
For i=1 To Len(rs("neirong"))
IF Mid(rs("neirong"),i,1)=0 Then
Response.Write "<input type=checkbox name=chkA >"
Else
Response.Write "<input type=checkbox name=chkA checked >"
End IF
Next
%>

[此贴子已经被作者于2006-7-7 10:40:54编辑过]

谢谢！

[此贴子已经被作者于2006-7-7 12:10:27编辑过]

把表单提交了就可以，在ASP页面中写进数据库里了。

[此贴子已经被作者于2006-7-7 21:35:47编辑过]

顶版主，能否给提交到数据库里的asp文件。谢谢，小弟初学者，最好把数据库里的字段值也列一下，谢了

不错！收藏中

提交到服务器页面后可以用ADODB来写入数据库信息。
客户端网页代码
<script language=JavaScript>
function btnA_Click()
{
alert('复选框组1选择了'+reStr(document.chkF.chkA));
alert('复选框组2选择了'+reStr(document.chkF.chkB));
document.chkF.SubA.value=reStr(document.chkF.chkA);
document.chkF.SubB.value=reStr(document.chkF.chkB);
document.chkF.submit;//用此语句放在函数最后将结果提交到服务器的ASP页面。
}
function reStr(chkT)
{
var reTSt;
reTSt="";
for(var i=0;i<chkT.length;i++)
{
if(chkT[i].checked)
reTSt+="1";
else
reTSt+="0";
}
return reTSt;
}
</script>
<form name=chkF method=post action=abc.asp >
复选框组1
<input type=checkbox name=chkA >
<input type=checkbox name=chkA >
<input type=checkbox name=chkA >
<input type=hidden name=SubA >
复选框组2
<input type=checkbox name=chkB >
<input type=checkbox name=chkB >
<input type=checkbox name=chkB >
<input type=hidden name=SubB >
<input type=button name=btnA onClick=btnA_Click() value=确定 >
</form>
服务器的ASP处理页面
<%
'Access版数据库为例。
Dim con
Dim rs
DbPath="[数据库的URL地址]"
ConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DbPath)&";Persist Security Info=False"
con.Open ConStr
rs.Open "select * from [要添加的表名称]",con,1,3
rs.AddNew'增加数据记录
rs.Fields("[表里的某个列名称]").value=Request.From("SubA")
rs.Fields("[表里的某个列名称]").value=Request.From("SubB")
rs.Update
rs.Close
con.Close
Set rs=Nothing
Set con=Nothing
%>