Question

Vbscript：复选框中选中的值怎样赋值给一个变量？

下面为表单Html代码！
<p>你的爱好：
<input type="checkbox" name="enjoys" value="上网">
上网
<input type="checkbox" name="enjoys" value="音乐">
音乐
<input type="checkbox" name="enjoys" value=" 运动">
运动
<input type="checkbox" name="enjoys" value="看书">
看书</p>
<p>        其它
<input name="others" type="text" id="others">
</p>
<p>你的意见：<span class="STYLE38">*</span><br>
下面为ASP页面中Vbscript代码！
<%
dim i,others,aihao,a
for i=1 to request.form("enjoys").count'遍历每一个被选中的复选框
a=request.Form("enjoys")(i) & "," '将选中复选框的值赋值给变量a
next
others=request.form("others")'将其它文本框的值赋值给
aihao=a&others'将选中复选框的值和其它文本框的值连在一起给aihao
response.Write aihao
%>
其它的地方都没错误，就这
a=request.Form("enjoys")(i) & ","
一句有错误！我测试过了！我就想知道怎样将将选中复选框的值赋值给变量a！
不懂，高手给指点一下！

Answer 1

你的想法有问题。
解决方案：
Dim i ,others,aihao,a,arr

a=request.Form("enjoys")'所有的值存进a变量
arr=split(a,",")'把所有的值转为数组arr
for i=0 to ubound(arr)
response.write(arr(i))'输出所有复选框的值
next