📄 login.asp.txt

📁 ASP 网页数据库短训教程源码
💻 TXT
字号:
<%@ Language=VBScript %> 
<HTML> 
  <HEAD><TITLE>用户口令检查</TITLE></HEAD>
  <BODY bgcolor=LightYellow>
<%
  '定义变量
  Dim Name, Password
  Dim objConn, objRS
    ' 从FORM对象中获取用户输入的信息
  Name = Trim(Request("Name"))
  Password = Trim(Request("Password"))
  if name<>"" and Password<>"" then
    ' 检查用户是否输入信息
      ' 使用Connection对象打开数据库文件Exercise.mdb
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=" & Server.MapPath("Exercise.mdb")
    objConn.Open
      ' 建立Recordset对象并查找满足Name和Password的记录
    strSQL = "SELECT * FROM Student WHERE 编号='" &_
      Name & "' AND 口令='" & Password & "'"
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.Open strSQL, objConn, 1, 1
      ' 如果到了记录文件Exercize.mdb的尾部，则库里没有该用户信息。
    If Not objRS.Eof Then
      ' 检查用户是否已参加过考试，若是则进行成绩查询，
      ' 否则将建立Session("Pass")和Session("User")，
      ' 并将页面引导到Test.asp，开始考试计时
      If objRS("成绩") <> 0 Then
        Response.Write "<P algin=center><FONT size=4>"
        Response.Write objRS("编号") & ",你好！"
        Response.Write "你已经参加过考试。<P>你的考试成绩是"
        Response.Write objRS("成绩") & "分。<P>"
        Response.Write "<A href=Login.asp?name=" & Name & ">"
        Response.Write "返回首页</A></BODY></HTML>"
        Response.End
      Else
        Session("Pass") = 1
        Session("User") = Name
        Response.Redirect "Test.asp"
      End If
    Else 
      Response.Write "<SCRIPT language=VBScript>" & Chr(13)
      Response.Write "MsgBox " & Chr(34) & "对不起，用户或口令不正确!" & Chr(34) & Chr(13)
      Response.Write "</SCRIPT>"
    End If
  End If
%>   
    <FORM action=Login.asp method=post name=form1>
      请输入考生编号和口令<HR>
      <TABLE width=300 align=center>
        <TR><TD height=40>编号：
               <INPUT name=Name value='<%=name%>' size=15>
        <TR><TD height=40>口令：
               <INPUT name=Password type=password value='<%=Password%>' size=15>
        <TR><TD height=40>
               <INPUT type=button value=确定 OnClick=Check()>
               <SCRIPT language=VBScript>
                 Sub Check()
                   str1 = Form1.name.Value
                   str2 = Form1.Password.Value
                   If str1 = empty Then
                     MsgBox "请输入您的编号！"
                     Exit Sub
                   elseif str2 = empty then
                     MsgBox "请输入您的口令！"
                     Exit Sub
                   End If 
                   Form1.Submit
                 End Sub
               </SCRIPT>
      </TABLE><HR>
        <INPUT type=button value=管理员入口 name=button1>
          <SCRIPT for=button1 event=onClick Language="VBScript">
            str1 = Trim(Form1.Password.Value)
            If UCase(str1)<>"REGISTER" then
              MsgBox "口令不正确，您无权进入！"
            Else
              Location.Href="Register.asp"
            End if
          </SCRIPT>
    </FORM>  
  </BODY>  
</HTML>
⌨️ 快捷键说明

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