这个那里错了,在线等!!
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>无标题文档</title>
<script language="VBScript" type="text/vbscript">
sub pid()
for i=1 to document.froms(i).a1.length-1
if document.froms(0).a1(i).checked then
if isnull(document.forms(0).b2(i).value) then
msgbox"meiyou"
else
t=t+document.forms(0).b2(i).value
end if
end if
next
t=document.forms(0).c1.value
end sub
</script>
</head>
<body>
<h1 align="center">商品选购</h1>
<hr>
<form>
<input type="checkbox" name="a1" value="no">书 <input type="text" name="b1" size="8"><br>
<input type="checkbox" name="a1" value="no">鞋 <input type="text" name="b1" size="8"><br>
<input type="checkbox" name="a1" value="no">食品 <input type="text" name="b1" size="8"><br>
<input type="button" value="总值" onClick="pid()"> <input type="text" name="c1" size="10"></form>
</body>
</html>
