IP tracking

Du skal have en access database (statistik.mdb) som ligger i mappen data. Du skal ændre i connetion til databasen hvis det ikke passer med dit hotel!!!!!
Tabel navn: statistik
Felt: Ip (tekst format)
Felt: Tidspunkt (dato og tid format)

<%
Dim proxyIP, normalIP, strDato
strDato    = now ' Dato for besøg
proxyIP     = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
normalIP     = Request.ServerVariables("REMOTE_ADDR")

If proxyIP = doublequote Then
  'Hvis brugeren ikke er bag en proxy server
  strIp = normalIP
Else
  'hvis brugeren er bag en proxy
strIp = proxyIP
End If
'connect til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("data/statistik.mdb")
Conn.Open DSN

'skriver til DB
  strSQL = "Insert into statistik(Ip, Tidspunkt) VALUES ('" & strIp & "',#" & strDato & "#)"
  Set rs = Conn.Execute(strSQL)

'Luk database
Conn.Close
Set Conn = Nothing
%>

øhh jeg er ikke helt med er det muligt at få dig til at lave det for 100 piont mere :) jeg ved ikke om det har noget, at sige men det er til en webside der er lavet i flash?

har lige tjekket webhotellet der er ingen mappe der hedder data, der er kun de her.
anon_ftp
cgi-bin
error_docs
httpdocs
httpsdocs
private
statistics
subdomains
vault_scripts
web_users

hvilken skal jeg bruge???

cgi-bin er nok den mappe hvor du har skrive rettigheder og data basen skal derfor ligge deri
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("cgi-bin/statistik.mdb")
Conn.Open DSN

hvilket webhotel har du

rackhosting.com

men som sagt fatter jeg ikke lige noget af det du skriver.. Er det okay med 100 point mere for at du laver filerne til mig og jeg så bare skal sætte dem ind, da det vil tage mig RIGTIG lang tid at lave det du bare skriver her...

du kan hente filerne her:
www.willi.dk/logip.zip

filen statistik.mdb skal ligge i cgi-bin og iplog.asp i roden af dit biblotek altså
dit-domaine.dk/logip.asp

svar:

Det er måske et dumt spørgsmål, men hvordan ser jeg så de enkelte ip adresser?

De ligger i databasen:
så noget a la dette her!
I øvrigt finder du en hel masse om ASP og databaser på http://www.html.dk

<%
'connect til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("data/statistik.mdb")
Conn.Open DSN

strSQL = "select * from statistik"
set rs = conn.execute(strSQL)
if rs.eof then
Response.write ("Database er tom")
else 
Response.write rs("Ip")& " dato: " & rs(" Tidspunkt") & "<br>"   
end if
%>

som du nok kan høre/læse er jeg ikke så stærk i ASP, så jeg vender tilbage hurtigst muligt når jeg har set på det... TAK

Du kan se det her http://www.willi.dk/logip.asp


hele koden
<%
Dim proxyIP, normalIP, strDato
strDato    = now ' Dato for besøg
proxyIP    = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
normalIP    = Request.ServerVariables("REMOTE_ADDR")

If proxyIP = doublequote Then
  'Hvis brugeren ikke er bag en proxy server
  strIp = normalIP
Else
  'hvis brugeren er bag en proxy
strIp = proxyIP
End If
'connect til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("cgi-bin/statistik.mdb")
Conn.Open DSN

'skriver til DB
    strSQL = "Insert into statistik(Ip, Tidspunkt) VALUES ('" & strIp & "',#" & strDato & "#)"
    Set rs = Conn.Execute(strSQL)

'hent  fra database
    strSQL = "select * from statistik order by Tidspunkt Desc"
    set rs = conn.execute(strSQL)
    if rs.eof then
        Response.write ("Database er tom")
    else
   
    do while not rs.eof or rs.bof
        Response.write "Besøg nr. " & rs("Id") & " Ip: " & rs("Ip")& " dato: " & rs("Tidspunkt") & "<br>"
        rs.movenext
    loop     
    end if

'Luk database
Conn.Close
Set Conn = Nothing
%>

hvad så går det?

Ja men er det muligt at den kun viser den samme ip engang, da det er de samme der er inden på websiden, og det er noget shit at tjekke 68 ip adresser for at se at der kun har været 4 nye inde. øvv

ja, det kan sagtens lade sig gøre, enda på mange måder.
Du kan teste på om ip allerede findes, hvis den gør så overskrive ellers skriv en ny record.
Du kan også bare fortsætte med at skrive alle ned som nu til databasen, men så når du henter fra data basen så udskriver du kun en af hver record, den ville jeg bruge!
Jeg har bare ikke tid til at lave det for dig lige nu.

se evt. http://www.eksperten.dk/spm/252650 hvor eagleeye hjælper mig med at tælle brugere i en database

Hvad så er du hoppet fra?

Nej jeg har bare haft skide travlt, jeg giver dig point.

TAK for hjælpen. Hvis du har mulighed og lyst må du meget gerne, gøre så scriptet bare viser den ene IP adresse engang selvom man er inde på siden mere end engang.
TAK for hjælpen, og undskyld jeg har været lidt "sløv" til at svare :)

Jeg lovede dig 100 point mere, hvis du lave scriptne, hvordan giver jeg dig dem?

du opretter et nyt spørgsmål med henvisning til dette her.
Jeg forsøger lige at finde tid til "viser den ene IP adresse". jeg kan evt poste det i det nye spørgsmål eller her!

Du må gerne poste det her.

ny post på: http://www.eksperten.dk/spm/743370

ok har skrevet en kommentar til dig der