webForumDet fria alternativet

räkna unika träffar på min sida ??

ASP

14 svar · 310 visningar · startad av jwradhe

Medlem sedan juni 2002711 inlägg
Frågan#1

hur gör jag det på bästa sätt ???

Medlem sedan nov. 20014 054 inlägg
#2

Du loggar besökarnas IP eller sätter en kaka på deras dator, och kollar sedan om den finns, eller IP:et finns.

Óm det finns så loggar du ej deras besök, annars logga besöket!

Medlem sedan juni 2002711 inlägg
#3

oki thnx !!

Medlem sedan juni 2002711 inlägg
#4

hehe har fastnat .
så här långt har jag kommit :

<%
user = Request.ServerVariables("REMOTE_ADDR")
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/grynsta.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From raknare where ip = user "

if RecSet.EOF then 
RecSet.Open Addera, Connect, 3, 3
RecSet.Addnew
RecSet("ip") = user
RecSet.Update
RecSet.Close
Set RecSet = nothing

Connect.Close
	
	Set Connect = nothing

%>

(har itne hållt på med asp på länge)

någon som kan hjälpa mig hur jag ska göra =)

Medlem sedan jan. 20032 285 inlägg
#5
<%
user = Request.ServerVariables("REMOTE_ADDR")
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/grynsta.mdb")
Set objRS = Connect.Execute("SELECT * FROM raknare")

If NOT objRS.EOF Then
  Do Until objRS.EOF
    strIP = strIP & user
    objRS.MoveNext
  Loop
End If

If NOT InStr(strIp,user) <> 0 Then
  strSQL = "UPDATE raknare SET besok = besok + 1, ip = ip & '" & user & "' WHERE id = MAX(id)"
  Connect.Execute(strSQL)
End If 

Set objRS = Nothing
Connect.Close
Set Connect = Nothing
%>

Kan det kanske funka, tro?

Medlem sedan dec. 200012 464 inlägg
#6
Addera = "Select * From raknare where ip = '" & user & "'"
Medlem sedan juni 2002711 inlägg
#7

vilka fält i db och vilka tabeller ska jag ha ?

Medlem sedan jan. 20032 285 inlägg
#8

raknare
---------------------
id - räknare
ip - PM
besok - Tal
:)

Medlem sedan juni 2002711 inlägg
#9

Microsoft JET Database Engine error '80040e14'

Cannot have aggregate function in WHERE clause (id=MAX(id)).

/index.asp, line 16

Medlem sedan jan. 20032 285 inlägg
#10
strSQL = "UPDATE raknare SET besok = besok + 1, ip = ip & '" & user & "' WHERE id = 1"

Om du bara har en post, där id:t verkligen är 1. :)

Medlem sedan juni 2002711 inlägg
#11

asså jag fattar inte

Medlem sedan jan. 20032 285 inlägg
#12

Du gör en ny post i tabellen raknare där kolumnen id (som är av typen Räknare, kan även vara Tal om du vill :)) har värdet 1.

Medlem sedan juni 2002711 inlägg
#13

... fattar inte mera iaf.......

Medlem sedan jan. 20032 285 inlägg
#14

Bifogar färdigt script med databas och allt. :)

Medlem sedan juni 2002711 inlägg
#15

thnx för det

258 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)
127 ms — ändringar (db)