Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] monitorar usuários

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

IP arquivo de texto, cria um arquivo de texto de todos os que têm entrado para o seu site. Ótimo para monitorar usuários ou impedindo certos usuários de re-entrar em seu site

 

<%@ Language=VBScript %>
<%option explicit%>
<HTML>

<BODY>

<%

response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"

%>




<%
dim strFileName
dim ClientIp
dim Htpinfo
dim file
dim fso
Dim ServerPortX
Dim PortX
DIM LocalAddr1

ClientIp =  Request.ServerVariables ("REMOTE_ADDR") 
LocalAddr1 = Request.ServerVariables ("Local_ADDR")
Portx = Request.ServerVariables ("Remote_Port")
HtpInfo = Request.ServerVariables ("All_HTTP")
ServerPortX = Request.ServerVariables ("ALL_RAW")

strFileName = server.mappath("IP.txt")

Const ForReading = 1, ForWriting = 2, ForAppending = 8


set fso = server.CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(strFileName,ForAppending ,true)

file.write "-----Data-----------" &now() & "-------------------"& vbCrLf
file.write "Endereço IP Remoto:" & " " & ClientIP & vbCrLf
file.write "Local ENDEREÇO IP:" & " " & Localaddr1 & vbCrLf
file.write "Todas Info2:" & " " & htpinfo & vbCrLf
file.write "Todas Info1:" & " " & ServerPortX & vbCrLf
file.write "Número da porta:" & " " & PortX & vbCrLf
file.write "---------------------------------------------------"& vbCrLf
file.close

set file = nothing
set fso = nothing
%>



<p> </p>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito