chatpå egen server
Henrik
kan bruge en chat på min egen server plads, kan i fortælle mig hvordan jeg
skal lave den.
På forhånd tak!
God jul og godt nytår
--
--
Henrik Larsen
ad...@handikap.nu
http://www.handikap.nu
--
Lauritz Jensen
>
> Hej jeg har pt. en chat på en anden server, men jeg vil gerne have at jeg
> kan bruge en chat på min egen server plads, kan i fortælle mig hvordan jeg
> skal lave den.
Du skal passe på med at drive en chat-server. De generer ret meget
trafik (der bliver jo hele tiden hentet nye sider). Men i ASP er det ret
nemt at klaske en chat sammen, da man har session og application
objekterne til rådighed. Her er en hurtig demo (du må lige passe på, at
news-readeren måske har knækket nogle linier over):
<%
Dim func, message
randomize
message = Left(Trim(Request("message")), 100)
func = LCase(Trim(Request("func")))
If (func = "") Then
Response.Write "<frameset rows=""*,100"">" & vbCrLf
Response.Write " <frame name=""messageframe""
src=""chat.asp?func=message"">" & vbCrLf
Response.Write " <frame name=""formframe""
src=""chat.asp?func=form"">" & vbCrLf
Response.Write "</frameset>" & vbCrLf
ElseIf (func = "message") Then
If Not (message = "") Then
Application.Lock
messagelist = Application("messagelist")
Do While (UBound(split(messagelist, "<br>"))>10)
messagelist = Mid(messagelist, InStr(messagelist, "<br>")+4)
Loop
If Not (messagelist = "") Then messagelist = messagelist & "<br>"
messagelist = messagelist & "<b>" & Now & "</b>: " &
Server.HtmlEncode(message)
Application("messagelist") = messagelist
Application.UnLock
Else
messagelist = Application("messagelist")
End If
Response.Write "<META HTTP-EQUIV=""Refresh"" CONTENT=""15;
URL=chat.asp?func=message&rnd=" & ran & """>" & vbCrLf
Response.Write "<body bgcolor=#ffffff>" & vbCrLf
Response.Write messagelist & vbCrLf
Response.Write "</body>" & vbCrLf
ElseIf (func = "form") Then
Response.Write "<body bgcolor=#ffffff>" & vbCrLf
Response.Write " <form name=""chatform"" action=""chat.asp""
target=""messageframe""
onSubmit=""document.chatform.message.value=document.chatform.dummymessage.value;document.chatform.dummymessage.value='';document.chatform.dummymessage.focus();"">"
& vbCrLf
Response.Write " <input type=hidden name=""func"" value=""message"">"
& vbCrLf
Response.Write " <input type=hidden name=""message"" value="""">" &
vbCrLf
Response.Write " <input type=text name=""dummymessage"" value=""""
maxlength=100>" & vbCrLf
Response.Write " <input type=submit value=""Send"">" & vbCrLf
Response.Write " </form>" & vbCrLf
Response.Write "</body>" & vbCrLf
Else
Response.Redirect "/"
End If
%>
--
Lauritz