1. ====// chatpage.asp // =====================
Sohbet ... 2. ====// display.asp // ===================== <% Set MyServer=Request.ServerVariables("SERVER_NAME" ) Set MyPath=Request.ServerVariables("SCRIPT_NAME" ) MySelf="HTTP://" &MyServer&MyPath %>
Display Page <%=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 %>
Mesaj Sayfasi 4. ====// global.asa // =====================
Asp KodBank
2 yıl önce
Melek Kentmen
310
