checklogin.asp

来自「在线考试系统」· ASP 代码 · 共 36 行

<!---#include file="conn.asp"--->
<%
on error resume next
StuId=request.Form("uid")
pwd=request.Form("pwd")
oper=request.Form("oper")
set rst=server.CreateObject("adodb.recordset")
sql="select * from student where stuid="&StuId&" and pwd='"&pwd&"'"

rst.open sql,conn

if (err<0) then
	response.write("<script>alert('用户名或密码错误，\n请重新输入！');history.go(-1);</script>")
	rst.close()
	set rst=nothing
	response.End()
end if
if not rst.eof  then
	session("StuId")=StuId
	session("Role")="Student"	'设置用户角色
	select case oper
	case "exam"
		response.redirect("ExamInfo.asp")
	case "test"
		response.redirect("ExerciseSelect.asp")	
	case "query"
		response.redirect("QueryInfo.asp")	
	end select
else
	response.write("<script>alert('用户名或密码错误，\n请重新输入！');history.go(-1);</script>")
end if
rst.close()
conn.close()
set rst=nothing
set conn=nothing
%>