Help
CÓDIGO
<%@ 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>
<%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>
