Vides räknare (Räkna inte när personer kommer från vissa ip-adresser)

2 svar · 175 visningar · startad av Method 14 dec. 2001

MethodMedlem sedan apr. 2001357 inlägg

Frågan14 dec. 2001 10:34#1

Jag använder Vides besöksräknarscript.
Jag vill inte att det läggs till en post i databasen när en besökare kommer från ip-adressnätet "192.168.*", alltså när besökaren kommer innifrån från företaget.
Använder följande kod

<!--#include file="inc_functions.asp"-->
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
	Set objConn = openDb( Application( "dbstr" ) )
	
	strIp = Request.ServerVariables("REMOTE_HOST")
	strKlient = Request.ServerVariables("HTTP_USER_AGENT")
	dtmDatum = Now
	strReferer = Request.ServerVariables("HTTP_REFERER")
	
	SQL = "INSERT INTO logg (dtm, ip, klient, referer) VALUES (#" & dtmDatum & "#, '" & strIp & "', '" & strKlient & "', '" & strReferer & "')"
	objConn.Execute(SQL)
	
	objConn.Close
	Set objConn = Nothing
	Application("intActive_users") = Application("intActive_users") + 1
End Sub

Sub Session_OnEnd
	Application("intActive_users") = Application("intActive_users") - 1
End Sub

Sub Application_OnStart
	Application("intActive_users") = 0
	Application( "dbstr" ) = Server.Mappath("/") & "../../databas/stats.mdb"
End Sub
Sub Application_OnEnd
End Sub
</SCRIPT>

Konkreta kodförslag är välkommna
Tack på förhand

------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd

VideMedlem sedan dec. 19998 577 inlägg

14 dec. 2001 10:42#2

strIp = Request.ServerVariables("REMOTE_HOST")
strKlient = Request.ServerVariables("HTTP_USER_AGENT")
dtmDatum = Now
strReferer = Request.ServerVariables("HTTP_REFERER")
if left( strIp, 7 ) <> "192.168" then
SQL = "INSERT INTO logg (dtm, ip, klient, referer) VALUES (#" & dtmDatum & "#, '" & strIp & "', '" & strKlient & "', '" & strReferer & "')"
objConn.Execute(SQL)
end if

------------------
Mostly Harmless

MethodMedlem sedan apr. 2001357 inlägg

14 dec. 2001 16:15#3

Funka bra först men...

Jag vet inte om jag pillade lite mycket på servern??

Nu vill den inte lägga till några nya poster i databasen. Jag får inga felmeddelande när jag laddar sidan men när jag kör httpview på den ser det ut så här:

Header (Length = 263):
HTTP/1.1·500·Internal·Server·Error(CR)
(LF)
Server:·Microsoft-IIS/5.0(CR)
(LF)
Date:·Fri,·14·Dec·2001·16:05:24·GMT(CR)
(LF)
Connection:·Keep-Alive(CR)
(LF)
Content-Length:·373(CR)
(LF)
Content-Type:·text/html(CR)
(LF)
Set-Cookie:·ASPSESSIONIDGGGGQICC=PKFJPOABBKCHLDHAGLPHJBMB;·path=/(CR)
(LF)
Cache-control:·private(CR)
(LF)
(CR)
(LF)

Content (Length = 373):
·<font·face="Arial"·size=2>(LF)
Microsoft·JET·Database·Engine·<font·face="Arial"·size=2>error·'80040e14'(LF)
(LF)
<font·face="Arial"·size=2>Syntax·error·(missing·operator)·in·query·expression·''Rex·Swain's·HTTP·Viewer·(http://www.rexswain.com/httpview.html)',·'')'.(LF)
(LF)
<font·face="Arial"·size=2>//global.asa<font·face="Arial"·size=2>,·line·12·

OBS Jag har inte gjort några andra förändringar i koden än de Vide föreslog.
Någon som har några ideer??
Tacksam för hjälp

------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd