Jeg har installeret en chat på
www.get2you.dk og den virker fint - bortset
fra at der næsten ingen brugere er. Men jeg spekulerer over, hvordan det kan
være, at når en ny bruger åbner chatten, så står de gamle tekster, som kan
være indskrevet mange timer inden, stadig i chatfeltet. Jeg er glad for at
det er på den måde, så det er bestemt ikke noget der skal rettes, men jeg
spekulerer over, hvor teksterne gemmes? Der er ingen database tilknyttet og
koden laver ikke en tekstfil, hvor chatteksterne gemmes. Men hvordan kan
chatten så huske dem?
Chatten kan ses i praksis på
www.get2you.dk hvor man kan logge sig ind som
fiktiv bruger, hvis man skriver:
Brugernavn Erik37
Kodeord: Erik
Altså: Hvordan kan denne chat huske hvad brugerne har skrevet ind uden at
anvende database eller tekstfil ???
v.h.
Jakob Munck
Her er koden til chatten:
<%
' standard indstillinger
font = "<font face=verdana size=1>"
page_header = "Get2You Chat"
page_bgcolor = "#e0e0e0"
page_logoncolor = "#0000ff"
dato_color = "#606060"
name_color = "#ff0000"
text_color = "#000000"
' cache hele outputtet
response.buffer = true
' logoff URL - der hvor brugeren redirectes hen, ved at indtaste "/logoff"
logoff_url = "
http://www.get2you.dk"
' antal sYnlige linier i chat vinduet
antal_linier = 60
' hent dokument mode
mode = request("mode")
' ----------------------------------------------------
' setup frameset
' ----------------------------------------------------
if mode = "" then
%>
<html>
<head><title><% = page_header %></title></head>
<frameset rows="*,13%" frameborder="0" noresize>
<frame src="default.asp?mode=chat_frame" name="chat_frame">
<frame src="default.asp?mode=name_frame" name="name_frame">
</frameset>
</html>
<%
end if
' ----------------------------------------------------
' gem ny brugers navn
' ----------------------------------------------------
if mode = "savename" then
session("brugernavn") = 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("brugernavn") & " 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("brugernavn") & " er logget af kl. " & now & "</b></font>"
session("brugernavn") = ""
%>
<script language="javascript">
top.location.href="<% = logoff_url %>";
</script>
<%
response.end
else
dim now2
now2 = Right((now),8)
application("chatline_1") = "<font color='" & dato_color & "'><b>" & now2
& "</font> <font color='" & name_color & "'>" & session("brugernavn") &
"</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
' ----------------------------------------------------
dim bgn2
bgn2 = session("brugernavn")
if mode = "name_frame" then
response.write "<html><body bgcolor='a0a0a0'>" & font
if session("brugernavn") = "" 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' value=" & bgn2 & "> <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
%>
----------------------------------------------------------------------------
-----------