5_2.htm

来自「ASP 网页数据库短训教程源码」· HTM 代码 · 共 26 行

HTM
26
字号
<HTML>
  <HEAD><TITLE>托运费计算</TITLE></HEAD>
  <BODY><H3>托运费计算</H3><HR>
    请输入行李重量:
    <input name="Text1" TYPE="TEXT" SIZE="10">&nbsp;kg&nbsp;&nbsp;
    <INPUT TYPE="Button" NAME="Button1"  VALUE="计算">
    <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
      w =  Text1.value
      If Not IsNumeric(w) Then
        MsgBox "您输入的不是数值数据"
      Else
        If w <= 50 Then
          x = 0.25 * w
        Else
          If w <= 100 Then
            x = 0.25 * 50 + 0.35 * (w - 50)
          Else
            x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w - 100)
          End If
        End If
        MsgBox "行李的托运费是:" & x & "元"
      End If
    </SCRIPT>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?