chat.asp
<%
if request("event")="login" then
Response.Cookies("emchatlogin")=request("login")
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='black'><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='black'><b>"& request.Cookies("emchatlogin") &
"</b> leaves chatroom</font>"
Response.Cookies("emchatlogin")=""
Response.Redirect"default.asp"
end if
if request("event")="form" then
%>
<body bgcolor="#c0c0c0" topmargin="5">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<form action='chat.asp?event=post' method='post' name='chatform'>
<input type='text' name='text' size='50'>
<input type="image" src="images/post.gif" width="84" height="18" border="0">
</td>
<td width="120">
<a href="chat.asp?event=setup" target="_parent"><p align="right"><img
border="0" src="images/setup.gif" width="44" height="18" ></a>
<a href="chat.asp?event=logout" target="_parent"><img border="0"
src="images/exit.gif" width="44" height="18"></a>
</td>
</tr>
</table>
</form>
<script language="VBScript">
Sub Window_onLoad
chatform.text.focus
End Sub
</script>
<%
end if
if request("event")="show" then
Response.Write "<meta http-equiv='refresh' content='" &
request.Cookies("emchatrefresh") &"'>"
Response.Write "<body bgcolor='#c0c0c0'>"
Response.Write "<font face='arial,verdana' size='2'>"
for f=1 to 20
Response.Write Application(f) & "<br>"
next
end if
if request("event")="" then
if request.Cookies("barpos")="" then
%>
<frameset rows="37,*" frameborder="0">
<frame name="header" scrolling="no" noresize target="main"
src="chat.asp?event=form">
<frame name="main" src="chat.asp?event=show">
<noframes>
<body>
<p>This page uses frames, but your browser doesn't support them.</p>
</body>
</noframes>
</frameset>
<%
end if
if request.Cookies("barpos")="1" then
%>
<frameset rows="*,37" frameborder="0">
<frame name="main" scrolling="no" target="main"
src="chat.asp?event=show">
<frame name="header" noresize src="chat.asp?event=form">
<noframes>
<body>
<p>This page uses frames, but your browser doesn't support them.</p>
</body>
</noframes>
</frameset>
<%
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
%>
<body bgcolor="#c0c0c5">
<b><font face="Arial" size="4">Appearance</font></b>
<hr noshade>
<p align="center"><a href='chat.asp?event=aptop'><img border="0"
src="images/bartopico.gif" width="150" height="138"></a>
<a href='chat.asp?event=aptop1'><img border="0" src="images/bardownico.gif"
width="150" height="138"></a></p>
<b><font face="Arial" size="4">Refresh</font></b>
<hr noshade>
<center>
<form action='chat.asp?event=refresh' method='post'>
<select size="1" name='refresh'>
<option <%if request.Cookies("emchatrefresh")="1" then Response.Write
"selected"%>>1</option>
<option <%if request.Cookies("emchatrefresh")="2" then Response.Write
"selected"%>>2</option>
<option <%if request.Cookies("emchatrefresh")="5" then Response.Write
"selected"%>>5</option>
<option <%if request.Cookies("emchatrefresh")="10" then Response.Write
"selected"%>>10</option>
<option <%if request.Cookies("emchatrefresh")="30" then Response.Write
"selected"%>>30</option>
<option <%if request.Cookies("emchatrefresh")="60" then Response.Write
"selected"%>>60</option>
</select>
<input type='submit' value='Set refresh (sec.)'>
</form>
<%
end if
%>
-------------------
default.asp
<script language="javaScript" type="text/javascript"
SRC="js/pz_chromeless_2.1.js"></SCRIPT>
<script>
function openIT() {
theURL="test.html"
wname ="CHROMELESSWIN"
W=400;
H=200;
windowCERRARa = "img/close_a.gif"
windowCERRARd = "img/close_d.gif"
windowCERRARo = "img/close_o.gif"
windowNONEgrf = "img/none.gif"
windowCLOCK = "img/clock.gif"
windowREALtit = " Task title"
windowTIT = "<font face=verdana size=1> Window title</font>"
windowBORDERCOLOR = "#000000"
windowBORDERCOLORsel = "#999999"
windowTITBGCOLOR = "#999999"
windowTITBGCOLORsel = "#333333"
openchromeless(theURL, wname, W, H, windowCERRARa, windowCERRARd,
windowCERRARo,
windowNONEgrf, windowCLOCK, windowTIT, windowREALtit , windowBORDERCOLOR,
windowBORDERCOLORsel,
windowTITBGCOLOR, windowTITBGCOLORsel)
}
</script>
<%
if Request.Cookies("emchatrefresh")="" then
response.Cookies("emchatrefresh")="15"
%>
<body bgcolor="#c0c0c0" topmargin="5">
<font face='verdana,arial' size='2'>
<center>
Type nickname
<form action='chat.asp?event=login' method='post'>
<input type='text' name='login' size='10'>
<input type='submit' value='Enter'>
<div align="center">
<center>
<table border="1" align="right">
<tr>
<td width="100%">
<p align="right"><img border="0"
src="../../chapters/03-who%20gives%20a/img_small.gif"></td>
</tr>
</table>
</center>
</div>
</center>
<p align="right">OK, let's jam
now! </p>
</form>
<font face='verdana,arial' size='2'>
<hr size='1'>
</font>
<p> </p>
</font>
<p><b><font size="5" face="Arial" color="#C0C0C0">chat brought about by the
good
folks at </font></b><font face="verdana,arial" size="2"> </font><a
href="
http://www.ditdomain.dk"> face="verdana,arial" size="4"
color="#C0C0C0"><b>www.ditdamain.dk face="verdana,arial"
size="2">
</font></p>
----------------------
the images you can make yourself, I gues
MVH
Emil