📄 index.asp

📁 ASP 网页数据库短训教程源码
💻 ASP
字号:
<SCRIPT language=VBScript>
  '定义检查输入信息格式的函数Check()
  Sub Check()
    Dim strEmail, Position1, EmailLen, strDomainName
    strEmail = Form1.Email.Value
    Position1 = Instr(strEmail, "@")
    EmailLen = Len(strEmail)
    strDomainName = Mid(strEmail, Position1 + 1, EmailLen - Position1 )
    '以下每一项信息都不能为空，VBScript中的empty表示为空信息
    If Form1.User.Value = empty Then
      MsgBox "请输入您的名字！"
      FocusTo(0)
      Exit Sub
    ElseIf Form1.Email.Value = empty Then
      MsgBox "请输入您的电子邮件地址！"
      FocusTo(1)
      Exit Sub
    '如果在邮件地址中缺少账号和域名的分隔符，提示出错
    ElseIf Position1 = 0 Or Instr(strDomainName, ".") = 0 Then
      MsgBox "请正确填写您的电子邮件地址！"
      FocusTo(1)
      Exit Sub
    ElseIf Form1.Content.Value = empty Then
      MsgBox "请输入您的留言内容！"
      FocusTo(2)
      Exit Sub
    End If 
    Form1.Submit
  End Sub
  '在Check()中调用以下FocusTo()函数来确定出错时的输入焦点
  Sub FocusTo(x)
    Document.Form1.Elements(x).Focus()
  End Sub 
</SCRIPT>
<HTML>
  <HEAD><TITLE>留言本</TITLE></HEAD>
  <BODY bgcolor=LightYellow>
    <P Align=center><FONT size=5 face=华文彩云 color= blue>留 言 板</FONT>
    <FORM method=post action=MessageAdd.asp name=Form1><HR>
      <TABLE bgcolor=LightBlue align=center border=1 width=500>
        <TR><TD height=35 align=center>留言者</TD>
            <TD><INPUT maxlength=30 name=User></TD></TR>
        <TR><TD height=35 align=center>E-mail</TD>
            <TD colspan=3><INPUT name=Email ></TD></TR>
        <TR><TD height=35 align=center>标&nbsp;&nbsp;题</TD>
            <TD colspan=3><INPUT maxlength=200 name=Subject size=40></TD></TR>
        <TR><TD height=35 align=center>留给谁</TD>
            <TD colspan=3><INPUT name=ToWho ></TD></TR>
        <TR><TD height=35 align=center>内&nbsp;&nbsp;容</TD>
            <TD colspan=3><TEXTAREA cols=51 name=Content rows=8></TEXTAREA></TR>
        <TR align=middle><TD height=40 colspan=4 align=center>
            <INPUT type=button value=提交 OnClick=Check()>&nbsp;&nbsp;&nbsp;&nbsp;
            <INPUT type=reset value=重写></TD></TR>
      </TABLE>
    </FORM>
    <A href=MessageBrowse.asp>查看留言</A>
  </BODY>  
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -