lx5_2.htm

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

HTM
40
字号
<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 + =
减小字号Ctrl + -
显示快捷键?