|
0 :םויה תוסינכ
53 :שדוחה תוסינכ
1 :ןיילנוא םישלוג
|
|
|
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>
|
|
|
הרזח >>
|
... |