Simple Chat

17 svar · 212 visningar · startad av jboy_87 9 dec. 2001

jboy_87Medlem sedan aug. 20011 099 inlägg

Trådstart9 dec. 2001 15:00#1

hur får jag så att det står session("username") har joinat chattet?

så här ser koden ut:

<% 
strUser = "<b>" & session("username") &"</b>: "
strMessage = Server.HTMLEncode(TRIM(Request.Form("message")))
' // Her rydes Chat loggen, hvis den overstiger 10000 karakter
If Len(Application("ChatLog")) > 10000 Then
Application.Lock
Application("ChatLog") = ""
Application.UnLock
End If
If Request.Form("Action") = "Skicka" Then
If Len(strMessage) > 0 Then

strChatContent = strUser & strMessage & "<br>" & Application("ChatLog")
Application.Lock
Application("ChatLog") = strChatContent
Application.UnLock
End If
End If
Response.Write Application("ChatLog")%>

jboy_87Medlem sedan aug. 20011 099 inlägg

9 dec. 2001 15:38#2

nån som kan hjälpa mig

jboy_87Medlem sedan aug. 20011 099 inlägg

9 dec. 2001 16:55#3

nån???

@ndersMedlem sedan juni 200032 967 inlägg

9 dec. 2001 17:12#4

Tja, chattexten ligger ju i application("ChatLog"), så det är där du får lägga till det. När någon joinar:

<% 
Application.Lock
Application("ChatLog") = Application("ChatLog") & "<br><b>" & session("username") & " har loggat in." 
Application.UnLock
%>

Red: lite kod.

jboy_87Medlem sedan aug. 20011 099 inlägg

9 dec. 2001 17:34#5

gjorde nästan samma sak fast
det funkade inte den uppdatera så att det kom ut jboy_87 joinar hela tiden!! nix funkar inte står jboy_87 joinar hela tiden när sidan uppdateras

@ndersMedlem sedan juni 200032 967 inlägg

9 dec. 2001 18:00#6

Du kan inte lägga till det i det kodstycke du visade ovan. Du ska ju bara köra koden när någon joinar.

Hur joinar man?

jboy_87Medlem sedan aug. 20011 099 inlägg

9 dec. 2001 18:02#7

hur gör man det

jboy_87Medlem sedan aug. 20011 099 inlägg

9 dec. 2001 18:10#8

ööö har 4 ramar

kan man inte lägga in koden här nånstans???

<html>
<head>
<title>PLANKA.COM|MUNITY - CHAT 1.0</title>
</head>

</body>
</html>

@ndersMedlem sedan juni 200032 967 inlägg

9 dec. 2001 18:12#9

När man klickar på länken till chatten, kommer man då till detta frameset?

Jo, du kan lägga koden var du vill, men se till att den bara körs en gång. För att kontrollera det kan du använda en sessionsvariabel.

jboy_87Medlem sedan aug. 20011 099 inlägg

9 dec. 2001 18:14#10

aa när man klickar på länken så poppar det upp en popup med ramarna!!

@ndersMedlem sedan juni 200032 967 inlägg

9 dec. 2001 20:36#11

Aha, så du har fått den att lira i popup nu också? Trevligt!

Prova att lägga detta överst i frameset-filen:

<% 
if session("whatever") = "" then
Application.Lock
Application("ChatLog") = Application("ChatLog") & "<br><b>" & session("username") & " har loggat in." 
Application.UnLock
session("whatever") = 1
end if
%>

Mvh,

jboy_87Medlem sedan aug. 20011 099 inlägg

9 dec. 2001 20:53#12

whatever ?????

jboy_87Medlem sedan aug. 20011 099 inlägg

9 dec. 2001 20:54#13

heheh funkar :-) men fan nu står det jboy_87 har joinat längst ner hur kan man ta upp skitet

jboy_87Medlem sedan aug. 20011 099 inlägg

9 dec. 2001 20:58#14

bla bla: adsadsadsad
jboy_87: asdsad
jboy_87: asdsa
jboy_87: asd
jboy_87: öö

jboy_87: har stigit in i chattet
bla bla: har stigit in i chattet.

@ndersMedlem sedan juni 200032 967 inlägg

9 dec. 2001 21:08#15

Jag orkade inte hitta på något namn på sessionen, så det blev whatever.

Om du vill ha det högst upp, så är det bara att byta ordning på raden som lägger till texten i ditt applicationobjekt:

Application("ChatLog") = "<b>" & session("username") & " har loggat in.</b><br>" & Application("ChatLog")

Red: Såg att jag missade ett </b>, hemskt.

Mvh,

jboy_87Medlem sedan aug. 20011 099 inlägg

9 dec. 2001 23:01#16

tack så mycket Anders ska försöka göra samma sak fast med utloggning nu!!!

jboy_87Medlem sedan aug. 20011 099 inlägg

10 dec. 2001 14:40#17

om man gör såhär kommer det och funka????

IF Request.Querystring("tillid") = "chat" THEN

Application.Lock
Application("ChatLog") = "<Font color='#008000'><b>" & session("username") & ":</b> har just stigit in i chattet.</Font><br>" & Application("ChatLog")
Application.UnLock
end if

jboy_87Medlem sedan aug. 20011 099 inlägg

10 dec. 2001 14:50#18

löste det med ett mycket bättre settttttttttt