[xanburzum]

sistema de rastreamento do usuário, em um banco de dados com essa estrutura:

ALL_HTTP - Memorando
ALL_RAW - Memorando
CONTENT_LENGTH - numero
CONTENT_TYPE - Memorando
QUERY_STRING - texto
SERVER_SOFTWARE - texto
HTTPS,LOCAL_ADDR - texto
PATH_INFO - texto
PATH_TRANSLATED - texto
REMOTE_ADDR - texto
REMOTE_HOST - texto
REQUEST_METHOD - texto
SERVER_NAME - texto
SERVER_PORT - texto
SERVER_PROTOCOL - texto
HTTP_ACCEPT - Memorando
HTTP_USER_AGENT - texto
HTTP_REFERER - texto
HTTP_CONNECTION - texto
URL - texto
REMOTE_USE
DATE - Data/Hora

conexao

CÓDIGO

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
MM_SerVar_STRING ="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
%>

default.asp

CÓDIGO

<!-- #include virtual="session.asp" -->
<%
Response.write "Bem-vindo ... você está visitando "& Request.ServerVariables("REMOTE_HOST")

%>

session.asp

CÓDIGO

<% Language=VBScript%>
<%
'Declare variáveis do servidor e armazená-los
Dim strREMOTE_ADDR
Dim strALL_HTTP
Dim strALL_RAW
Dim strCONTENT_LENGTH
Dim strCONTENT_TYPE
Dim strQUERY_STRING
Dim strSERVER_SOFTWARE
Dim strHTTPS
Dim strLOCAL_ADDR
Dim strPATH_INFO
Dim strPATH_TRANSLATED
Dim strREMOTE_HOST
Dim strREQUEST_METHOD
Dim strSERVER_NAME
Dim strSERVER_PORT
Dim strSERVER_PROTOCOL
Dim strHTTP_ACCEPT
Dim strHTTP_USER_AGENT
Dim strHTTP_REFERER
Dim strHTTP_CONNECTION
Dim strURL
Dim strREMOTE_USER

'armazenar ip remoto em sessão
strREMOTE_ADDR = Request.ServerVariables("REMOTE_ADDR")
Session ("REMOTE_ADDR") = strREMOTE_ADDR

'Conectar-se ao banco de dados Blocked.mdb
strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; "
strConnString = strConnString & "DBQ=" & Server.MapPath("/fpdb/ServerVariables.mdb")

'comparar IP armazenados em dbase contra IP remoto
sql =    "SELECT * " & _
        "FROM nolog " & _
        "WHERE (IP_ADDR = '" & Session("REMOTE_ADDR") & "'); "

'conecta no database        
Set rsConn = Server.CreateObject("ADODB.Recordset")
rsConn.Open Sql, strConnString

'Declaração para verificar se o SQL é falso
if rsConn.EOF=False THEN


Else

'variáveis do servidor e armazená-los em strings
strALL_HTTP = Request.ServerVariables("ALL_HTTP")
strALL_RAW = Request.ServerVariables("ALL_RAW")
strCONTENT_LENGTH = Request.ServerVariables("CONTENT_LENGTH")
strCONTENT_TYPE = Request.ServerVariables("CONTENT_TYPE")
strQUERY_STRING = Request.ServerVariables("QUERY_STRING")
strSERVER_SOFTWARE = Request.ServerVariables("SERVER_SOFTWARE")
strHTTPS = Request.ServerVariables("HTTPS")
strLOCAL_ADDR = Request.ServerVariables("LOCAL_ADDR")
strPATH_INFO = Request.ServerVariables("PATH_INFO")
strPATH_TRANSLATED = Request.ServerVariables("PATH_TRANSLATED")
strREMOTE_ADDR = Request.ServerVariables("REMOTE_ADDR")
strREMOTE_HOST = Request.ServerVariables("REMOTE_HOST")
strREQUEST_METHOD = Request.ServerVariables("REQUEST_METHOD")
strSERVER_NAME = Request.ServerVariables("SERVER_NAME")
strSERVER_PORT = Request.ServerVariables("SERVER_PORT")
strSERVER_PROTOCOL = Request.ServerVariables("SERVER_PROTOCOL")
strHTTP_ACCEPT = Request.ServerVariables("HTTP_ACCEPT")
strHTTP_USER_AGENT = Request.ServerVariables("HTTP_USER_AGENT")
strHTTP_REFERER = Request.ServerVariables("HTTP_REFERER")
strHTTP_CONNECTION = Request.ServerVariables("HTTP_CONNECTION")
strURL = Request.ServerVariables("URL")
strREMOTE_USER = Request.ServerVariables("REMOTE_USER")

'conecta no database
Set objConn = Server.CreateObject("ADODB.Connection")
strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; "
strConnString = strConnString & "DBQ=" & Server.MapPath("/fpdb/ServerVariables.mdb")
objConn.Open strConnString

'inserir dados no banco de dados
strSQL = "insert into HTTP_SV (ALL_HTTP,ALL_RAW,CONTENT_LENGTH,CONTENT_TYPE,QUERY_STRING,SERVER_SOFTWARE,HT
TPS,LOCAL_ADDR,PATH_INFO,PATH_TRANSLATED,REMOTE_ADDR,REMOTE_HOST,REQUEST_METHOD,S
ERVER_NAME,SERVER_PORT,SERVER_PROTOCOL,HTTP_ACCEPT,HTTP_USER_AGENT,HTTP_REFERER,H
TTP_CONNECTION,URL,REMOTE_USER) values ('" & strALL_HTTP & "','"  & strALL_RAW & "','"  & strCONTENT_LENGTH & "','"  & strCONTENT_TYPE & "','"  & strQUERY_STRING & "','"  & strSERVER_SOFTWARE & "','"  & strHTTPS & "','"  & strLOCAL_ADDR & "','"  & strPATH_INFO & "','"  & strPATH_TRANSLATED & "','"  & strREMOTE_ADDR & "','"  & strREMOTE_HOST & "','"  & strREQUEST_METHOD & "','"  & strSERVER_NAME & "','"  & strSERVER_PORT & "','"  & strSERVER_PROTOCOL & "','"  & strHTTP_ACCEPT & "','"  & strHTTP_USER_AGENT & "','"  & strHTTP_REFERER & "','"  & strHTTP_CONNECTION & "','"  & strURL & "','"  & strREMOTE_USER & "')"
objConn.Execute strSQL
objConn.close

END IF
%>