<%
remoteHost = Request.ServerVariables("remote_host")
remoteAddr = Request.ServerVariables("remote_addr")
Set re = New RegExp
re.Pattern = "^192\.168\.0\."
If Not (re.Test(remoteHost) Or re.Test(remoteAddr)) Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("db/db.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM logg"
RecSet.open Addera, Connect, 1, 2
RecSet.AddNew
Recset("IP") = Request.ServerVariables("remote_host")
Recset("datum") = Now()
RecSet.Update
RecSet.Close
Connect.Close
End If
Set re = Nothing
%>
Frågan#1
Hej!
Har ett script som sköter besöksstatistiken.
Följande kod lägger in besökaren i databasen när denna kommer in på startsidan:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath("db/db.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM logg"
RecSet.open Addera, Connect, 1, 2
RecSet.AddNew
Recset("IP") = Request.ServerVariables("remote_host")
Recset("datum") = Now()
RecSet.Update
RecSet.Close
Connect.Close
%>
Nu är det ju så att jag inte vill ha med mig själv i besöksloggen. Med andra ord - går det att se till så alla med IP-nummer 192.168.0.* inte kommer med i databasen?