checkteacher.asp

学生在线考试系统：ASP+VBScript 本人自己精心编码

<%
'连接数据库
Dim conn,dbpath
dbpath=Server.MapPath("..\..\data\exam.mdb") 
Set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.oledb.4.0; Data Source=" & dbpath
'执行SQL查询并将查询结果放置在rlist中
Dim rlist
Set rlist=Server.CreateObject("ADODB.Recordset")
Dim sqlstring
sqlstring="SELECT * FROM admin WHERE admin_id='"&Request.Form("admin")&_
"' and pwd='"&Request.Form("pwd")&_
"'"
Set rlist=Server.CreateObject("ADODB.Recordset")
rlist.open sqlstring,conn,2,2
If rlist.BOF and rlist.EOF  then %>

<title>教师验证</title>
</head>
  <%Response.Write("对不起，你输入的管理员帐号或密码错误！请<a href='javascript:history.go(-1);'>单击返回！</a>")
Else %>

<title>你已经获取管理讨论室的资格！</title>
<%
Session("admin_id")=Request.Form("admin")
Response.Write("<meta http-equiv='refresh' content='1; url=main.asp'>你已经获取管理讨论室的资格！")
%>
</head>
<%
end if
rlist.Close
conn.Close

%>