網路考場（1）（轉）logon.asp

<%@ Language=VBScript %>
<%
if Request.ServerVariables("http_method")="POST" then
    if Request.Form("submit")="進入1" then
        '學生進入網路考場的處理
        set conn=server.CreateObject("adodb.connection")
        conn.ConnectionString="dsn=testsys"
        '串連並開啟資料庫
        conn.open
        strsql="select * from studentinfo where stid='" & Request.Form("stid") & "' and stname='" & Request.Form("stname") & "'"
        set mrs=conn.Execute(strsql)
        if not mrs.bof and    not mrs.eof then
        '如果資料庫中存在該學生的記錄進入網路考場
        '並用session屬性儲存區學生的姓名與學號
       session("stid")=Request.Form("stid")
       session("stname")=Request.Form("stname")
       Response.Redirect "stselectsub.asp"
       set mrs=nothing
        else
        '如果資料庫中不存在該學生的資訊，顯示的頁面仍為logon.asp，並提示資訊
       Response.Write "學生姓名與學號輸入錯誤！！"
        end if
        conn.Close