www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/access.asp

    <!--#include file="opendb.asp" -->
<!--#include file="../common/md5.asp" -->
<%Call DisableOutSite()
if cstr(session("checkcode"))<>Trim(Request("checkcode")) then alertmsg("验证码错误！")
'Call CheckUserLogin(username)

Dim AdminName,AdminPassword
AdminName=trim(request("AdminName"))
AdminPassword=MD5(trim(request("AdminPassword")))

rs.open "select AdminName,AdminPassword from cnk_Admin where AdminName='"&AdminName&"'",conn,1,3
if rs.recordcount=0 then
	alertmsg("无该管理员！")
else
     if rs("AdminPassword")<>AdminPassword then
	 	alertmsg("密码错误！")
     else '登录成功
		session.timeout=30
		session("admin")=AdminName
		conn.execute("update cnk_Admin set LastLoginTime='"&now()&"',LastLoginIP='"&GetRealIP()&"' where AdminName='"&AdminName&"'")
		conn.execute("insert into cnk_LoginAdmin (LoginAdmin,LoginIP) values ('"&AdminName&"','"&GetRealIP()&"')")
		'response.redirect "main.asp"
		Response.Write("<script>top.location.href='main.asp';</script>")
     end if
end if
rs.close
set rs=nothing
Call closedb() %>