Tem como saber de qual site o usuario veio e qual ele digitou na URL para sair?
Seria legal pra montar um perfil do internaut que frequenta meu site.
Como fazer?
Tem algum tutorial por ai?
Rastreando Usuário!
Started By mkboy, 21/07/2004, 22:29
2 replies to this topic
#2
Jhonathas.net
-
- Usuários
-
- 181 posts
12 Horas
- Sexo:Não informado
Posted 21/07/2004, 23:00
para saber de qual veio se não me falha a memoria é o http_referer.
Não ajunteis tesouros na terra, onde a traça e a ferrugem tudo consomem e aonde os ladrões minam e roubam;
Mas ajuntai tesouros no céu, onde nem a traça nem a ferrugem consomem, e aonde os ladrões não minam nem roubam.
MT 6 . 19
Jhonathas da Silveira de Matos (UIN: 57422166 / MSN: jhon_asp)
Mas ajuntai tesouros no céu, onde nem a traça nem a ferrugem consomem, e aonde os ladrões não minam nem roubam.
MT 6 . 19
Jhonathas da Silveira de Matos (UIN: 57422166 / MSN: jhon_asp)
#3
myaccount2lists
-
- Usuários
-
- 347 posts
Ativo
- Sexo:Masculino
Posted 22/07/2004, 01:05
vai aí o código completo:
Set ObjCon = Server.CreateObject("ADODB.Connection")
ObjCon.Open "DBQ=d:/aspteste/visitas/referencias.mdb;Driver={Microsoft Access Driver (*.mdb)};"
Dim url
url = Request.ServerVariables("HTTP_REFERER")
If url = "" Then
url = "foi digitado"
End if
Set objRS = ObjCon.Execute ("INSERT INTO referencias (endereco, data_hora) VALUES('" & url & "', '" & now() & "')")
Set url = Nothing
Set objRS = Nothing
ObjCon.Close
Set ObjCon = Nothing
Set ObjCon = Server.CreateObject("ADODB.Connection")
ObjCon.Open "DBQ=d:/aspteste/visitas/referencias.mdb;Driver={Microsoft Access Driver (*.mdb)};"
Dim url
url = Request.ServerVariables("HTTP_REFERER")
If url = "" Then
url = "foi digitado"
End if
Set objRS = ObjCon.Execute ("INSERT INTO referencias (endereco, data_hora) VALUES('" & url & "', '" & now() & "')")
Set url = Nothing
Set objRS = Nothing
ObjCon.Close
Set ObjCon = Nothing
Edição feita por: thalisvalle, 22/07/2004, 01:05.
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)
