|
<%
'-----------------------------------------------------------------------------------------------------------------------------------
dim rsGetUserIp, rsAddIp, sSql
set rsGetUserIp = Server.CreateObject("ADODB.RecordSet")
sSql = "SELECT ip.id_ip FROM ip WHERE (((ip.id_user)=" & cLng(session("id_user")) & ") AND ((ip.ip)='" & Request.ServerVariables("REMOTE_ADDR") & "'));"
rsGetUserIp.Open sSql, base_driver ("/")
if rsGetUserIp.bof or rsGetUserIp.eof then
session("id_ip") = 0
end if
do Until rsGetUserIp.EOF
session("id_ip") = rsGetUserIp(0)
rsGetUserIp.MoveNext
loop
rsGetUserIp.Close
set rsGetUserIp = Nothing
'-----------------------------------------------------------------------------------------------------------------------------------
if session("id_ip") = 0 then
set rsAddIp = Server.CreateObject("ADODB.RecordSet")
sSql="INSERT INTO ip ([id_user], [ip_date], [ip]) VALUES ('" & session("id_user") & "', '" & (Year(Date) & "-" & Month(Date) & "-" & Day(Date) & " " & Time) & "', '" & Request.ServerVariables("REMOTE_ADDR") & "');"
rsAddIp.Open sSql, base_driver ("/")
rsAddIp.Close
set rsAddIp = Nothing
session("flag") = 99
else
session("flag") = 0
end if
'-----------------------------------------------------------------------------------------------------------------------------------
%>
Вы успешно авторизированы
Можете перейти к списку форумов и принимать активное участие в дискуссиях и обсуждениях!
|