gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\admin\login_check.asp
<!--#include file="../inc/conn.asp"--> <!--#include file="../MD5/md5.asp"--> <%login=Replace(trim(Request("login")),"'","") passwd=trim(Request("passwd")) if login="" or passwd="" then result=Server.urlEncode("管理员帐号或者密码为空,请返回") Response.Redirect"result.asp?result="&result end if sql="select * from admin where login='"&login&"'" set Rs=Server.CreateObject("Adodb.RecordSet") Rs.Open sql,conn,1,1 if Rs.Eof then result=Server.urlEncode("没有该管理员帐号,请确认你是否为管理员") Response.Redirect"result.asp?result="&result else if Rs("passwd")<>md5(passwd) then result=Server.urlEncode("密码不符,请返回") Response.Redirect"result.asp?result="&result else Session("admin")=login session("ad_level")=Rs("ad_level") end if end if Rs.Close Set Rs=nothing Set conn=nothing Response.Redirect"default.asp"%>