求助：ASP后台登录后自动记录登录IP和时间的问题

来源：百度知道 编辑：UC知道 时间：2024/05/16 06:13:06
dim ladmin,lpassword

ladmin=request.form("admin")
lpassword=request.form("password")
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR")

set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin where admin='" &ladmin& "' and pass='"&md5(lpassword)&"'",conn,1
if rs.eof and rs.bof then
'---------------------------------------
'写日志
set rs=server.createobject("adodb.recordset")
rs.Open "Select * From rizhi Where 1=0",conn,1,3
rs.AddNew
rs("user")=ladmin
rs("mima")=lpassword
rs("addtime")=Now()
rs("ip")=ip
rs("desc")=ladmin & " 于 " & Now() & " 自 " & ip & " 尝试登入"&strlogin&"管理员

else
conn.execute("update admin set logintime='"&now()&"',loginip='"&ip&"' where admin='" &ladmin& "'")
session("admin")=rs("admin")
session("pass")=rs("pass")
response.redirect "add_admin.asp"
end if

dim ladmin,lpassword

ladmin=request.form("admin")
lpassword=request.form("password")
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR")

set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin where admin='" &ladmin& "' and pass='"&md5(lpassword)&"'",conn,1,3
if rs.eof and rs.bof then
'---------------------------------------
'写日志
set rs2=server.createobject("