الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مجموعة كودات asp:

مغلق
بدأه موفق جمال زكريا في 13 ديسمبر 2002 · 13 رد · 1,326 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

Cookie Test
<% if Not Cookies_Enabled then %>

You cannot access this site because your browser's security settings do not permit you to
accept cookies. Please select Tools | Internet Options from your browser's menu and change this setting.
<%
else
if request.cookies("LastVisit") <> "" then
response.write "You last visited this page on "
response.write request.cookies("LastVisit") & ". "
response.write "Welcome back.

"
End if
Response.Cookies("LastVisit") = Now
response.write "This is my web site. Isn't it nice"

end if %>

#2

شكرا لك على هذه المجموعة من الاكواد .

قمت بتحسن منظرها و ذلك بعد اذنك :)

You can fly while you can touch the sky

#3

شكراً على الأكواد

#4

أهلا وسهلا فيك ...وجزاء الله كل خير ...

والله يعطيك العافية على الإشراف المتميز ....

#5

تم عمل الازم و الشكر لك مو لإلي :)

ان شاء الله نقدر نحافظ على مستوى هذا القسم ليكون الأفضل فعلا .. ;)

بيكم طبعا (f)

You can fly while you can touch the sky

#6

شكرا على المجموعة الجيدة من الاكواد

رواد خميس حماد

#7

كتابة برنامج تشات :

ويتكون من ثلاثة صفحات طبعا باإضافة للملف العام global.asa

1- أولاً : أكتب الكود التالي في المفكرة واحفظ الملف بإسم ChatPage.asp

وهي الصفحة الرئيسية :



<HEAD><TITLE> Chat Page </TITLE></HEAD>

<FRAMESET ROWS="*,100">

<FRAME SRC="Display.asp">

<FRAME SRC="Message.asp">

</FRAMESET>

</HTML>
<HTML>

2- ثانيا : أكتب الكود التالي بالمفكرة واحفظ الملف باإسم 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>
<%

3-أكتب الكود التالي بالمفكرة واحفظ الملف باإسم 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>
<%

4- رابعاً : أكتب الكود التالي بالمفكرة واحفظ الملف باإسم global.asa 

[ALIGN=LEFT]<SCRIPT LANGUAGE=VBScript RUNAT=Server>

SUB Application_OnStart

 Dim TempArray(5)

 Application("Talk")=TempArray

 Application("TPlace")=0

END SUB

</SCRIPT>





<SCRIPT LANGUAGE=VBScript RUNAT=Server>

SUB Application_OnEnd

END SUB

</SCRIPT>



<SCRIPT LANGUAGE=VBScript RUNAT=Server>

SUB Session_OnStart

END SUB

</SCRIPT>



<SCRIPT LANGUAGE=VBScript RUNAT=Server>

 SUB Session_OnEnd

 END SUB

</SCRIPT>[/ALIGN]

إخوتي طبعاً فتح برنامج التشات من الصفحة الرئسيسة ChatPage.asp ...........

وسأطور البرنامج لكي يصبح عندما يدخل شخص عبارة يعرف الشخص القائل لها ....

وأطلب من الإخوة تطوير البرنامج لكي نتوصل إلى برنامج فيه السرعة والبساطة في التصميم ....

وممكن أن نربط البرنامج بالموجودين حاليا في الفريق العربي ليتاح لهم التشات .......

والسلام عليكم ...

أخوكم المحب لكم في اللــــــــــه : موفق جمال زكريا .....

#8

بالمناسبة انا اطور حالياً مجلة ممكن نضيف عليها كثير من الأشياء ومن ضمنها التشات.

#9

أخي موفق شاكر لك جهودك في هذا المنتدى لكن لي طلب بسيط و هو ان تسمح لي بأن أرفع الملف الموسيقي من ردك :rolleyes:

و أتمنى أن تتفهم ذلك و شكرا لك و اعتقد ان هذه ال (f) مني لك أجمل من معزوفات بتهوفن ;)

You can fly while you can touch the sky

#10

ياسيدي على حسابك :والله أنا بعد ماحطيت اليوم كام مقال فيهم موسيقى غيرت رأي ....مع أنو حجم الملف 24 كيلو أي بثواني يتحمل ....

ولكن الأفضل بدونه .........

واسمحلي إن جاز التعبير أن أوصفك بالأب الذي يخاف عن أولاده في البيت ...

فيقول لهم لا لهذا وهذا نعم ......وكله لمصلحتهم ولمصلحة أصدقائهم ....

وها أنت تعتني بالمنتدى وكأنه أبنك وهذا ماأطلبه من جميع المشرفيبن .......

أخوك موفق (f)(f)(f)

#11

السلام عليكم

اذا في مجال شرح الكود الخاص بالشات ؟ لو سمحتم

والسلام

#12

شكرا سيد موفق على الكود الرائع

رواد خميس حماد

#13

مشكووووووووووور يا اخ موفق والله يوفقك

#14

dir sir

who can writ the chat code in asp.net code ???

sorry for english but i haven't arabic in this computer

if any one can help me plz

salam

هذا الموضوع مغلق.

مواضيع مشابهة