Avatar billede mjo Nybegynder
26. marts 2003 - 16:42 Der er 7 kommentarer og
1 løsning

En chat

Hejza jeg mangler en chat til mit site og jeg har ledt næsten overalt men jeg har ikke fundet noget jeg kan bruge så ville jeg lige spørge om der nogen der gider at lække nogle link eller lave en chat (det skal værer i MYSQL)
Avatar billede mjo Nybegynder
26. marts 2003 - 16:44 #1
okay bare glem det der med MYSQL som står i ()
Avatar billede mafio Nybegynder
26. marts 2003 - 16:44 #2
Avatar billede mafio Nybegynder
26. marts 2003 - 16:51 #3
Avatar billede mafio Nybegynder
26. marts 2003 - 16:54 #4
***http://www.netcoders.dk/seek.asp*** fejl

eks. www.netcoders.dk skriv chat ved søgning. Vupti der er en masse ting!!!
Avatar billede keysersoze Ekspert
26. marts 2003 - 16:57 #5
http://www.solutions2all.dk/source_show.asp?id=42

den findes også i en mysql version hvis det er, men ved ikke lige hvor den ligger... *søg og du skal finde*
Avatar billede mafio Nybegynder
26. marts 2003 - 17:07 #7
Avatar billede janemil Nybegynder
26. marts 2003 - 17:36 #8
<%
Response.Buffer = True
Session.LCID = 1030
%>
<html>
<head>
<%if Request.QueryString("mode") = "chat" then%>
    <meta http-equiv="REFRESH" content="3; URL=chat.asp?mode=chat">
<%end if%>
<title>Chat</title>
</head>
<%

Select Case LCase(Request.QueryString("mode"))

Case "chat"

        dim h
        h=hour(now())

    strUser = "<b>" & session("user") & "</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") = "Besked" Then
        If Len(strMessage) > 0 Then
                                 
                        strChatContent = strUser & " " & now() & " " & strMessage & "<br>" & Application("ChatLog")
            Application.Lock
            Application("ChatLog") = strChatContent
            Application.UnLock
        End If
    End If

    Response.Write Application("ChatLog")

Case "send" %>
<body background="images/nes2.jpg">
<%
    session("user") = Request("user")
%>
<%if session("user") <> "" then%>
<form method="POST" action="chat.asp?mode=chat" target="Top">
<input type="text" name="message" size="30">&nbsp;<input type="submit" name="Action" value="Besked">
</form>
<%else%>
<form method="POST" action="chat.asp?mode=send" target="Bottom">
<input type="text" name="user" size="30">&nbsp;<input type="submit" name="Action" value="Brugernavn">
</form>
<%end if%>

<% 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 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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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.

Du kan også logge ind via nedenstående tjenester