📄 5_2.htm

📁 ASP 网页数据库短训教程源码

💻 HTM

字号:

<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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -