收录日期:2021/01/21 22:08:14 时间:2016/05/12 04:21:46 标签:ASP
程序如下。但是当我选一种水果,并输入斤数,按   你的选择安钮是,为何没有反应呢?<html>
<head>
<title>对象,函数和子程序的使用举例</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
</head>
<body bgcolor="#DFEFFF" text="#0000FF">
<script language="VBScript">
Sub window_load
    window.document.frm1.buynumber.focus()
End Sub
Sub yourSelect()
    Sort=document.frm1.radiobutton.item(i).value
    Num=document.frm1.buynumber.value
    if Num="" then
    Msgbox"请确定购买数量!"
    elseif Num<>"" then
     for i=0 to 2
     if document.frm1.radiobutton.item(i).checked then
     MsgBox"您的选择是"&document.frm1.radiobutton.item(i).value&"!"
     &chr(10)&"您购买了"&document.frm1.buynumber.value&"千克,共计"
     "&Price(Sort,Num)&"元。"&chr(10)&"谢谢惠顾,欢迎下次光临!"
     End if
   next
End if
End sub
Function Prick(k,j)
Select Case k
       Case"苹果"
         Price=3*j
       Case "香蕉"
          Price=4*j
       Case "西瓜"
          Price=2*j
End Select
End Function
</script>
<form method="post" name="frm1" enctype="multipart/form-data">
  <p><font face="楷体_GB2312" size="+2">请选择您爱吃的水果!</font></p>
  <table 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="西瓜">
          西瓜?</td>
        <td width="32%">产地:兰州</td>
        <td width="39%"> 2元/千克</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>

<form method="post" name="frm1" enctype="multipart/form-data">
--------
<form method="post" name="frm1" action="你要提交的页面">
<form method="post" name="frm1" enctype="multipart/form-data" action="你要提交的页面">
<input type="button" name="button1" value="您的选择是" onClick ="vbscript:yourSelect()">
改成这样就OK,测试通过

<head>
<title>对象,函数和子程序的使用举例</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
</head>
<body bgcolor="#DFEFFF" text="#0000FF">
<script language="VBScript">
Sub window_load
    window.document.frm1.buynumber.focus()
End Sub
Sub yourSelect
    Sort=document.frm1.radiobutton.item(i).value
    Num=document.frm1.buynumber.value
  
if Num="" then
    Msgbox"请确定购买数量!"
    elseif Num<>"" then
     for i=0 to 2
 
  Select Case frm1.radiobutton.item(i).value
       Case"苹果"
         Price=3*Num
       Case "香蕉"
          Price=4*Num
       Case "西瓜"
          Price=2*Num
      End Select
     if document.frm1.radiobutton.item(i).checked then
    MsgBox"您的选择是"&document.frm1.radiobutton.item(i).value&"!您购买了"&document.frm1.buynumber.value&"千克,共"&price&"元。谢谢惠顾,欢迎下次光临!"
     End if
   next
End if
End sub
End Function
</script>
<form method="post" name="frm1" enctype="multipart/form-data">
  <p><font face="楷体_GB2312" size="+2">请选择您爱吃的水果!</font></p>
  <table 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="西瓜">
          西瓜?</td>
        <td width="32%">产地:兰州</td>
        <td width="39%"> 2元/千克</td>
   </tr>
   </table>
   <p>您需要选购
      <input type="text" name="buynumber" size="5">
       千克
  <input type="button" name="button1" value="您的选择是" onClick ="vbscript:yourSelect()">
  </p>
  </form>
</body>
</html>
to cshadow
我粘了你改的,但还是不行,你的机子上能运行吗?难道是我机子的原因吗?
那又是什么原因呢?
我这里已经测试正确了,你要全部贴过来,因为很多地方改动

通用函数应当写在那个页面中? ASP提交处理信息出现错误,查不出在那里处理错误 Swing为什么自动退出? jsp读取数据库的错误信息 关于注册表函数RegQueryValueEx问题 为什么每次用shutdown normal都会没有响应 高手朋友们帮忙 关于static的问题 不伦不类的问题:JAVA能自学好吗~肯定不伦不类~!!!!! 一个排列问题 请教一个问题 报表Data Dynamics AcitieReports 用代码实现换页问题 在线等,一个java转c#表达方式的小问题,急。 如何获得当前的CPU状态,与当前的内存大小(急!!!) 请问大家谁知道哪里有用dom操作xml的完整例子(vb或asp语言都可以),包括增删改查? 请教关于VsFlexGrid的编译后在别的机器运行的问题 用哪种类型来存放图形数据 关于明暗的问题 帮我看下sql语句该怎么写? 关于wps的二次开发问题(宏和图表)附delphi生成并执行excel宏的方法 看着那几天回复都不变一下的帖子痛心啊,linux版没斑竹吗?没高手吗? 关于主键的问题! menuItem2_Click 推荐一款access(jet sql)调试工具,谢谢! 在datagrid控件中选定多行,一起删除 心情郁闷``散分`` Asp邮件群发怎样用多线程分组发送 Asp.net中ListBox中的选中项能实现复制吗? 关于ORALCE中的空格 ON [PRIMARY] 的三种区别? 在jsp页面中调用javaBean属性为什么是null值?(50分)