webForumDet fria alternativet

online - User array

ASP

23 svar · 493 visningar · startad av Jesper T · sida 2 av 2

Frågan, av Jesper T

Jo, med detta kan jag på ett smidigt sätt få fram vilka som är inloggade. <%userarray=split(Application("activeusers"),"") xx="<img src=bilder/offline.gif width=10 height=10>" for t=0 to ubound(userarray) user=userarray(t) If recset("Username") = user Then xx="<img src=bilder/online.gif width=10 height=10>" next Response.Write xx%> Funkar kanoon! Men nu till frågan: Kan jag

Läs frågan i sin helhet →
Medlem sedan mars 20015 287 inlägg
#21

Hallå igen, jag är nog en smul trög, men gör ett ytterligare försök.

I din "Application("active_users")" vad har du där egentligen?

Som Tobbster frågar: hur fyller du den?

Jag har hela tiden antagit att den endast innehåller de som är ONLINE, men jag börjar tro att så inte är fallet?

Du kan kika i denna tråd: http://webforum.aleborg.com/forum/showthread.php?s=&threadid=12597&highlight=Application

Medlem sedan nov. 20017 144 inlägg
#22

Jo, med detta kan jag faktiskt lista alla inloggade!

(Tack för länken solbulle)

<%
user_array=split(Application("active_users"),"*")
for i = 0 to ubound(user_array)

response.write user_array(i)&"<br>"
next

%>

Men till saken hör att jag vill även ta med grejjer ur databasen såsom epost för och efternamn etc. och denna kod listar endast användarnamnen, och hur lägger jag ihop det med det????

MVH Jesper

Medlem sedan mars 20015 287 inlägg
#23

God kväll igen ;)

Om nu det vi skrev lite högre upp fungerar, (orkar inte riktigt dra alla slutsatser nu) så är det väl bara att plocka ut ur databasen för glatta livet till exempel:

<%
Set conn= Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM users ORDER BY username"

rs.Open sql, conn, 3, 3

Do Until rs.eof
user_array=split(Application("active_users"),"*")

for t=0 to ubound(user_array)
user=user_array(t)
If rs("Username") = user Then 
Response.Write "<img src=bilder/online.gif width=10 height=10>"
Response.Write rs("Username") & "<br>"
Response.Write rs("epost") & "<br>"
Response.Write rs("efternamn") & "<br>"

End if
next

rs.movenext
loop

	RS.close
	set RS= nothing
	conn.Close
	set conn = nothing
%>

Hoppas att det ska fungera.
Nu är det god natt för mig i alla fall.

Medlem sedan nov. 20017 144 inlägg
#24

Suuuuuuuuuuuuuuuuupppppppperrrrrrrrrr

Helt perfekt!

Funkar som en dans!! :e

246 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
119 ms — deklarationer (db)
0 ms — hämta statistik (cache)
123 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)