www.gusucode.com > 因特达Access数据库在线管理系统 > 因特达Access数据库在线管理系统\code\access\ChkUser.asp

    <!--#include file="conn.asp" -->
<!--#include file="enpas.asp" -->

<%

if request("code")<>session("GetCode") or session("GetCode")="" then
	session("GetCode")=""
	response.redirect("login.asp?t=你输入的验证码不符！")
end if




userName=replace(Request("Name"),"'","")
if userName="" then response.redirect"login.asp?t=用户名为空"
PassWord=EnPas(replace(trim(Request("Password")),"'","''"))

set rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select * from UserManage where (UserName='"&userName&"') and  (Password='"&PassWord&"')"
rs.Open rs.Source,yinteda_access_conn,1,1

thesoft=Request.ServerVariables("HTTP_USER_AGENT")
if instr(thesoft,"Windows NT 5.0") then
	vOS="Win 2000"
elseif instr(thesoft,"Windows NT 5.1") then
	vOs="Win XP"
elseif instr(thesoft,"Windows NT") then
	vOs="Win NT"
elseif instr(thesoft,"Windows 9") then
	vOs="Win 9x"
elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then
	vOs="类Unix"
elseif instr(thesoft,"Mac") then
	vOs="Mac"
else
	vOs="BeiZhu"
end if

if not rs.EOF then 
	UserId = rs("id")

	set rs1=Server.Createobject("adodb.recordset")
	sql1="Select * from Log"
	rs1.open sql1,yinteda_access_conn,3,3
	rs1.addnew
	rs1("User")=userName
	rs1("LoginIP")=request.ServerVariables("Remote_Addr")
	rs1("OS")=vOS
	
	rs1.update
	rs1.close
	session("yinteda_access_userName")=request("Name")
	session("yinteda_access_password")=request("password")
	Response.Redirect "index.asp"'登陆成功
else'登陆失败
   set rs1=Server.Createobject("adodb.recordset")
   sql1="Select * from Log"
   rs1.open sql1,yinteda_access_conn,1,3
   rs1.addnew
   rs1("User")=Request("Name")
   rs1("LoginIP")=request.ServerVariables("Remote_Addr")
   rs1("OS")=vOS
   rs1("ErrorPas")=Request("Password")
   rs1("Result")="Error"
   rs1.update
   rs1.close
   set rs=nothing
   response.redirect"login.asp?t=用户或密码错误"
end if


%>