Jo, med detta kan jag på ett smidigt sätt få fram vilka som är inloggade.
<%user_array=split(Application("active_users"),"*")
xx="<img src=bilder/offline.gif width=10 height=10>"
for t=0 to ubound(user_array)
user=user_array(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 göra en loop som hämtar alla som är online i recsettet också?? I sådana fall hur?
MVH Jesper T
------------------
If ASPackad date-1 then ASPerin Now
<%
Do Until rs.eof
user_array=split(Application("active_users"),"*")
xx="<img src=bilder/offline.gif width=10 height=10>"
for t=0 to ubound(user_array)
user=user_array(t)
If recset("Username") = user Then xx="<img src=bilder/online.gif width=10 height=10>"
End if
next
Response.Write xx
rs.movenext
loop
%>
Fast igentligen heter det ju inte online utan det skulle bli typ något sådant här, men det funkar inte
user_array=split(Application("active_users"),"*")
sql = "SELECT * FROM users where username= user_array ORDER BY username"
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open sql, conn, 3, 3
I mitt fösta inlägg har jag beskrivit hur jag loopar ut röd eller grön stjärna framför ett användarnamn beroende på status. Om jag försöker skriva ut "user_array" med response.write så står det nada!
MVH Jesper T
------------------
If ASPackad date-1 then ASPerin Now
query = "select username from users where status = 'online'"
Och loopa ut alla användare som är online för tillfället. Men "status = 'online' kan jag ju inte använda, jag försökte med "user_array" funkade inte heller!
------------------
If ASPackad date-1 then ASPerin Now
<%
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"),"*")
xx="<img src=bilder/offline.gif width=10 height=10>"
for t=0 to ubound(user_array)
user=user_array(t)
If recset("Username") = user Then xx="<img src=bilder/online.gif width=10 height=10>"
End if
next
Response.Write xx
rs.movenext
loop
RS.close
set RS= nothing
conn.Close
set conn = nothing
%>
Funkar inte det? (Med reservatioon för din databaskoppling.)
Visar det inte en bild per lirare som är online?
I så fall kan du ju komplettera med namn osv från databasen om du vill. (I loopen.)
Jo det funkar, men det gör mitt första exempel också. Men jag vill att endast de som är online skall visas i loopen.
(Utan bild). Jag har säkert förklarat dåligt! :l
MVH Jesper
------------------
If ASPackad date-1 then ASPerin Now
Om Du vissar hur din databas ser ut så ska vi nog kunna hjälpa dig !!! Det känns lite onödigt att Loopa igenom din user_array,men det går nuog att fixa bara vi får se strukturen på databasen !!!
tabell = Users
med kolumnerna: username/firstname/surname
Och som jag har försökt att förklara tidigare i inlägget så kan jag i nuläget loopa alla användare och få en grön respektive röd prick framför användarna beroende på deras on/offline status. Det jag vill göra är att ENDAST lista de användare som är online JUST NU.
Nej, nej, jag har ingen kolumn som heter usersonline eller så, måste jag ha det kanske???
Jag har en databas med username, firstname, lastvisit etc
och sen kör jag användareonline för tillfället med aplictations och global.asa som beskrivet i mitt "orginalinlägg".
Ja jag vet inte, det borde ju inte vara så svårt tycker man. Det handlar ju om att hämta upp användare som för tillfället är online ur applications och snurra ut dessa. Det kan väl inte vara så *svordom* svårt! :l :( :)
264 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25