<script language="javascript">
function form1_Submit()
{
//获取选中的选项循环
var chkStr="";//存储选中项的字符串变量
for(var i=0;i<document.form1.t4.length;i++)
{
if(document.form1.t4[i].checked)//判断是否被选中
chkStr+=document.form1.t4[i].value+",";//将选中项的value获得
}
//限制用户必须选则一项
if(chkStr=="")
{
alert("至少选择一项");
return false;
}
//表单提交代码
document.form1.t4chk.value=chkStr;//将选中结果传回表单
document.form1.action=self.location.href;//设置表单提交地址为本页
document.form1.target='_self';//设置在当前框架提交
document.form1.submit();//表单提交方法
}
</script>
<%
'判断是否有内容提交过来
IF Request.Form("t4chk")<>"" Then
Dim tAry,tStr,i'变量声明
tStr=Request.Form("t4chk")'获得提交过来的内容
tStr=Mid(tStr,1,Len(tStr)-1)'修剪字符串以用来准备执行Split
tAry=Split(tStr,",")'用Split将字符串转换为字符串数组
'循环数组输出结果[UBound函数:求得数组长度]
Response.Write "选中的选项如下<Br><HR>"
For i=0 To UBound(tAry)
Response.Write tAry(i)&"<BR>"
Next
End IF
%>
<table>
<tr>
<td>
<form name="form1" method="post">
<INPUT type=checkbox value=人才招聘 name=t4>人才招聘
<INPUT type=checkbox value=在线付款 name=t4>在线付款
<INPUT type=checkbox value=下载系统 name=t4>下载系统
<input type=checkbox value=购物车系统 name=t4>购物车系统
<input type=checkbox value=论坛 name=t4>论坛
<textarea name="t55" cols="50" rows="5" id="t55">如其他系统功能，请在此填写
<INPUT type="hdden" name="t4chk" >
<input type="button" name="提交" onClick="form1_Submit();" />
</form>
</td>
</tr>
</table>
