<%
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"> <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"> <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>
Ny bruger
Nybegynder
Opret
Preview
