+++default.asp+++( kan er ook index.asp van maken naar jou keuze ) <% if Request.Cookies("emchatrefresh")="" then response.Cookies("emchatrefresh")="15" %>
Type nickname
<%if request("error")=1 then response.write "

Nick "& request("username") &" is used!"%>
+++chat.asp+++ <% '----------------setup------------------ title="Chatroom" 'title of web page '----------------/setup------------------ 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")=""& request.Cookies("emchatlogin") & " enters chatroom" 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")="" & 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") & " leaves chatroom" 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 %>

<% 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 "" 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%> "> <body> <p>This page uses frames, but your browser doesn't support them.</p> </body> <% end if if request.Cookies("barpos")="1" then %> "> <body> <p>This page uses frames, but your browser doesn't support them.</p> </body> <% 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

 

Refresh
<% end if %> +++clear.asp+++ <% 'clear users and chat data application("emchatusers") = "" for f=1 to 20 Application(f)="" next %>