📄 lx5_2.htm

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

💻 HTM

字号:

<HTML>
  <HEAD><TITLE>汉英对照</TITLE>
    <SCRIPT LANGUAGE="VBScript">
      Function MyDay(n)
        Select Case n
          Case 0
            MyDay = "星期日" & Chr(13) & "Sunday"
          Case 1
            MyDay = "星期一" & Chr(13) & "Monday"
          Case 2
            MyDay = "星期二" & Chr(13) & "Tuesday"
          Case 3
            MyDay = "星期三" & Chr(13) & "Wednesday"
          Case 4
            MyDay = "星期四" & Chr(13) & "Thursday"
          Case 5
            MyDay = "星期五" & Chr(13) & "Friday"
          Case 6
            MyDay = "星期六" & Chr(13) & "Saturday"
        End Select
      End Function
    </SCRIPT>
  </HEAD>
  <BODY><H3>显示汉英对照星期名</H3><HR>
    请输入一个0～6之间的整数：
    <input name="Text1" TYPE="TEXT" SIZE="2"><P>
    <INPUT TYPE="Button" NAME="Button1"  VALUE="确定">
    <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
      n = Text1.value
      If Not IsNumeric(n) Then
        MsgBox "您输入的不是数值数据"
      ElseIf n >= 0 And n < 7 Then
        MsgBox MyDay(n)
      Else
        MsgBox "请输入0～6之间的整数！"
      End If
    </SCRIPT>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -