Logging af besøgende i asp?

hvad mener du ?

Registrere brugeres

Ipnummer
Internet program
osv.

Øjeblik,
har en der er køreklar

o.k.
her:
1.  du laver en access db som hedder \"counter.mdb\" og som indeholder en tabel ved navn count1
den skal så indeholde fgl.:
IP = tekst
Referent = tekst
Browser = tekst
Sprog = tekst
Host = tekst
Tid = Dato & klokkeslet
Dato = Dato & klokkeslet

2. asp koden:
<%
Set oConn = Server.CreateObject(\"ADODB.Connection\")
oConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"counter.mdb\")

Function fixQuotes( theString )
    fixQuotes = Replace( theString, \"\'\", \"\'\'\" )
End Function

If Session(\"Count\") = \"\" Then
    Session(\"Count\") = \"Hit\"

IP = Request.ServerVariables(\"REMOTE_ADDR\")
Referent = Request.ServerVariables(\"HTTP_REFERER\")
Browser = Request.ServerVariables(\"HTTP_USER_AGENT\")
Sprog = Request.ServerVariables(\"HTTP_ACCEPT_LANGUAGE\")
Host = Request.ServerVariables(\"HTTP_HOST\")
Tid = Time
Dato = Date

If Referent = \"\" Then
Referent = \"Direkte forespørgsel\"
End If

Sql = \"INSERT INTO count1 (IP, Referent, Browser, Sprog, Host, Tid, Dato) VALUES(\'\" & fixQuotes(IP) & \"\',\'\" & fixQuotes(Referent) & \"\',\'\" & fixQuotes(Browser) & \"\',\'\" & fixQuotes(Sprog) & \"\',\'\" & fixQuotes(Host) & \"\',\'\" & fixQuotes(Tid) & \"\',\'\" & fixQuotes(Dato) & \"\')\"
oConn.Execute(Sql)

End If
%>


Vers\'go

* MoRoax...

Hvorfor bruger du ikke blot serverens logfil?

Moonduck>> det er ikke min server og jeg har derof ikke adgang til logfilen

Takker for point ,-)

De fleste webhotteler vil gerne give adgang til logfilerne. Det vil de nok hellere end at have det forøgede pres på deres server som overnstående løsning giver.