<html>
<head><title>对象，函数和子程序的使用举例</title>
<meta http-equiv="content-type" content="text/html;charset=gb2312"></head>
<script language="vbscript">
sub window_onload
window.document.frm1.buynumber.focus()
end sub
sub callyourselect
sort=document.frm1.radiobutton.item(i).value
num=document.frm1.buynumber.value
if num="" then
response.write "请确定购买数量!"
else
for i=0 to 2
if document.frm1.radiobutton.checked then
response.write "您的选择是"&document.frm1.radiobutton.item(i).value&"!"_
&chr(10)&"您购买了"&document.frm1.button1.value&"千克,共计"_
&price(sort,num)&"元。"&chr(10)&"谢谢惠顾，欢迎下次光临！"
end if
next
end if
end sub
function price(k,j)
select case k
case "苹果"
price=3*j
case "香蕉"
price=4*j
case "西瓜"
price=2*j
end select
end function
</script>
<body bgcolor="#dfefff" text="30000ff">
<form method="post" name="frm1" enctype="multipart/form-data">
<p><font face="楷体—gb2312" size="+2">请选择您爱吃的水果！</font></p>
<table widht="50%" align="center" border="1" bordercolor="black">
<tr>
<td width="29%"><input type="radio" name="radiobutton" value="苹果">苹果？</td>
<td width="32%">产地：天水</td>
<td width="39%">3元/千克</td>
</tr>
<tr>
<td width="29%"><input type="radio" name="radiobutton" value="香蕉">香蕉？</td>
<td width="32%">产地：昆明</td>
<td width="39%">4元/千克</td>
</tr>
<tr>
<td width="29%"><input type="radio" name="radiobutton" value="西瓜">西瓜？</td>
<td width="32%">产地：兰州</td>
<td width="39%">2元/千克</td></tr>
</table>
<br>
<br>
<center>您需要选购<input type="text" name="buynumber" size="5">千克
<p ><input type="button" value="您的选择是" language="vbscript" onclick="callyourselect"></p>
</form>
</body>
</html>
当我输入数字并点击按钮后，浏览器底端就出现script error的提示。
原本程序中的response.write都应该为msgbox.
您所在位置：
sunlight426
[专家分：0] 发布于 2006-07-30 10:04:00 
小hei [专家分：730] 发布于 2007-01-06 22:19:00 
