IP log system

<%

ip = Request.Servervariables("REMOTE_ADDR")
tid = Now()

%>

du skal så bruge FSO til at smide det ind i en txt-fil

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="../adovbs.inc"-->


<html>
<head>
<% Dim IP_adress, arrUserID
  IP_adress = Request.ServerVariables("REMOTE_ADDR")

    arrUserID = Request.ServerVariables("LOGON_USER")
    If Len(arrUserid) = 0 then
    Response.Status = "401 Unauthorized"
    Session.Abandon
    Response.End
    End If
    Session("arrUserid") = LCase(Mid(arrUserID, InStr(arrUserID, "\")+1))
    arrUserID = split(arrUserID, "\", -1, 1)
           
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
  Dim fso, f, ts
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile("c:/inetpub/wwwroot/phoner_log.txt")
  Set ts = f.OpenAsTextStream(ForAppending, TristateUseDefault)
  ts.Writeline (IP_adress & ";" & Date & ";" & time & ";" & arrUserID(0) & ";" & arrUserID(1) & ";")
  ts.Close
%>
 
<script>
function redirect()
{location.href ="../index.asp";}
</script>
</head>
<body onload="java script:redirect()">
</body>
</html>

ovenstående laver en fil med ip adresser

hov det skulle være et svar :-)

mvh
HorsMark

henter filens indhold og viser det i en html side
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="../adovbs.inc"-->

<html>
<head>
</head>
<body>
<center>
<% Dim IP_adress, strFont
  Dim fso, f, ts, arrFile
  IP_adress = Request.ServerVariables("REMOTE_ADDR")          '
  strFont = "<Font face=verdana color=gray size=1>&nbsp;"
 
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile("c:/inetpub/wwwroot/phoner_log.txt")
  Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
  arrFile = ts.ReadAll
  ts.Close

  response.write "<table border=1 cellpadding=1 cellspacing=0>"
  Response.Write "<tr><td align=center>" & strFont & "<b>Dato</td><td align=center>" & strFont & "<b>Logon tid</td><td align=center>" & strFont & "<b>IP</td><td align=center>" & strFont & "<b>Domain</td><td align=center>" & strFont & "<b>User</td></tr>"
  arrFile = Split(arrFile, ";")
   
  Dim iLoop
  iLoop = LBound(arrFile)
  Do 
    Response.Write "<tr><td align=right>" & strFont & arrFile(iLoop+1) & "&nbsp;</td><td align=right>" & strFont & arrFile(iLoop+2) & "&nbsp;</td><td align=center>" & strFont & arrFile(iLoop) & "&nbsp;</td><td align=center>" & strFont & arrFile(iLoop+3) & "&nbsp;</td><td align=center>" & strFont & arrFile(iLoop+4) & "&nbsp;</td></tr>"
    iLoop = iLoop + 5
  Loop until iLoop = UBound(arrFile)
  Response.write"</table>"
%>
</center>
</body>

Er det computerens ip, eller er det en ip den har fået tildelt fra netværket/udbyderen?
Med andre ord: kan det bruges til at tælle unikke besøg?

nej ip adresser er nogle gange dynamiske dvs. bliver tildelt når man logger på internettet... andre har faste IP numre som jeg der har ADSL erhverv :-)

Men det er bedre end bare at tælle hits

Tak for svaret og undskyld at jeg blandede mig lidt udover emnet! :-)

iorden iorden... ;-)

Mit ovenstående programmel fanger både brugerens logon domæne/logon navn OG IP adresse.... Jeg brugte det til intranettet...

Horsmark -> Det er lidt for kompliceret kode det der, det skal bare være en simpel kode som skriver ip og tidspunkt.

Rune_c -> det var noget ala det som jeg tænkte på, men det er det med at skrive til en .txt fil jeg ikke kan finde ud af...

Skriver til en txt.-fil som hedder logip.txt.

<% Dim Filesys, Txtfile

  Response.Write Request.ServerVariables("REMOTE_HOST") & "<br>"
  Response.Write Now
Set Filesys = CreateObject("Scripting.FileSystemObject")
  Set Txtfile = Filesys.OpenTextFile ("d:\inetpub\wwwroot\logip.txt",8 ,0)
  Txtfile.Writeline Request.ServerVariables("REMOTE_HOST") & " " & Now
    Txtfile.Close 
%>

Upz REMOTE_HOST skal være REMOTE_ADDR

oki jeg satte såmand også blot det hele ind så du kunne vælge og få lidt inspiration...

Fuldstop smid lige et svar så deler du pointsne med horsmark

svar ;0>