admin_login.asp

学生成长管理系统V2008

<!-- #include file="Include/Conn.asp" -->
<!-- #include file="Include/MD5.asp" -->
<%
function R(s)
R = Replace(Trim(s), "'","")
R = Replace(R, """","")

end function

	SQL="Select * from A_d_m_i_n where name='" & R(Trim(Request("name"))) & "' and pass='" &MD5(R(Trim(Request("pass")))) & "'"
	set nrs=server.createobject("adodb.recordset")
	nrs.open SQL,conn,1,1
	if nrs.Bof and nrs.Eof then
		Response.Write "<script language='javascript'>alert('用户名或密码错误!');document.location.href('Admin_Login.htm');</script>"
		Response.End()
	else
		Session("Admin")=nrs("name")
		Session("flag")=nrs("flag")
		Response.Redirect "Admin_Index.htm"
	end if
%>