<%
function MakeStat(LogPage, Comment, LookUp)
REM *********************************************************
REM ** Diese Funktion �bertr�gt Log-Daten in die Datenbank **
REM ** --------------------------------------------------- **
REM ** Version 3.0 - 00/10/09 - Stefan Mayer **
REM *********************************************************
REM On Error Resume Next
REM Daten ermitteln: Browser & Version
Set BC = Server.CreateObject("MSWC.BrowserType")
txtBro = bc.browser
if txtBro = "" Then txtBro = "-"
txtVer = bc.Version
if txtVer = "" Then txtVer = "-"
Set BC = Nothing
REM Daten ermitteln: IP-Adresse und Host-Name [letzteres nur bei
LookUp=TRUE]
arrIP = Split(Request.ServerVariables("REMOTE_ADDR"),".")
If LookUp Then
Set DNS = Server.CreateObject("AspDNS.Lookup")
txtHost = DNS.RevNSLookup(Request.ServerVariables("REMOTE_ADDR"))
Set DNS = Nothing
Else
txtHost = "-"
End If
REM Daten ermitteln: alles Andere
txtAgent = Request.ServerVariables("HTTP_USER_AGENT")
if txtAgent = "" Then txtAgent = "-"
If Comment = "" Then
txtRefer = Request.ServerVariables("HTTP_REFERER")
if txtRefer = "" Then txtRefer = "-"
Else
txtRefer = Comment
End If
REM Datenbank �ffnen
strConn = "Driver={Microsoft Access Driver
(*.mdb)};DriverID=25;DBQ="
rem strConn = strConn & Server.MapPath("log.mdb")
strConn = strConn & "H:\testweb\benutzerverfolgung\log.mdb"
strConn = strConn & ";FIL=MS Access;MaxBufferSize=512;PageTimeout=5;"
Set Conn = CreateObject("ADODB.Connection")
Conn.Open strConn
Set RS = CreateObject("ADODB.Recordset")
RS.Cursortype = 1
RS.LockType = 3
RS.Open "SELECT * FROM T_LOG WHERE ID=0", Conn
RS.AddNew
RS("Seite") = LogPage
RS("IP1") = arrIp(0)
RS("IP2") = arrIp(1)
RS("IP3") = arrIp(2)
RS("IP4") = arrIp(3)
RS("Host") = txtHost
RS("HTTP_USER_AGENT") = txtAgent
RS("HTTP_REFERER") = txtRefer
RS("Browser") = txtBro
RS("Version") = txtVer
RS.Update
RS.Close
Conn.Close
end function
%>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
