Network examination Room (1) (Turn) Logon.asp

<%@ Language=vbscript%>
<%
If Request.ServerVariables ("http_method") = "POST" Then
If Request.Form ("submit") = "Enter 1" then
' The student enters the network examination room the processing
Set Conn=server. CreateObject ("Adodb.connection")
Conn. Connectionstring= "Dsn=testsys"
' Connect and open the database
Conn.Open
Strsql= "SELECT * from Studentinfo where stid= '" & Request.Form ("Stid") & "' and Stname= '" & Request.Form ("Stna Me ") &" ' "
Set Mrs=conn. Execute (strSQL)
If not mrs.bof and not mrs.eof then
' If the student's record exists in the database, enter the online exam
' Using the session property to store student names and school numbers
Session ("Stid") =request.form ("Stid")
Session ("Stname") =request.form ("Stname")
Response.Redirect "Stselectsub.asp"
Set mrs=nothing
Else
' If the student's information does not exist in the database, the displayed page is still logon.asp and prompts for information
Response.Write "Student name and school number input Error!! "
End If
Conn. Close