www.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"%>