📄 login.asp

📁 asp开发 asp开发 asp开发 asp开发

💻 ASP

字号:

<%
No = Request("No")
Name = Request("Name")
Lesson = Request("Lesson")
on error resume next
If Request("Send") <> "" Then
   SQL = "SELECT * FROM 成绩单 " 
   SQL = SQL & "WHERE 学号=" &"'"& No &"'"& " AND 姓名='" & Name & "'"
    Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &_
		Server.MapPath("test.mdb")
	Set rsScore = conn.Execute  (sql)  
	'如果rsScore创建失败或者没有记录
   If rsScore Is Nothing or rsScore.eof Then
      Msg = "学号或姓名栏位错误!"
	'不等于-1说明已经考试完毕
   ElseIf rsScore( Lesson ) <> -1 Then
      Msg = "你已经考过本科目了!"
   Else
      '转移到考试界面, 并将本页Form中所有信息传递过去
      Response.Redirect "Test.asp?" & Request.QueryString
   End If
End If
%>
<HTML><BODY BGCOLOR=BEIGE>
<H1 ALIGN="CENTER">在线考试系统</H1>
<HR><H2>选择考试科目:</H2>
    <FORM ACTION="login.asp" METHOD="GET">
        <p>考试科目：<SELECT NAME="Lesson" SIZE="1">
            <OPTION VALUE=asp>ASP</option>
            <option value=XML>XML</option>
        </select></p>
<P>姓名：<INPUT TYPE="TEXT" SIZE="20" NAME="Name"  VALUE="<%=Name%>"></P>
<P>密码：<INPUT TYPE="PASSWORD" SIZE="20" NAME="No" VALUE="<%=No%>"></P>
<P><INPUT TYPE="SUBMIT" NAME="Send" value=" 开始考试"> </P>
</FORM>
<HR><FONT Color=Red><%=Msg%></FONT>
</BODY>  </HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -