5_5.htm

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

HTM

26 行

<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
      Select Case True
        Case x < 1000
          y = x
        Case x >= 1000 And x < 2000
          y = 0.95 * x
        Case x >= 2000 And x < 3000
          y = 0.9 * x
        Case x >= 3000 And x < 5000
          y = 0.85 * x
        Case Else
          y = 0.8 * x
      End Select
      MsgBox "优惠价为：" & y & "元"
    </SCRIPT>
  </BODY>
</HTML>

5_5.htm - 源码说明

本页面展示了「ASP 网页数据库短训教程源码」中的 5_5.htm 源码文件，采用 HTM 编程语言编写，共 26 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?