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

来源：百度知道编辑：UC知道时间：2024/09/24 12:32:06

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
%>

输出

<%
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
%>

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

asp中如何取得复选框内的多个选项的值 ASP如何判断复选框已选？ asp.net电子商务程序中如何实现多种产品的复选并提交到购物车? 如何在asp中写函数来实现插入复选框的功能啊使用ASP如何实现传递多个url 参数? 如何实现多个ASP程序的一站式整和?? asp中如何动态选中复选框 ASP中如何用VBSCRIPT实现复选框的全选 ASP中如何让表单的单选或者复选来实现数据库某个字段的是与非？ javascript如何判断多个复选框状态?