asp复选框的默认

[qz362100]

有一组数据放在数据库里！！如果有选中就是默认值！！打勾的！！

[RobinBest]

以下是从数据表中读取婚否的例子

<% '假设数据表中有字段marriage
marriageA=""
marriageB=""
IF rs("marriage")="已婚" then
marriageA="checked"
ELSE
marriageB="checked"
END IF
%>
<!--以下在表单中引用-->
<INPUT type=radio value="未婚" <%=marriageB%> name="marriage">未婚
<INPUT type=radio value="已婚" <%=marriageA%> name="marriage">已婚

[qz362100]

但是如果我这个marriage是一个字符串比如1,2,3,4

[RobinBest]

qz362100:

你举一反个三嘛！

[qz362100]

<% set cn=server.CreateObject("adodb.Recordset")
sqll="select id,class_name from class "
cn.open sqll,conn,1,1
class_name=split(trim(rs("class")),",")

do while not cn.eof

for i=0 to ubound(class_name)
if cn("id")=class_name(i) then
CheckedShow="checked"
else
CheckedShow=""
end if
Next

%>

<input name="class" type="checkbox" value="<%=cn("id") %>" <%=CheckedShow%> />
<%=cn("class_name") %>
<%
cn.movenext
loop
cn.close
set cn=nothing
%>


这样子为什么不行啊！！！

[liooon]

内循环逻辑有错,自己再想想吧

[hspcyeling]

for i=0 to ubound(class_name)

if cn("id")=class_name(i) then
CheckedShow="checked"
else
CheckedShow=""
end if
%>
<input name="class" type="checkbox" value=" <%=cn("id") %>" <%=CheckedShow%> />
<%=cn("class_name") %>

<%
Next


cn.movenext
loop
cn.close
set cn=nothing
%>

[qz362100]

没有人回答啊

[webwoool]

checked

[tindy2002]

<input type=checkbox value=1 <%if instr(rs("marriage"),1)>0 then response.write "checked"%>>

[yoyoyuye]

<input type="checkbox" value="1" name="1" <%if rs("sex")=1 then response.write"checked"%>>1</input>

[xzx99]

以“01，02，03，04”而不用“1,2,3,4”保存 更合理：
http://blog.csdn.net/tsxnb/archive/2009/09/14/4550567.aspx