check.asp

来自「数值计算方法网络课件系统是浙江大学过程装备与控制工程专业2001级本科生毕业设计」· ASP 代码 · 共 30 行

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/func.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/sqlin.asp"-->

<%
dim userid,userpwd
userid=trim(request.form("uid"))
userpwd=md5(trim(request.form("pwd")))
DBConnBegin()
Sql = "Select * from student where studentname='"&userid&"'"
Rs.open Sql,conn,3,3
if Rs.EOF then
	DBConnEnd()
	GoError "错误的用户名!"
	Response.End
end if

if Rs("studentpassword")<>userpwd then
	DBConnEnd()
	GoError "密码错误！"
	Response.End
end if

session("uid")=Rs("studentname")

DBConnEnd()

Response.Redirect("exam_index.asp")
%>