Ja, in eine Datenbank.
Und dort wird alle n sekunden gepr�ft, was neu gekommen ist.
--- cut ---
<!-- #include file="../inc.asp" -->
lMsg = cInt("0"&Session("lMsg"))
if lMsg = 0 and request("s") <> 1 Then
OpenDB
strSQL = "Select top 1 * from q_Chat where Raum=0 order by DT Desc"
rs.Open strSQL, conn
Session("lMsg") = RS.Fields("CID").Value - 1
rs.close
response.redirect "status.asp?s=1"
end if
OpenDB
if trim(request.Cookies("oc")("uid"))="" then
response.Cookies("oc")("lastaction") = now
%><html><head><title>Chat</title>
<%
lasttime=datediff("n",request.Cookies("oc")("lastaction"),now)
ref = 500
if lasttime < 60 then ref= 300
if lasttime < 30 then ref= 150
if lasttime < 15 then ref= 120
if lasttime < 5 then ref= 60
if lasttime < 3 then ref= 40
if lasttime < 1 then ref= 20
if Session("imChat")=1 and LastTime < 2 then ref=10
%><meta HTTP-EQUIV="Refresh" CONTENT="<%=ref%>">
</head>
<body topmargin="0" leftmargin="0" >
<%if SessioN("ImChat")=1 then
if Session("NewChat") = 1 Then
Session("NewChat")=0
response.write "<script language=""Javascript"">"&vbCrLf
response.write
"parent.Chat.document.write('<HTML><HEAD><TITLE>Chat</TITLE><base
target=""_blank""><link href=""/ebox.css""
rel=""stylesheet""></HEAD><BODY>');" & vbCrLf
' response.write "parent.Chat.document.write('<link
href=""/ebox.css"" rel=""stylesheet"">');" & vbCrLf
response.write "</script>"&vbCrLf
end if
if lMsg <> 0 then
strSQL = "SELECT Chat.*, Mitglieder.Username FROM Chat LEFT JOIN
Mitglieder ON Chat.uid = Mitglieder.ID where CID > "&lMsg&" order by DT"
end if
rs.Open strSQL, conn
if not rs.eof then
response.write "<script language=""Javascript"">"&vbCrLf
while not rs.eof
if cInt("0"&rs("uid")) = 0 then
newVal = "<b>" & MyDateTime(RS("DT"),4) & "</b> - <i>System:</i>
" & replace(RS("Msg")&" ","'","\'") & "<br>"
if instr(newVal,"hat soeben den Chat betreten") then
newVal = newVal & "<bgsound src=""online.wav"" loop=""1"">"
reloadonline=1
end if
if instr(newVal,"hat den Chat verlassen") then
' newVal = newVal & "<bgsound src=""online.wav"" loop=""1"">"
reloadonline=1
end if
else
newVal = MyDateTime(RS("DT"),4)& " - <b>" & RS("Username") &
"</b>: " & replace(RS("Msg")&" ","'","\'") & "<br>"
end if
response.write "parent.Chat.document.write('" & FormatOut(newVal)
& "');" & vbCrLf
response.write "parent.Chat.window.scroll(1, 500000)" & vbCrLf
Session("lMsg") = RS("cID")
rs.movenext
wend
if reloadonline=1 then
response.write "parent.Chat1.location.href='online.asp';"
end if
response.write "</script>"&vbCrLf
end if
rs.close
end if%>
</body></html><%CloseDB%>
--- cut ---
Ist die vereinfachte Kurzversion!
Kennst Dich aus?
-----Urspr�ngliche Nachricht-----
Von: Thomas Beckert [mailto:[EMAIL PROTECTED]]
Gesendet: Dienstag, 13. August 2002 14:44
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] Re: AW: Re: AW: chatraum
und wie macht man das mittels server???
und wo schreibst du den text rein? in eine datenbank???
----- Original Message -----
From: Mayer, Stefan <[EMAIL PROTECTED]>
To: AspGerman Kaffeehaus <[EMAIL PROTECTED]>
Sent: Tuesday, August 13, 2002 2:44 PM
Subject: [aspdecoffeehouse] AW: Re: AW: chatraum
Nun, das kommt drauf an, was er "k�nnen" soll.
Im Prinzip hast ein Frame, wo der laufende Text angezeigt wird (wie auch
immer der da reinkommt), ein Frame, wo man Meldungen reintippen kann und
eines, wo angezeigt wird, er online ist, welche R�ume es gibt, etc.
Das ist es.
Ich mache das so, da� die Ausgabe der Texte NICHT mittels 10-sek�ndigem
Refresh der ganzen Seite erfolgt sondern da� nur die �ndeurngen vom
Server geladen werden.
-----Urspr�ngliche Nachricht-----
Von: Thomas Beckert [mailto:[EMAIL PROTECTED]]
Gesendet: Dienstag, 13. August 2002 14:36
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] Re: AW: chatraum
ich habe gerade eine anfragen von einem kunden bekommen, der gerne einen
individuell gestalteten chatraum h�tte.
ich habe noch nie einen chatraum programmiert und bin eigentlich nur mit
asp
und ein wenig mit javascript vertraut...
wei� aber nicht, wie so ein chatraum aufgebaut wird etc...
----- Original Message -----
From: Mayer, Stefan <[EMAIL PROTECTED]>
To: AspGerman Kaffeehaus <[EMAIL PROTECTED]>
Sent: Tuesday, August 13, 2002 2:40 PM
Subject: [aspdecoffeehouse] AW: chatraum
Ja, habe ich - doku habe ich aber keine gemacht - was/wie kann ich Dir
helfen?
-----Urspr�ngliche Nachricht-----
Von: Thomas Beckert [mailto:[EMAIL PROTECTED]]
Gesendet: Dienstag, 13. August 2002 14:34
An: AspGerman Kaffeehaus
Betreff: [aspdecoffeehouse] chatraum
hat jemand schon mal einen chatraum programmiert? was brauch man dazu
und wo
findet man gute dokus???
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
|
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
|
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
|
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
|
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
|
http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
