Søg
Avatar billede laserzap Nybegynder
07. januar 2001 - 19:13 Der er 31 kommentarer og
1 løsning

Hjælp til ....

Hejza alle sammen.

Er der nogen der gider at lave en meget meget lillebitte chat, der kører på applications ??
Der skal kun være en login side, og selvfølgelig der hvor man chatter. Andet skal der ikke være :))
Avatar billede bjarke-b Nybegynder
07. januar 2001 - 19:14 #1
Jeg er sikker på du kan finde sådan en på netcoders  -> www.asp.dk
Avatar billede laserzap Nybegynder
07. januar 2001 - 19:16 #2
bjarke-b->

Det skal jo kun være en lillebitte en, så jeg selv kan lærer lidt om det ;))
Avatar billede bjarke-b Nybegynder
07. januar 2001 - 19:17 #3
laserzap -> Du kan downloade en masse og lære noget der, conquer chat tror jeg du kan lære noget af!
Avatar billede laserzap Nybegynder
07. januar 2001 - 19:18 #4
Jeg vil ikke downloade en HEL chat !
Avatar billede bjarke-b Nybegynder
07. januar 2001 - 19:18 #5
laserzap -> Well, og downloade og få en her er vel det samme ;-)
Avatar billede laserzap Nybegynder
07. januar 2001 - 19:19 #6
Den anden er jo ikke en \"hel\" chat, det er jo næsten kun starten af den!
Avatar billede bjarke-b Nybegynder
07. januar 2001 - 19:20 #7
jaja ;o)
Avatar billede chris2k Nybegynder
07. januar 2001 - 19:21 #8
Jeg har en virkeligt simpel en.
Avatar billede laserzap Nybegynder
07. januar 2001 - 19:23 #9
chris2k->
Det er vel ikke en chat med \"alles drum und dran\" ?
Avatar billede chris2k Nybegynder
07. januar 2001 - 19:23 #10
Ups.

Check den her: http://62.242.22.16/chat/
Avatar billede laserzap Nybegynder
07. januar 2001 - 19:23 #11
Og kører den på applications ??
Avatar billede laserzap Nybegynder
07. januar 2001 - 19:26 #12
kører den på applications ????
Avatar billede chris2k Nybegynder
07. januar 2001 - 19:27 #13
Hvad mener du med køre den på aplications?
Avatar billede stigc Nybegynder
07. januar 2001 - 19:27 #14
her kommer den:

<%

session(\"brugernavn\") = request(\"brugernavn\")


if session(\"brugernavn\") = \"\" Then

%>
<form action=\"chattest.asp\">

brugernavn: <input type=text name=\"brugernavn\">

</form>
<%

response.end
end if



Response.Buffer = True
Select Case LCase(Request.QueryString(\"mode\"))
Case \"chat\" %>
<html>
<head><meta http-equiv=\"REFRESH\" content=\"10; URL=chat.asp?mode=chat\">
<title>Chat</title>
</head><body>
  <%
  strUser = \"<b>\" & brugernavn & \"</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\") = \"Send\" 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\")

Case \"send\" %>

<form method=\"POST\" action=\"chat.asp?mode=chat\" target=\"Top\">
<input type=\"text\" name=\"message\" size=\"30\">&nbsp;<input type=\"submit\" name=\"Action\" value=\"Send\">
</form>

<% Case Else %>

<frameset rows=\"90%,*\">
<frame name=\"Top\" src=\"chat.asp?mode=chat\" scrolling=\"auto\" marginwidth=\"4\" marginheight=\"4\" noresize>
<frame name=\"Bottom\" src=\"chat.asp?mode=send\" scrolling=\"auto\" marginwidth=\"4\" marginheight=\"4\">
<noframes>
<body>
<p>Denne side bruger frames, og det understøtter din browser ikke.</p>
</body>
</noframes>
</frameset>
<% End Select %>

</body></html>

Avatar billede stigc Nybegynder
07. januar 2001 - 19:29 #15
den her kører med en application variable!

Avatar billede chris2k Nybegynder
07. januar 2001 - 19:29 #16
Nåå. Det gjorde min også
Avatar billede laserzap Nybegynder
07. januar 2001 - 19:36 #17
stigc->
Gider du ikke lige at lave chattest.asp (jeg gider nemlig ikke lige nu ;))))
Husk der står 150 point på spil!
Avatar billede stigc Nybegynder
07. januar 2001 - 19:37 #18
Det er selv samme side! Chatten består af kun en asp side!

foresten så, skift det her:

strUser = \"<b>\" & brugernavn & \"</b>: \"

ud med:

strUser = \"<b>\" & Session(\"brugernavn\") & \"</b>: \"
Avatar billede stigc Nybegynder
07. januar 2001 - 19:38 #19
bare gem siden som \"chattest.asp\"
Avatar billede bjarke-b Nybegynder
07. januar 2001 - 19:38 #20
<%

session(\"brugernavn\") = request(\"brugernavn\")


if session(\"brugernavn\") = \"\" Then

%>
<form action=\"chattest.asp\">

brugernavn: <input type=text name=\"brugernavn\">

</form>
<%

response.end
end if



Response.Buffer = True
Select Case LCase(Request.QueryString(\"mode\"))
Case \"chat\" %>
<html>
<head><meta http-equiv=\"REFRESH\" content=\"10; URL=chattest.asp?mode=chat\">
<title>Chat</title>
</head><body>
  <%
  strUser = \"<b>\" & brugernavn & \"</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\") = \"Send\" 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\")

Case \"send\" %>

<form method=\"POST\" action=\"chattest.asp?mode=chat\" target=\"Top\">
<input type=\"text\" name=\"message\" size=\"30\">&nbsp;<input type=\"submit\" name=\"Action\" value=\"Send\">
</form>

<% Case Else %>

<frameset rows=\"90%,*\">
<frame name=\"Top\" src=\"chattest.asp?mode=chat\" scrolling=\"auto\" marginwidth=\"4\" marginheight=\"4\" noresize>
<frame name=\"Bottom\" src=\"chattest.asp?mode=send\" scrolling=\"auto\" marginwidth=\"4\" marginheight=\"4\">
<noframes>
<body>
<p>Denne side bruger frames, og det understøtter din browser ikke.</p>
</body>
</noframes>
</frameset>
<% End Select %>

</body></html>
Avatar billede bjarke-b Nybegynder
07. januar 2001 - 19:39 #21
;-)
Avatar billede stigc Nybegynder
07. januar 2001 - 19:40 #22
flot THOMAS!
Avatar billede laserzap Nybegynder
07. januar 2001 - 19:44 #23
stigc->
Chatten virker ik\'. Hvergang jeg logger ind, får jeg den sammme side at se igen og igen :((
Avatar billede stigc Nybegynder
07. januar 2001 - 19:46 #24
virker den ikke her?

http://www.stigc.dk/chattest.asp
Avatar billede laserzap Nybegynder
07. januar 2001 - 19:49 #25
Jo på det link virker den, men jeg kan ikke få den til at virke :(((((
Avatar billede chris2k Nybegynder
07. januar 2001 - 19:50 #26
Du køre en asp server ikke?
Avatar billede laserzap Nybegynder
07. januar 2001 - 19:51 #27
Selvfølgelig
Avatar billede stigc Nybegynder
07. januar 2001 - 19:58 #28
Ok nu virker den:

<%

if session(\"brugernavn\") =\"\" THEN session(\"brugernavn\") = request(\"brugernavn\")


if session(\"brugernavn\") = \"\" Then

%>
<form action=\"chattest.asp\">

brugernavn: <input type=text name=\"brugernavn\">

</form>
<%

response.end
end if



Response.Buffer = True
Select Case LCase(Request.QueryString(\"mode\"))
Case \"chat\" %>
<html>
<head><meta http-equiv=\"REFRESH\" content=\"10; URL=chattest.asp?mode=chat\">
<title>Chat</title>
</head><body>
  <%
  strUser = \"<b>\" & Session(\"brugernavn\") & \"</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\") = \"Send\" 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\")

Case \"send\" %>

<form method=\"POST\" action=\"chattest.asp?mode=chat\" target=\"Top\">
<input type=\"text\" name=\"message\" size=\"30\">&nbsp;<input type=\"submit\" name=\"Action\" value=\"Send\">
</form>

<% Case Else %>

<frameset rows=\"90%,*\">
<frame name=\"Top\" src=\"chattest.asp?mode=chat\" scrolling=\"auto\" marginwidth=\"4\" marginheight=\"4\" noresize>
<frame name=\"Bottom\" src=\"chattest.asp?mode=send\" scrolling=\"auto\" marginwidth=\"4\" marginheight=\"4\">
<noframes>
<body>
<p>Denne side bruger frames, og det understøtter din browser ikke.</p>
</body>
</noframes>
</frameset>
<% End Select %>

</body></html>

Avatar billede bacardil Nybegynder
07. januar 2001 - 23:32 #29
Der er to minus ved den chat..

Når brugeren har skrevet en besked, så gemmes det også kan man floorde ved at trykke send 200 gange ;o)

Også ingen brugerliste (skulle der dog hellere ikke være)  :o)
Avatar billede bacardil Nybegynder
07. januar 2001 - 23:33 #30
Lukker man vinduet også lukker det op igen, så er man stadigvæk i chatten, det er sq service.. Lad os ikke håbe folk vil skifte brugernavn ;o)
Avatar billede ortrak Nybegynder
08. januar 2001 - 23:17 #31
RTFM
Avatar billede laserzap Nybegynder
09. januar 2001 - 14:43 #32
bacardil->

Jeg skrev jo også at man kun skulle chatte og logge ind. Alt det andet vil jeg PRØVE på at lave :))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »