<!-- #include file="webchat.inc" -->
<%
Response.Buffer = True
If Application("chatusers") = "" Then
Application("chatusers") = 0
End If
If Application("chatusers") < 0 Then
Application("chatusers") = 0
End If
Mode = Request("mode")
If Mode = "" Then
Response.Redirect "chat.asp?mode=error&type="
End If
If Mode = "login" Then
If Application("chatusers") = MaxUsers Then
Response.Redirect "chat.asp?mode=error&type="
Else
For x = 1 To MaxUsers
If Application("chatuser_" & x) = Request("chatname") Then
Response.Redirect "chat.asp?mode=error&type="
End If
Next
For x = 1 To MaxUsers
If Application("chatuser_" & x) = "" Then
Application("chatusers") = Application("chatusers") + 1
Application("chatuser_" & x) = Request("chatname")
Exit For
End If
Next
Session("chatname") = Request("chatname")
Session("chatuser") = x
For x = MaxPublicMessages To 2 Step -1
Application("publicmessage_" & x) = Application("publicmessage_" & x-1)
Next
Application("publicmessage_1") = "<b><font color='" & SystemColor & "'>System : " & Session("chatname") & " er logget på kl. " & time & "</font></b>"
%>
<html>
<head>
<LINK href="style.css" type=text/css rel=stylesheet>
<title><%= ChatTitle %></title>
<script language="JavaScript">
<!--
window.resizeTo(screen.availWidth,screen.availHeight);
window.moveTo(0,0);
function DoLogout() {
window.open('chat.asp?mode=logout&chatname=<%= Session("chatname") %>','','width=430,height=120');
}
//-->
</script>
</head>
<frameset framespacing="0" border="0" frameborder="0" rows="*,100" onunload="java script:DoLogout();">
<!-- <frame src="chat.asp?mode=bannerspace" name="bannerspace" marginwidth="15" marginheight="10" scrolling="no" noresize> -->
<frameset framespacing="0" border="0" frameborder="0" cols="180,*">
<frameset framespacing="0" border="0" frameborder="0" rows="25,*,150">
<frame src="chat.asp?mode=usersonline_header" marginwidth="20" marginheight="0" scrolling="no" noresize>
<frame src="chat.asp?mode=usersonline" marginwidth="15" marginheight="15" scrolling="auto" noresize>
<frameset framespacing="0" border="0" frameborder="0" rows="25,*">
<frame src="chat.asp?mode=functions_header" marginwidth="20" marginheight="0" scrolling="no" noresize>
<frame src="chat.asp?mode=functions" marginwidth="15" marginheight="15" scrolling="auto" noresize>
</frameset>
</frameset>
<frameset framespacing="0" border="0" frameborder="0" rows="*,150">
<frameset framespacing="0" border="0" frameborder="0" rows="25,*">
<frame src="chat.asp?mode=publicmessages_header" marginwidth="25" marginheight="0" scrolling="no" noresize>
<frame src="chat.asp?mode=publicmessages" name="publicmessages" marginwidth="20" marginheight="15" scrolling="auto" noresize>
</frameset>
<frameset framespacing="0" border="0" frameborder="0" rows="25,*">
<frame src="chat.asp?mode=privatmessages_header" marginwidth="25" marginheight="0" scrolling="no" noresize>
<frame src="chat.asp?mode=privatmessages" name="privatmessages" marginwidth="20" marginheight="15" scrolling="auto" noresize>
</frameset>
</frameset>
</frameset>
<frame src="chat.asp?mode=messagepanel" name="messagepanel" marginwidth="10" marginheight="10" scrolling="no" noresize>
<noframes>
<body>
</body>
</noframes>
</frameset>
</html>
<%
End If
End If
If Mode = "logout" Then
If Application("chatuser_" & Session("chatuser")) <> "" Then
For x = 1 To MaxPrivatMessages
Application("privatmessage_" & Request("chatname") & "_" & x) = ""
Next
For x = MaxPublicMessages To 2 Step -1
Application("publicmessage_" & x) = Application("publicmessage_" & x-1)
Next
Application("publicmessage_1") = "<b><font color='" & SystemColor & "'>Chatten : " & Session("chatname") & " er logget af kl. " & time & "</font></b>"
Application("chatusers") = Application("chatusers") - 1
Application("chatuser_" & Session("chatuser")) = ""
Session("chatname") = ""
Session("chatuser") = ""
End If
%><!-- #include file="html/logout.asp" --><%
End If
If Mode = "sendmessage" Then
If Application("chatuser_" & Session("chatuser")) = "" Then
%>
<script language="JavaScript">
<!--
top.location.href="chat.asp?mode=error";
// -->
</script>
<%
Else
If Request("messageto") = "public" Then
For x = MaxPublicMessages To 2 Step -1
Application("publicmessage_" & x) = Application("publicmessage_" & x-1)
Next
PublicMessage = Server.HTMLEncode(Request("message"))
Application("publicmessage_1") = "<b>" & Session("chatname") & " :</b> <font color='" & Request("textcolor") & "'>" & PublicMessage & "</font>"
Response.Redirect "chat.asp?mode=publicmessages"
Else
For x = MaxPrivatMessages To 2 Step -1
Application("privatmessage_" & Request("messageto") & "_" & x) = Application("privatmessage_" & Request("messageto") & "_" & x-1)
Application("privatmessage_" & Session("chatname") & "_" & x) = Application("privatmessage_" & Session("chatname") & "_" & x-1)
Next
PrivatMessage = Server.HTMLEncode(Request("message"))
Application("privatmessage_" & Request("messageto") & "_1") = "<b>" & Session("chatname") & " :</b> " & PrivatMessage
Application("privatmessage_" & Session("chatname") & "_1") = "<b>" & Session("chatname") & " :</b> " & PrivatMessage
Response.Redirect "chat.asp?mode=privatmessages"
End If
End If
End If
If Mode = "bannerspace" Then
%><!-- #include file="html/bannerspace.asp" --><%
End If
If Mode = "usersonline_header" Then
%><!-- #include file="html/usersonline_header.asp" --><%
End If
If Mode = "usersonline" Then
%><!-- #include file="html/usersonline.asp" --><%
End If
If Mode = "functions_header" Then
%><!-- #include file="html/functions_header.asp" --><%
End If
If Mode = "functions" Then
%><!-- #include file="html/functions.asp" --><%
End If
If Mode = "publicmessages_header" Then
%><!-- #include file="html/publicmessages_header.asp" --><%
End If
If Mode = "publicmessages" Then
%><!-- #include file="html/publicmessages.asp" --><%
End If
If Mode = "privatmessages_header" Then
%><!-- #include file="html/privatmessages_header.asp" --><%
End If
If Mode = "privatmessages" Then
%><!-- #include file="html/privatmessages.asp" --><%
End If
If Mode = "messagepanel" Then
%><!-- #include file="html/messagepanel.asp" --><%
End If
If Mode = "error" Then
%><!-- #include file="html/error.asp" --><%
End If
%>
ehr er chat vindeue og her kommer der hvor man skriver i
<html>
<head>
<LINK href="style.css" type=text/css rel=stylesheet>
<script language="JavaScript">
<!--
function ClearMessageField() {
document.messageFrm.message.value = "";
}
function SetFormTarget() {
if (document.messageFrm.messageto.value == "public") {
document.messageFrm.target = "publicmessages";
}else{
document.messageFrm.target = "privatmessages";
}
}
// -->
</script>
</head>
<body bgcolor="<%= BGColor1 %>" text="<%= TextColor1 %>" link="<%= LinkColor1 %>" vlink="<%= LinkColor1 %>" alink="<%= LinkColor1 %>" onload="java script:document.messageFrm.message.focus();">
<table border="0" width="100%" cellspacing="0" cellpadding="5">
<tr>
<td valign="top" align="center">
<table border="0" cellspacing="0" cellpadding="5">
<tr>
<td valign="middle" align="left">
<!-- Reloader siden dvs updater bruger listen-->
<input type="button" value="Opdater" onclick="java script:location.reload();">
</td>
<form method="POST" action="chat.asp" name="messageFrm" target="publicmessages" onsubmit="java script:setTimeout('ClearMessageField()',100);">
<input type="hidden" name="mode" value="sendmessage">
<td valign="middle" align="left"><select size="1" name="messageto" onchange="java script:SetFormTarget();">
<option value="public">Alle</option>
<%
For x = 1 To Application("chatusers")
If Application("chatuser_" & x) <> Session("chatname") Then
Response.Write "<option value='" & Application("chatuser_" & x) & "'>" & Application("chatuser_" & x) & "</option>"
End If
Next
%>
</select></td>
<td valign="middle" align="left"><input type="text" name="message" size="50"></td>
<td valign="middle" align="left"><input type="submit" value="Send"></td>
</form>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top" align="center">
<font size="1">
Hvis du ikke længere ønsker at chatte, skal du bare lukke dette vindue for at logge af.
</font>
</td>
</tr>
</table>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
