28,391
社区成员
发帖
与我相关
我的任务
分享为什么执行时发生错误？
<html>
<head>
<title>对象、函数和子程序的使用举例</title>
<meta http-equiv="countent-type" content="text/html;charset=gb2312">
</head>
<body bgcolor="#dfefff"text="#0000ff">
<script language="vbscript">
sub window_onload
window.document.frml.buynumber.focus()
end sub
sub yourselect()
sort=document.frml.radiobutton.item(i).value
num=document.frml.buynumber.value
if num=" "then
msgbox"请确定购买数量！"
elseif num<>""then
for i=0to2
if document.frml.radiobutton.item(i).checked then
msgbox“您的选择是"&document.frml.radiobutton.item(i).value&"!"
&chr(10)&"您购买了"&document.frml.buynumber.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
cnd function
</script>
<form method="post" name="frml" enctype="multipart/form-data">
<p><font face="楷体_GB2312"size="+2">请选择您爱吃的水果!</font></p>
<bable width="45" border="1"bordercolor="#663399" align="center">
<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="西瓜"checked>西瓜?</td>
<td width="32%">产地:兰州</td>
<td width="39%">
<p>2元/千克</p>
</td>
</tr>
</table>
<p>您需要选购
<input type="text" name="buynumber" size"5">
千克
<input type="button" name="button1" value="您的选择是"language="vbscript" onclick="call yourselect()">
</p>
</form>
</body>
</html>
存成.asp后，在服务器上运行时点击“你的选择是”按钮，提示63行出错，请问是哪错了？
<head>
<title>对象、函数和子程序的使用举例</title>
<meta http-equiv="countent-type" content="text/html;charset=gb2312">
</head>
<body bgcolor="#dfefff"text="#0000ff">
<script language="vbscript">
sub window_onload
window.document.frml.buynumber.focus()
end sub
sub yourselect()
sort=document.frml.radiobutton.item(i).value
num=document.frml.buynumber.value
if num=" "then
msgbox"请确定购买数量！"
elseif num<>""then
for i=0to2
if document.frml.radiobutton.item(i).checked then
msgbox“您的选择是"&document.frml.radiobutton.item(i).value&"!"
&chr(10)&"您购买了"&document.frml.buynumber.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
cnd function
</script>
<form method="post" name="frml" enctype="multipart/form-data">
<p><font face="楷体_GB2312"size="+2">请选择您爱吃的水果!</font></p>
<bable width="45" border="1"bordercolor="#663399" align="center">
<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="西瓜"checked>西瓜?</td>
<td width="32%">产地:兰州</td>
<td width="39%">
<p>2元/千克</p>
</td>
</tr>
</table>
<p>您需要选购
<input type="text" name="buynumber" size"5">
千克
<input type="button" name="button1" value="您的选择是"language="vbscript" onclick="call yourselect()">
</p>
</form>
</body>
</html>
存成.asp后，在服务器上运行时点击“你的选择是”按钮，提示63行出错，请问是哪错了？
...全文
请发表友善的回复…
发表回复
