Antal besökare

11 svar · 363 visningar · startad av antar 21 sep. 2002

antarMedlem sedan dec. 2001289 inlägg

Frågan21 sep. 2002 22:55#1

hur visar jag antal besökare genom denna kod?
[kod]
'***************** Senaste besökare ****************
Set Connect=Server.CreateObject("ADODB.Connection")
sConnect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Dagbok.mdb")&""
Connect.Open(sConnect)

Anvandarnamn= request.querystring("Anvandarnamn")
id= request.querystring("ID")

SQL="SELECT Lasare, Anvandarnamn FROM Dagbok WHERE Anvandarnamn='" & Anvandarnamn & "'"
Connect.execute(SQL)
Set Recset=Server.CreateObject("ADODB.Recordset")
Recset.open SQL, Connect, 3,3

adda=session("Anvandarnamn")&"="&now()&"¶"
happ=adda & recset("Lasare")

if not recset("Lasare") = "" then
if not left(recset("Lasare"),instr(recset("Lasare"), "¶")) = session("Anvandarnamn")&"¶" then
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sql="UPDATE Dagbok SET Lasare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'"
connect.execute(sql)
connect.close
set connect = nothing
else
end if
end if
else
if not recset("Anvandarnamn")=session("Anvandarnamn") then
sql="UPDATE Dagbok SET Lasare='" & happ & "' WHERE Anvandarnamn='" & Anvandarnamn &"'"
connect.execute(sql)
connect.close
set connect = nothing
end if
end if
'******************************************************
[kod]

antarMedlem sedan dec. 2001289 inlägg

22 sep. 2002 11:14#2

jag har försökt och fixa det själv men går ej så bra!
här är koden

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database/dagbok.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select Lasare From dagbok Where ID = "&Request.QueryString("LasID")
RecSet.Open Addera, Connect, 3, 3

if not recset("lasare") = "" then
visitors=RecSet("Lasare")
visit_array=Split(visitors,"¶")
For i = 0 to Ubound(visit_array, 1)

Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Addera = "Select Lasare From dagbok Where ID = "&Request.QueryString("LasID")&" and Lasare='"& visit_array(i)&"'"
RecSet2.Open Addera, Connect, 3, 3
next
recset2.close
set recset2 = nothing
end if
%>
<b>Läsare: <%if recset("Lasare") = "" then 
response.write "0" 
else
response.write recset2.recordcount
end if
recset.close
set recset = nothing
connect.close
set connect = nothing%>

OveRRidEMedlem sedan feb. 200112 078 inlägg

22 sep. 2002 17:57#3

adda=session("Anvandarnamn")&"*"

Varför i hela världen gör du så? :)

jboy_87Medlem sedan aug. 20011 099 inlägg

22 sep. 2002 18:08#4

ska det inte vara ¶

antarMedlem sedan dec. 2001289 inlägg

22 sep. 2002 18:11#5

så nu redigera jag inlägget jag skrev nämligen fel!

OveRRidEMedlem sedan feb. 200112 078 inlägg

22 sep. 2002 21:23#6

Jag fattar faktiskt fortfarande inte varför du gör så. :l

antarMedlem sedan dec. 2001289 inlägg

23 sep. 2002 07:34#7

hur ska jag göra då
har en kolumn som ser ut så här

Läsare:
nicke¶antar¶admin

sen så splittar jag ¶

OveRRidEMedlem sedan feb. 200112 078 inlägg

23 sep. 2002 07:56#8

Gör en relationstabell istället:

tblLasare
==================
ID | userId | dagbokID
------------------
22 | 34 | 45
23 | 15 | 56

antarMedlem sedan dec. 2001289 inlägg

23 sep. 2002 08:17#9

jag vill veta hur man tar fram antal läsare med hjälp av andra koden?

antarMedlem sedan dec. 2001289 inlägg

23 sep. 2002 16:58#10

antarMedlem sedan dec. 2001289 inlägg

24 sep. 2002 18:45#11

hjälp nån det e väll inget svårt eller?

jboy_87Medlem sedan aug. 20011 099 inlägg

24 sep. 2002 19:36#12

så kanske?

raknare = uBound(visit_array)
response.write raknare