Hjælp til chat!!
Jeg har fået denne chat fra en side på internettet, og derefter har jeg ændret lidt ved den!!Jeg kunne godt tænke mig at lave en liste over online chattere i højre side! (Det er der mit webcam billed er)
Det skal se ud som der gør nu. Men de andre brugere skal også være på listen!! (Med evt.billed/webcam)
Her er default.asp:
<%
\' standard indstillinger
font = \"<font face=\'arial\' size=\'2\'>\"
page_header = \"Timo\'s Chat System\"
page_bgcolor = \"#0000CB\"
send_bgcolor = \"#0000CB\"
page_logoncolor = \"#FFFFFF\"
dato_color = \"#000000\"
name_color = \"#12FF00\"
text_color = \"#bdd81d\"
\' cache hele outputtet
response.buffer = true
\' logoff URL - der hvor brugeren redirectes hen, ved at indtaste \"/logoff\"
logoff_url = \"http://www.technoas.com\"
\' antal synlige linier i chat vinduet
antal_linier = 30
\' hent dokument mode
mode = request(\"mode\")
\' ----------------------------------------------------
\' setup frameset
\' ----------------------------------------------------
if mode = \"\" then
%>
<html>
<head><title><% = page_header %></title></head>
<frameset rows=\"*,50\" bordercolor=\"#bdd81d\">
<frameset cols=\"*,120\">
<frame src=\"default.asp?mode=chat_frame\" name=\"chat_frame\">
<frame src=\"default.asp?mode=webcam_frame\" name=\"default.asp?mode=chat_frame\" noresize scrolling=\"no\">
</frameset>
<frame src=\"default.asp?mode=name_frame\" name=\"name_frame\" scrolling=\"no\">
</frameset>
</html>
<%
end if
\' ----------------------------------------------------
\' gem ny brugers navn
\' ----------------------------------------------------
if mode = \"savename\" then
session(\"chatname\") = request(\"chatname\")
for x = antal_linier to 2 step -1
application(\"chatline_\" & x) = application(\"chatline_\" & x-1)
next
application(\"chatline_1\") = \"<b><font color=\'\" & page_logoncolor & \"\'>\" & session(\"chatname\") & \" er logget på kl. \" & now & \"</b></font>\"
mode = \"name_frame\"
end if
\' ----------------------------------------------------
\' send en besked til chatten
\' ----------------------------------------------------
if mode = \"send\" then
for x = antal_linier to 2 step -1
application(\"chatline_\" & x) = application(\"chatline_\" & x-1)
next
besked = request(\"besked\")
\' /logoff - logger en person af chatten
if besked = \"/logoff\" then
for x = antal_linier to 2 step -1
application(\"chatline_\" & x) = application(\"chatline_\" & x-1)
next
application(\"chatline_1\") = \"<b><font color=\'#ffff00\'>\" & session(\"chatname\") & \" er logget af kl. \" & now & \"</b></font>\"
session(\"chatname\") = \"\"
%>
<script language=\"javascript\">
top.location.href=\"<% = logoff_url %>\";
</script>
<%
response.end
else
application(\"chatline_1\") = \"<font color=\'\" & dato_color & \"\'><b>\" & now & \"</font> <font color=\'\" & name_color & \"\'>\" & session(\"chatname\") & \"</font> : <font color=\'\" & text_color & \"\'>\" & besked & \"</b></font>\"
response.redirect \"default.asp?mode=chat_frame\"
end if
end if
\' ----------------------------------------------------
\' udskriver alle chat linier på chat vinduet
\' ----------------------------------------------------
if mode = \"chat_frame\" then
response.write \"<html><head><META HTTP-EQUIV=\'Refresh\' CONTENT=\'10;URL=default.asp?mode=chat_frame\'></head>\"
response.write \"<body bgcolor=\'\" & page_bgcolor & \"\' text=black link=black alink=black vlink=black topmargin=\'10\' leftmargin=\'10\'>\" & font
for x = 1 to antal_linier
response.write application(\"chatline_\" & x) & \"<br>\"
next
end if
\' ----------------------------------------------------
\' beder om ny brugers navn, eller tager imod chatbesked
\' ----------------------------------------------------
if mode = \"name_frame\" then
response.write \"<html><body bgcolor=\" & send_bgcolor & \">\" & font
if session(\"chatname\") = \"\" then
response.write \"<form name=\'getname\' action=\'default.asp\'><input type=\'hidden\' name=\'mode\' value=\'savename\'>Indtast dit navn : <input type=\'text\' name=\'chatname\' size=\'40\'> <input type=\'submit\' value=\'Login\'></form>\"
else
response.write \"<form name=\'getname\' target=\'chat_frame\' action=\'default.asp\'><input type=\'hidden\' name=\'mode\' value=\'send\'>Besked : <input type=\'text\' name=\'besked\' size=\'35\'> <input type=\'submit\' value=\'Send\'>\"
response.write \"</form>\"
end if
response.write \"</font></body></html>\"
end if
\' ----------------------------------------------------
\' Mit Webcam
\' ----------------------------------------------------
if mode = \"webcam_frame\" then
response.write \"<html><head><META HTTP-EQUIV=\'Refresh\' CONTENT=\'10;URL=default.asp?mode=webcam_frame\'></head><body bgcolor=\" & send_bgcolor & \" leftmargin=\'0\' marginwidth=\'0\' topmargin=\'0\' marginheight=\'0\'>\"
response.write (\"<font color=\'\" & name_color & \"\'>Timo</font><br><img src=\'webcam32.jpg\'>\")
response.write \"</body></html>\"
end if
%>
Jeg håber du kan hjælpe!!
