webForumDet fria alternativet

Chattare online?

ASP

2 svar · 176 visningar · startad av Robson

Medlem sedan dec. 2001200 inlägg
Frågan#1

Hej,
Går det på något vis att med delar av denna kod visa på en annan sida antalet "online-chattare"?

Testade själv med att klistra in hela denna sidan men då laddade förstasidan om hela tiden...

Nån som vet nåt enkelt?
Robson

<html>
<head>
<meta http-equiv="refresh" content="10">
</head>
<body>
<%
Dim userlist, datelist, i, num, users, refresh

users = application("users")
refresh = application("refresh")

for i = 1 to 50
if users(i) = session("name") then
refresh(i) = time
exit for
end if
next

for i = 1 to 50
if users(i) <> "" then
if datediff("s",refresh(i), time) > 20 then
application("conversation") = "<b><i>" &_
users(i) & " Lämnar chatten</b></i><br>" &_
application("conversation")
users(i) = ""
application("numusers") = _
application("numusers") - 1
end if
end if
next
application.lock
application("users") = users
application("refresh") = refresh
application.lock
%>
<h3><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Personer inne:</font>
<%=application("numusers")%></h3>
<%
for i = 1 to 50
if users(i)<> "" then
response.write users(i) & "<br>"
end if
next
%>
</body>
</html>

Medlem sedan mars 20015 287 inlägg
#2

<% =application("numusers") %>

kanske...

Medlem sedan dec. 2001200 inlägg
#3

Testat med det, inkl include chat/users.asp som koden ligger på. Men då laddar bara sidan om hela tiden.
Hur skall man bara få med <% =application("numusers") %> ???

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