" & request.Cookies("emchatlogin") & ":"& request("text") &""
Response.Redirect "chat.asp?event=form"
end if
if request("event")="logout" then
Application(20)=Application(19)
Application(19)=Application(18)
Application(18)=Application(17)
Application(17)=Application(16)
Application(16)=Application(15)
Application(15)=Application(14)
Application(14)=Application(13)
Application(13)=Application(12)
Application(12)=Application(11)
Application(11)=Application(10)
Application(10)=Application(9)
Application(9)=Application(8)
Application(8)=Application(7)
Application(7)=Application(6)
Application(6)=Application(5)
Application(5)=Application(4)
Application(4)=Application(3)
Application(3)=Application(2)
Application(2)=Application(1)
Application("1")="
"& request.Cookies("emchatlogin") & " ãÛÇÏÑ ÛÑÝÉ ÏÑÏÔÉ"
userarray=split(application("emchatusers"),",")
userscount=int(((UBound(userarray)+1))-0.5)
for f = 0 to userscount-1 step 2
if userarray(f)=request.Cookies("emchatlogin") then
reptmp=userarray(f) & "," & userarray(f+1) &","
application("emchatusers") = replace(application("emchatusers"),reptmp,"")
end if
next
Response.Cookies("emchatlogin")=""
Response.Redirect"../vb"
end if
if request("event")="form" then
%>
<%
end if
if request("event")="show" then
Response.Write ""
Response.Write ""
Response.Write ""
for f=1 to 20
Response.Write Application(f) & "
" next userarray=split(application("emchatusers"),",") userscount=int(((UBound(userarray)+1))-0.5) for f = 0 to userscount-1 step 2 if abs(minute(now)-int(userarray(f+1))) > 2 then application("emchatusers")=replace(application("emchatusers"),userarray(f) & "," & userarray(f+1) & ",","") end if if userarray(f)=request("userrefresh") then reptmp=userarray(f) & "," & userarray(f+1) &"," application("emchatusers") = replace(application("emchatusers"),reptmp,userarray(f) & "," & minute(now) &",") end if next end if if request("event")="listusers" then Response.Write "" Response.Write "" Response.Write "
|
|
" next userarray=split(application("emchatusers"),",") userscount=int(((UBound(userarray)+1))-0.5) for f = 0 to userscount-1 step 2 if abs(minute(now)-int(userarray(f+1))) > 2 then application("emchatusers")=replace(application("emchatusers"),userarray(f) & "," & userarray(f+1) & ",","") end if if userarray(f)=request("userrefresh") then reptmp=userarray(f) & "," & userarray(f+1) &"," application("emchatusers") = replace(application("emchatusers"),reptmp,userarray(f) & "," & minute(now) &",") end if next end if if request("event")="listusers" then Response.Write "" Response.Write "" Response.Write "
"
'Response.Write "
"
userarray=split(application("emchatusers"),",")
userscount=int(((UBound(userarray)+1))-0.5)
for f = 0 to userscount-1 step 2
response.write "" & userarray(f) & "
" next end if if request("event")="" then if request.Cookies("barpos")="" then %><%=title%>
<%
end if
if request.Cookies("barpos")="1" then
%>
<%=title%>
<%
end if
end if
if request("event")="refresh" then
Response.Cookies("emchatrefresh")=request("refresh")
Response.Redirect"chat.asp"
end if
if request("event")="aptop" then
Response.Cookies("barpos")=""
Response.Redirect"chat.asp"
end if
if request("event")="aptop1" then
Response.Cookies("barpos")="1"
Response.Redirect"chat.asp"
end if
if request("event")="setup" then
%>
Appearance
<%
end if
%>
"
userarray=split(application("emchatusers"),",")
userscount=int(((UBound(userarray)+1))-0.5)
for f = 0 to userscount-1 step 2
response.write "" & userarray(f) & "" next end if if request("event")="" then if request.Cookies("barpos")="" then %>
