10 svar · 308 visningar · startad av qwerty
om jag använder http referer så får jag ju inget värde om man skriver in adressen till min sida i adressfältet. Finns det andra förutsättningar då det inte blir något värde eller kan jag förutsäta att när det är tomt kan jag räkna detta som en direct hit?
Det beror väl på vad dedt står.
resultatet [unknown orgin] har du troligtvis inte speciellt stor nytta av.
Om det däremot står http://www.idg.se/besthomepage/here
som refer, så kan du nog räkna med det.
Jag vill spara alla referers i en databas. Så långt inga problem.
Men om referern redan finns ska bara ett värde räknas upp med ett(1).
ID Referer Antal
0 http://www.evreka.com 5
1 http://wwww.hej.nu 7
2 http://www.test.com 1
Hur lösa detta?
Nu har jag gjort så referenten sparas i databasen. Nu undrar jag hur jag ska gå vidare:
Jag vill ju att innan länken läggs i databasen ska man kolla om den redan finns. Gör den det ska fältet antal ökas med 1 istället.
Misstänker att man måste göra ngn form av loop men har ännu inte fått till det.
Tack på f-hand
Gör en sökning i databasen efter den nya referern, och finns den så ökar du på med ett annars lägger du in den och lägger värdet ett i räknefältet.
Låt mig omformulera min fråga:
Jag skulle vilja göra en sökning i databasen efter den nya referern, och finns den så vill jag öka på den med ett annars läggs den in och lägger värdet ett i räknefältet. 
Det jag undrade var alltså: Hur åstakomma detta? Hur göra sökningen i databasen?
[Redigerat av qwerty den 10 aug 2001]
Finns det andra förutsättningar då det inte blir något värde
HTTP_REFERER sätts bara om användaren klickat på en länk.
Databasfnunkan:
Dim intAff,strReferer
intAff=0
strReferer=request.servervariables("HTTP_REFERER")
objConn.Execute "UPDATE Referers SET Antal=Antal+1 WHERE Referer='" & strReferer & "'",intAff
if intAff<=0 then
objConn.Execute "INSERT INTO Referers (Referer,Antal) VALUES('" & strReferer & "',1)"
end if
Det funkar när man kommer via en länk som redan finns i databasen, men den lägger inte till nya.
Hur ser din kod ut?
Så här:
Set Con = Server.CreateObject("ADODB.Connection")
path = "DBQ=" & ("c:\wwwroot\stats\statistik.mdb")
Con.Open "Driver={Microsoft Access Driver (*.mdb)};" & path," ",""
dim intAff,strReferer
intAff=0
strReferer=request.servervariables("HTTP_REFERER")
Con.execute "UPDATE Tabell1 SET Antal=Antal+1 WHERE Ref='" & strReferer & "'",intAff
if intAff<=0 then
ConExecute "INSERT INTO Tabell1 (Ref,Antal) VALUES('" & strReferer & "',1)"
end if
con.close