Hjälp till min besöksräknare

CeeronMedlem sedan aug. 2000378 inlägg

Frågan24 okt. 2002 14:10#1

Halloj

Hade tänkt o göra en db som ska innehålla alla visits mina sidor får. Det finns olika poster för alla mina olika sidor...

db:
Name = unikt namn för varje sida
Counter = räknaren

Jag har lagt all kod i en include fil för att jag ska kunna infoga olika besöksräknare på olika sidor. Jag dimmar namnet på sidan innan jag infogar för att koden ska veta vilken post som ska användas (page = blabla).

Kod:

Application.Lock
Application.Contents("visits") = Application.Contents("visits") -- 1
Application.Unlock 

If page = "pelle" Then path = Nothing
Else
path = "../"
End If

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.Mappath("" & path & ""Counter.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
visits = "SELECT \* FROM Counter WHERE Name = 'SkarmRent'" 

RecSet.Open visits, Connect, adOpenStatic, adLockOptimistic 

RecSet("Visits") = Application.Contents("visits")

RecSet.Update

count = RecSet("Visits")

RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing

Jag vet egentligen inte vad jag håller på med så tacksam för hjälp ;)

LarsGMedlem sedan dec. 200012 464 inlägg

24 okt. 2002 16:22#2

Denna kod ökar på visits med 1 för den givna sidan. Om den inte finns i databasen så lagras en post.

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("" & path & ""Counter.mdb") 

connect.execute "update counter set visits = visits + 1  where name = '" & page & "'",rows,128
if  rows = 0 then
connect.execute "insert into counter(name,visits) values('" & page & "',1)",rows,128
end if
Connect.Close 
Set Connect = nothing

Counter är inget bra tabellnamn om man använder Jet SQL eftersom det är ett nyckelord i den sql-dialeketen.