📄 5_4.htm

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

💻 HTM

字号:

<HTML>
  <HEAD><TITLE>优惠价计算</TITLE></HEAD>
  <BODY><H3>优惠价计算</H3><HR>
    所购商品总金额：
    <INPUT name="Text1" TYPE="TEXT" SIZE="10">&nbsp;元<P>
    <INPUT TYPE="Button" NAME="Button1"  VALUE="计算">
    <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
      x = Text1.value
      If Not IsNumeric(x) Then MsgBox "您输入的不是数值数据" : Exit Sub
      If x < 1000 Then
        y = x
      ElseIf x < 2000 Then
        y = 0.95 * x
      ElseIf x < 3000 Then
        y = 0.9 * x
      ElseIf x < 5000 Then
        y = 0.85 * x
      Else
        y = 0.8 * x
      End If
      MsgBox "优惠价为：" & y & "元"
    </SCRIPT>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -