chklogin.asp

管理登录system 管理员：admin 密码：admin888 数据库链接文件： conn.asp 内容数据库前台链接文件 systemconn.asp 内容数据库后台链接文件 sy

<!--#include file="ConnAdmin.asp" -->
<!--#include file="MD5.asp"-->
<%
LoginName=trim(request.form("LoginName"))
Password=MD5(trim(request.form("Password")))
set rs = server.createobject("adodb.recordset")
SQL="select * from Nwebadmin where username='"&LoginName&"'and  password='"&Password&"'"
rs.open SQL,conn,1,1

if not rs.eof then
   username=rs("username")
   password2=rs("password")
   adminClass=rs("adminClass")
end if
%>

<%
if LoginName<>username then
   session("admin_system")=""
   session("adminClass")=""
   response.write "<script language=javascript> alert('管理帐号不正确，请重新输入。');location.replace('index.asp');</script>"
   response.end
end if 

if Password<>password2 then
   session("admin_system")=""
   session("adminClass")=""
   response.write "<script language=javascript> alert('管理密码不正确，请重新输入。');location.replace('index.asp');</script>"
   response.end
end if 

if (int(session("VCodes"))<>int(request("VCodes")))   then
   response.write "<script language=javascript> alert('提示:\n\n验证码错误，请重新输入黄色区域内的数字!');location.replace('index.asp');</script>"
   response.end
end if
 
if LoginName=username then
   if Password=password2 then
	 session("admin_system")="admin_system2008"
	 session("adminClass")=adminClass
	 session("username")=username
	 session.Timeout=15
	 '==================================
	 goip=Request.ServerVariables("Remote_Addr")
	 gotime=now()
	 goname=LoginName
	 '====================================
	 set goconn = Server.CreateObject("ADODB.Connection")
     goconn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("Database/Content.mdb"))
     set gors = server.createobject("adodb.recordset")
     goSQL="select * from gologin where(id is null)"
     gors.open goSQL,goconn,1,3
	 
	 gors.addnew
	 gors("goname")=goname
	 gors("gotime")=gotime
	 gors("goip")=goip
	 gors.update
	 
	 gors.close
	 set gors=nothing
     goconn.close
	 set goconn=nothing
	 
	 '========================================
     response.redirect "IndexSystem.asp"
     response.end
   else
	 session("admin_system")=""
	 session("adminClass")=""
	 response.write "<script language=javascript> alert('密码有误');history.back(-1);</script>"
     response.end
   end if
else
  session("admin_system")=""
  session("adminClass")=""
  response.write "<script language=javascript> alert('用户名有误');history.back(-1);</script>"
  response.end
end if 

%>