Asp Ile Chat

1. ====// chatpage.asp // ===================== 2. ====// display.asp // ===================== <% Set MyServer=Request.ServerVariables("SERVER_NAME" ) Set MyPath=Request.ServerVariables("SCRIPT_NAME" ) MySelf="HTTP://" &MyServer&MyPath %>

<%=NOW %>

<% TempArray=Application("Talk" ) For i=0 To Application("TPlace" )-1 Response.Write("

" &TempArray(i)) Next %> 4. ====// message.asp // ===================== <% If Not Request.Form("message" )="" Then Application.Lock If Application("TPlace" )>4 Then Application("TPlace" )=0 End If TempArray=Application("Talk" ) TempArray(Application("TPlace" ))=Request.Form("message" ) Application("Talk" )=TempArray Application("TPlace" )=Application("TPlace" )+1 Application.UnLock End If %>

4. ====// global.asa // =====================