Question

ASP如何实现多个复选框勾选

DataItem 是从 access数据库 中读取出来的
值为：
DataItem ="1,3,5,8"

然后我想 让 对应的值是1，3，5，8的项目的前面复选框勾选，不是的不勾。

<%
set rs=server.createobject("adodb.recordset")
rssm.open "select id,name from Value",conn,1,3
while not rs.eof

dim selok ' 如果读取到 从属分类的话 就选中
selok=""

DataItem ="1,3,5,8"

if instr(DataItem,",")>0 then
dim item,i
item=split(DataItem,",")

for i=1 to ubound(item)
if item(i)=rs("id") then
selok="checked"
''''response.write item(i)
exit for
end if
next
else
end if

response.write "<INPUT id=chk"&rs("id")&" value="&rs("id")&" type=checkbox name=fenlei "&selok&">"&rs("name")&" "&vbCrLf

rs.movenext
wend
%>

输出的HTML结果是
<INPUT id=chk1 value="1" type=checkbox name=fenlei >项目1
<INPUT id=chk2 value="2" type=checkbox name=fenlei >项目2
<INPUT id=chk3 value="3" type=checkbox name=fenlei >项目3
<INPUT id=chk4 value="4" type=checkbox name=fenlei >项目4
<INPUT id=chk5 value="5" type=checkbox name=fenlei >项目5
<INPUT id=chk6 value="6" type=checkbox name=fenlei >项目6
<INPUT id=chk7 value="7" type=checkbox name=fenlei >项目7
<INPUT id=chk8 value="8" type=checkbox name=fenlei >项目8
<INPUT id=chk9 value="9" type=checkbox name=fenlei >项目9

显示的是所有的复选框全没勾选，就连值为1，3，5，8的项目也是没勾选的

不知道是那个地方出错了。

如果回答好的可以加分

Answer 1

<%
set rs=server.createobject("adodb.recordset")
rssm.open "select id,[name] from [Value]",conn,1,3
dim selok ' 如果读取到 从属分类的话 就选中
dim item,i
while not rs.eof
DataItem ="1,3,5,8"
if instr(DataItem,",")>0 then
item=split(DataItem,",")
for i=0 to ubound(item)
selok=""
if clng(item(i))=clng(rs("id")) then
selok=" checked"
'response.write item(i)
exit for
end if
next
else

end if
response.write "<INPUT id=chk"&rs("id")&" value="&rs("id")&" type=checkbox name=fenlei"&selok&">"&rs("name")&" "&vbCrLf
rs.movenext
wend
%>

第一个来了 呵呵，楼主别忘了采纳了多加点儿分哦