Tutorials Scripts Free Q&A Books


 







:שמתשמ
:המסיס
  

0 :םויה תוסינכ
53 :שדוחה תוסינכ
1 :ןיילנוא םישלוג
רחא PHP CGI ASP JavaScript Cold Fusion JSP

ASPב םיטפירקס


טא'צ
yuvy :רבחמה םש
http://come.to/maya-v :תיב-רתא

:תורעה\תויחנה
הטמל םיטפירקסה 4 תא בלשל שי
-------------------
טפירסל טפירקס ןיב הדרפה וק והז
!!!תועמשמ ול סחייל ןיא


:דוק

1.Global.asa:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
Dim TempArray(5)
Application("Talk")=TempArray
Application("TPlace")=0
END SUB
</SCRIPT>

----------------------------------------

2.ChatPage.asp:

<HTML>
<HEAD><TITLE> Chat Page </TITLE></HEAD>
<FRAMESET ROWS="*,100">
<FRAME SRC="Display.asp">
<FRAME SRC="Message.asp">
</FRAMESET>
</HTML>

----------------------------------------

3.Display.asp:

<%
MyServer=Request.ServerVariables("SERVER_NAME")
MyPath=Request.ServerVariables("SCRIPT_NAME")
MySelf="HTTP://"&MyServer&MyPath
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="REFRESH" CONTENT="5;<%=MySelf%>">
<TITLE>Display Page</TITLE>
</HEAD>
<BODY>
<P ALIGN=RIGHT><%=NOW%></P>
<%
TempArray=Application("Talk")
FOR i=0 to Application("TPlace")-1
Response.Write("<P>"&Temparray(i))
NEXT
%>
</BODY>
</HTML>

----------------------------------------

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
%>
<HTML>
<HEAD><TITLE> Message Page </TITLE></HEAD>
<BODY BGCOLOR="LIGHTBLUE">
<FORM METHOD="POST" ACTION="message.asp">
<INPUT NAME="message" TYPE="TEXT" SIZE=50>
<INPUT TYPE="SUBMIT" VALUE="SEND">
</FORM>
</BODY>
</HTML>

 

הרזח >>
...