checklogin.asp

在线考试系统

<!---#include file="conn.asp"--->
<%
on error resume next
UId=request.Form("uid")
pwd=request.Form("pwd")

set rst=server.CreateObject("adodb.recordset")
sql="select * from Manager where UId='"&UId&"' and pwd='"&pwd&"'"
'response.write(sql)
'response.end()
rst.open sql,conn

if (err<0) then
	response.write("<script>alert('用户名或密码错误，\n请重新输入！');history.go(-1);</script>")
	rst.close()
	conn.close()
	set rst=nothing
	set conn=nothing
	response.End()
end if
if not rst.eof  then
	session("UId")=UId
	
	if(ucase(rst("Role"))="MANAGER")then
'	response.write(rst("Role"))
	response.Redirect("admin.asp")'若为管理员则转到管理员页面
	elseif (ucase(rst("Role"))="TEACHER") then
	response.Redirect("teacher.asp")'若为教师则转到教师页面
	end if
else
	response.write("<script>alert('用户名或密码错误，\n请重新输入！');history.go(-1);</script>")
end if
	rst.close()
	conn.close()
	set rst=nothing
	set conn=nothing
%>