August 16th, 2004, 12:41 PM
|
|
Contributing User
|
|
Join Date: Jun 2004
Posts: 180
Time spent in forums: 2 Days 15 h 41 m 43 sec
Reputation Power: 5
|
|
|
Help clearing chat contents
I'm trying to modify a chat script I came across. I want the contents to clear when someone exits the chat, but can't get it to work.
Here's what was included to clear the contents
Code:
<%
application("emchatusers") = ""
for f=1 to 20
Application(f)=""
next
%>
This is the code from the main chat page - would adding a line to kill the cookie help me?
Code:
<%
if request("event")="login" then
if (InStr(application("emchatusers"), ","& request("login") &",")<>0) then response.redirect("default.asp?error=1&username=" & request("login"))
Response.Cookies("emchatlogin")=request("login")
application("emchatusers") = application("emchatusers") & request("login") &"," & minute(now) & ","
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")="<font color='green'><b>"& request.Cookies("emchatlogin") & "</b> enters chatroom</font>"
Response.Redirect "chat.asp"
end if
if request.Cookies("emchatlogin")="" then Response.Redirect"default.asp"
if mid(request.Cookies("emchatlogin"),1,1)=" " then Response.Redirect"default.asp"
if request("event")="post" 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")="<b>" & request.Cookies("emchatlogin") & ":</b>"& 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")="<font color='green'><b>"& request.Cookies("emchatlogin") & "</b> leaves chatroom</font>"
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"default.asp"
end if
if request("event")="form" then
%>
Any suggestions would be appreciated!
|
ASP Free Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
