للويندوز وستجده كخدمة متوفرة مع سيدي تركيب
ثم اختيار إضافة وإزالة مكونات ويندوز
منه
Internet Information Server قم بتركيب خدمةControl Panel الويندوز، وذلك بالذهاب لي لوحة التحكم. Internet Information Server واختيار Add/Remove Windows Components
ASP :
ثانيا : إختيار برنامج لكتابة نصوص
لا تحتاج بالضرورة لاستخدام برنامج خاص لذلك
لأنه متوفر عند الأغلبية ونستطيع باستخدامه تصميم شكل الصفحات ، وإن أردتم استخدام
. سأستخدم خلال الشرح برنامج ASP لكتابة نصوصFront Page
الذي يأتي مع
لأنه لن يساعدك في تصميم
أو
NotePad برامج أخرى تستطيعون أيضا متابعة الدروس معنا. إن كنت تريد استخدام برنامجNote Pad الويندوز يمكنه القيام بالواجب. إلا أنني لا أنصحك حاليا باستخدامMicrosoft Front Page شكل الصفحة. كذلك تستطيع استخدام أي برامج تصميم صفحات الويب مثل
ASP
المتخصص في إنشاء صفحات Microsoft Interdev أو ،Macromedia Dream Weaver
ولغات غيرها
.
إن كنت لا تملك برنامجا أخر للتصميم ،
Front Page إذا قم بتركيب
ثالثا
: برنامج قواعد البيانات:
أو غيرها من برامج قواعد البيانات
وذلك لتوفره عند الأغلبية
.. لكنني سأعتمد على Microsoft Access أو SQL يمكننا استخدام. Microsoft Access 2000
بذلك نكون قد تجهزنا للبدء في كتابة النصوص
: ).. وأتمنى منكم المتابعة للتعلم.
لنبدأ معنا
إنني مؤمن بأن أفضل طريقة لتعلم هذه اللغة هو القيام بأمثلة عملية
الأوامر أو القيم إلا عندما نحتاجها لتصميم إحدى الصفحات
.. لذا لن أتحدث عن المتغيرات أو.
ولنتأكد من تطبيقنا السليم للغة
ستكون قادرا على تصميم مشروعا مشابها، ومن ثم تطويره إن شاء الله
.. سنبدأ بمشروع من الصفر، خطوة بخطوة.. وعند نهاية هذه الدروس.
مشروعنا سيكون، تصميم موقع إخباري بسيط
.
أولا
: المحتوى:
١
. أخبار تقنية .
٢
. أخبار منوعة .
ثانيا
: الخدمات:
١
. محرك بحث في محتويات الموقع .
٢
. سجل زوار .
ثانيا
:الإدارة:
١
. تسجيل المسؤولين عن الموقع (أسماء وكلمات مرور خاصة بهم .(
٢
. إضافة، تعديل، حذف الأخبار من خلال الموقع .
تنفيذ هذا الموقع الإخباري، يتطلب منا تعلم مجموعة من أهم أوامر هذه اللغة
الدروس
.. وهذا هو الغرض من هذه.فهل أنت مستعد ومتحمس ؟! إذا أرجو منك المتابعة وسنصل إلى موقع رائع في النهاية.
إذا خذ قسطا من الراحة
.. وابدأ بتجهيز البرامج التي أخبرتك عنها في الأعلى.. ثم تابع الدروس التالية..
وأنا في انتظارك هناك
.
Personal Web Server - PWS
تركيب
وستجد هنا خطوات مدعمة بالصور لتسهيل عملية تركيب
ASP ضروري لتشغيل صفحات PWS إن تركيب
40 MB 20
و – 30 MB RAM 90 و MHz يتطلب البرنامج على الأقل معالج بينتيوم بسرعة PWS.
فارغة في القرص الصلب
.
في مشغل الأقراص
Run
. Windows ١. أدخل قرص 98واختر تشغيل Start ٢. اضغط على قائمة ابدأ
x:\add-ons\pws\setup.exe
بحرف مشغل الأقراص بجهازك
ستظهر لك الشاشة التالية
Custom
٣. اكتب. X ٤. أبدل حرف:ثم من الشاشة التالية اضغط على Next اضغط على
"Show
ثم اضغط على "Personal Web Server (PWS)" من الشاشة التالية اختر
Subcomponents…"
"Show Subcomponents…"
ثم اضغط على "Documentation” من الشاشة التالية اختر
Next
للانتقال لخطوة التالية من عملية التثبيت
ثم Ok ثم مرة أخرى Ok ثم اضغط على "Active Server Pages” من الشاشة التالية اختر.
ستظهر لك الشاشة التالية
.. أفضل إبقاء كل شي على ما هو عليه، إلا أن هذا الأمر راجع إليك.
ستبدأ عملية التثبيت
.
بعد الانتهاء منها سيطلب منك إعادة تشغيل الجهاز
هذا يعني أن التركيب قد تم بنجاح
طريقة سريعة لاختبار ذلك، اذهب للعنوان التالي
وستظهر لك الشاشة التالية
!
. عندما تفعل ذلك ستلاحظ أن هنالك شيئا جديدا أضيف. تهانينا. Taskbar. بجانب الساعة في شريط المهام(يفضل الاحتفاظ بهذا العنوان في قائمة المواقع المفضل: Favorites) http://localhost/iishelp
ملاحظات
:
إن لم لكن لديك قرص ويندوز ٩٨ يمكنك سحب البرنامج من هذا الرابط
: ·
http://www.alnoor-world.com/download/PWS.zip
إن لم ترغب بتخزين هذا البرنامج على جهازك
. فبإمكانك حجز مساحة مجانية من هذا الموقع ·
لكن ذلك سيتطلب تجربة الصفحات التي سنصممها، على
. http://www1.domaindlx.com
الإنترنت مباشرة، ولن يمكن تشغيل الصفحات على الكمبيوتر
.
default.asp
الصفحة الأولى
في الموقع لتشغیلها
Index أو Default عن صفحة تحمل اسم (Browser) دائما ما یبحث برنامج التصفح
: Default .
قم بتصمیم ما یعجبك
وآخر ،
ولا تنسى أن تكتب فقرة
تلقائیا. لذا عادة ما تكون الصفحة الرئیسیة في الموقع بهذا الاسم. وفي مشروعنا سنستخدم اسم.. مع مراعاة وضع عنوان الصفحة بشكل بارز، ورابط لكل من Frontpage باستخدام(guest.asp) ورابط لسجل الزوار ،(news.asp) والأخبار المنوعة ، (tech.asp) الأخبار التقنیة(admin.asp). وأخیرا رابط لقسم إدارة الموقع ،(search.asp) لمحرك البحث
C:\Inetpub\wwwroot\news
ملاحظة
ترحیبیة بالزوار .وخزن جمیع هذه الملفات في: هذه بعض المواقع التي تشرح لك كیفیة التصمیم بالفرونت بیج :المصمم لك ، أجنادین.
ثم قم أنت بإنشاء المجلد
لتخزین ملفات مشروعنا هذا فیه
C:\Inetpub\wwwroot سیتم إنشاء هذه المجلدات PWS ملاحظة: عند تركیب. news
التصمیم المقترح
:
عالم الیوم
للتصمیم المقترح
. (استخدام هذا النص سیسهل علیك متابعة الدروس.( HTML هذا هو نص
<html dir=
<head>
<meta http-equiv=
charset=windows-1256"
<meta http-equiv=
<meta name=
<meta name=
<title>
</head>
<body>
<p align=
<hr>
<p align=
rtl>"Content-Type" content="text/html;>"Content-Language" content="ar-qa">"GENERATOR" content="Microsoft FrontPage 4.0">"ProgId" content="FrontPage.Editor.Document">الیوم عالم </title>"center"><img border="0" src="thetitel.gif"></p>"center"><font face="Simplified Arabic"
size=
تقنیة
href=
"3"><b><a href="tech.asp"> أخبار</a>| <a href="news.asp"> أخبار منوعة </a>| <a"search.asp"> بحث </a>
|
الموقع
<hr>
<p align=
<a href="guest.asp"> سجل الزوار </a>| <a href="admin.asp"> إدارة</a></b></font></p>"center"><font face="Simplified Arabic" size=" مرحبا <" 3
بكم في
موقعنا الإخباري المتمیز
<p align=
</font></p>"center"><font face="Simplified Arabic" size=" نتمنى <" 3
لكم
المتعة والفائدة معنا
<p align=
</font></p>"center"><font face="Simplified Arabic" size=" مع <" 3
تحیات
<p align=
</font></p>"center"><font face="Simplified Arabic" size="3"
color=
"#AD إدارة<" 1212
الموقع
<hr>
<p align=
</font></p>"center"><font face="Simplified Arabic"
size=
تقنیة
href=
"3"><b><a href="tech.asp"> أخبار</a>| <a href="news.asp"> أخبار منوعة </a>| <a"search.asp"> بحث </a>
|
الموقع
<p align=
<a href="guest.asp"> سجل الزوار </a>| <a href="admin.asp"> إدارة</a></b></font></p>"center"><b><font face="Simplified Arabic"
size=
" جمیع<" 2
الحقوق محفوظة ٢٠٠١
</body>
</html>
</font></b></p>
SSI
استخدام
للاستغناء عن تكرار تصمیم الأجزاء المتشابهة في كل صفحة
لوضع الجزء المراد تكراره في مل
واحد فقط
.. مثل الجزء العلوي من الصفحة.. أو مؤخرةف SSI الصفحة والتي تحتوي على حقوق الحفظ .. نستطیع استخدام میزة.. وإضافة اسم الملف في الملفات المراد تكرار الجزء فیها.
على سبیل المثال
ل
: سنعتمد تصمیما واحدا لجمیع الصفحات.. ففي رأس الصفحة عنوان الموقع، وتحته روابطلأقسام المختلفة.. وفي نهایة الصفحة الروابط من جدید.
ببسا
طة، یمكنك نسخ نفس النص لجمیع الصفحات.. الرأس:
<head>
<meta http-equiv=
charset=windows-1256"
<meta http-equiv=
<meta name=
<meta name=
<title>
</head>
<body>
<p align=
<hr>
<p align=
"Content-Type" content="text/html;>"Content-Language" content="ar-qa">"GENERATOR" content="Microsoft FrontPage 4.0">"ProgId" content="FrontPage.Editor.Document">عالم الیوم </title>"center"><img border="0" src="thetitel.gif"></p>"center"><font face="Simplified Arabic"
size=
تقنیة
href=
"3"><b><a href="tech.asp"> أخبار</a>| <a href="news.asp"> أخبار منوعة </a>| <a"search.asp"> بحث </a>
|
الموقع
<hr>
<a href="guest.asp"> سجل الزوار </a>| <a href="admin.asp"> إدارة</a></b></font></p>
نهایة الصفحة
:
<hr>
<p align=
"center"><font face="Simplified Arabic"
size=
تقنیة
href=
"3"><b><a href="tech.asp"> أخبار</a>| <a href="news.asp"> أخبار منوعة </a>| <a"search.asp"> بحث </a>
|
الموقع
<p align=
<a href="guest.asp"> سجل الزوار </a>| <a href="admin.asp"> إدارة</a></b></font></p>"center"><b><font face="Simplified Arabic"
size=
" جمیع<" 2
الحقوق محفوظة ٢٠٠١
</body>
</html>
</font></b></p>
ثم كتابة ما تریده ما بین هاتین الفقرتین
.
للتوضیح أكثر، س
والجزء الرئیسي سیكون باللون الأسود
أضح النص كاملا مرة أخرى، الجزء العلي سأضعه باللون الأخضر، والسفلي باللون الأرق،. هذا هو النص:
<html dir=rtl>
الجزء العلوي
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1256">
<meta http-equiv="Content-Language" content="ar-qa">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>
</head>
<body>
<p align="center"><img border="0" src="thetitel.gif"></p>
<hr>
'عالم الیوم </title>
<p align="center"><font face="Simplified Arabic"
size="3"><b><a href="tech.asp">
تقنیة
href="search.asp">
| <a href="guest.asp">
الموقع
<hr>
أخبار</a>| <a href="news.asp"> أخبار منوعة </a>| <aبحث </a>سجل الزوار </a>| <a href="admin.asp"> إدارة</a></b></font></p>
الجزء الرئیسي
<p align="center"><font face="Simplified Arabic" size="
'مرحبا <" 3
بكم في
موقعنا الإخباري المتمیز
<p align="center"><font face="Simplified Arabic" size="
</font></p>نتمنى <" 3
لكم
المتعة والفائدة معنا
<p align="center"><font face="Simplified Arabic" size="
</font></p>مع<" 3
تحیات
<p align="center"><font face="Simplified Arabic" size="3"
color="#AD
</font></p>إدارة<" 1212
الموقع
</font></p>
الجزء السفلي
<hr>
<p align="center"><font face="Simplified Arabic"
size="3"><b><a href="tech.asp">
تقنیة
href="search.asp">
| <a href="guest.asp">
الموقع
<p align="center"><b><font face="Simplified Arabic"
size="
'أخبار</a>| <a href="news.asp"> منوعة أخبار </a>| <aبحث </a>الزوار سجل </a>| <a href="admin.asp"> إدارة</a></b></font></p>جمیع<" 2
الحقوق محفوظة ٢٠٠١
</body>
</html>
</font></b></p>
الأمر سهل للغایة ألی
التقنیة، الأخبار المنوعة، بحث، سجل الزوار
ستقوم بعملیة النس
تصمیم رأس الصفحة أو نهایتها، هل ستفتح ال
شاقا علیك
pagefooter.txt
لتكون الشفرة فیه كالتالي
س كذلك؟! إنه سهل هذه المرة لأن عدد الصفحات لدینا بسیط.. الصفحة الرئیسیة، الأخبار.. أي خمس صفحات.. لكن تخیل أن عندنا ١٠٠ صفحة.. هلخ واللصق لكل هذه الصفحات!! وإن قمت بذلك.. تخیل أنك ترید إجراء تعدیل معین في ١٠٠ صفحة وتقوم بتعدیلها واحدة واحدة!! ألن یكون الأمر!! إلیك الحل.والجزء الأسفل باسم pageheader.txt قم بحفظ الجز الأعلى في ملف اسمه: default.asp أجرِ تعدیلا التالیة على ملف
<html dir=
rtl>
<!--#include file="pageheader.txt" -->
<p align=
"center"><font face="Simplified Arabic" size=" مرحبا <" 3
بكم في
موقعنا الإخباري المتمیز
<p align=
</font></p>"center"><font face="Simplified Arabic" size=" نتمنى <" 3
لكم
المتعة والفائدة معنا
<p align=
</font></p>"center"><font face="Simplified Arabic" size=" مع <" 3
تحیات
<p align=
</font></p>"center"><font face="Simplified Arabic" size="3"
color=
"#AD إدارة<" 1212
الموقع
</font></p>
<!--#include file="pagefooter.txt" -->
شغل الصفحة
.. وستراها بنفس التصمیم الأول.. والآن.. یمكن إدراج الرأس والنهایة لكل الصفحات الأخرى
(
كل ما علینا هو إجراء التغییر على أحد هذین الملفین
التي سنصممها قریبا) من دون الحاجة لنسخ الشفرة في كل مرة.. وإن أردنا إجراء أي تغییر في المستقبل،.. والتغییر سیطبق تلقائیا على جمیع الصفحات.
project.mdb
تصميم قاعدة البيانات للمشروع
إن لم
Microsoft Access كما ذكرت في الفصل الأول، سنصمم قاعدة البيانات باستخدام برنامج . 2000
تكن لديك خبرة سابقة في التعامل مع هذا البرنامج فلا تخشى شيئا، فسأكون معك خطوة بخطوة
.
١
- شكل ٤
سيطلب منك حفظ قاعدة البيانات، اختر لها اسما واحفظها
أو المجلد الفرعي الذي خصصته لهذه الصفحة بداخل هذا المجلد
سيتم إكمال الدروس
اعتمادا على هذا الافتراض
!Error
Ok. واضغط Blank Access database اختر. C:\Inetpub\wwwroot فيnews ( بداخل المجلد الفرعي database ويفضل أن تحفظ بداخل مجلد فرعي باسم.(
4-1-
شكل 1
project.mdb
وسنسمي القاعدة هنا
!Error
4-2-
شكل 2
ستظهر لك الشاشة التالیة
: Create بعد الضغط على زر
٢
- شكل ٤
وصمم الجدول التالي
Create table in Design view اختر
٣
- شكل ٤
– Text, Memo, AutoNumber)
وعادة ما يكون الرقم الموجود ٥٠
الحروف التي بإمكانك إدخالها في هذا الحقل، لذا أنصح بتغييرها ل ٢٥٥ وهو الحد الأقصى
وهذا الجزء يتغير بتغير نوع الحقل Field Properties ( في قسم. هذا الجزء هو الذي يحدد عدد Text إن كان الحقل Field Size ستجد.
أي لا يمكن ترك هذا الحقل فارغ
أي يمكن ترك هذا الحقل فارغ من البيانات
سيسألك عن اسم الجدول، بإمكانك اختيار أي اسم يعجبك
. بإمكانك No وعادة يكون أمامها Allow Zero Length أيضا ستجد. Yes وضع. في مشروعنا الحالي سنسميه Save اضغط على
No
!Error
ثم ستظهر لك الرسالة التالية اختر منها tech_news.
٤
- شكل ٤
٢
التالي
). اضغط على اسمه مرتين لفتحه. سيظهر لك الشكل - أغلق الجدول، وسترى اسمه موجود في (شكل ٣
4-
شكل 5
سيتم ترقيمها تلقائيا
( id أدخل البيانات التالية في الجدول (خانة
30/9/2001
مايكروسوفت 1
تنجو من
محاولة
تفكيكها
سحبت الولايات الثمانية عشر الدعوى التي
رفعتها على شركة مايكروسوفت، مطالبة
المحكمة بتفكيك الشركة لكونها محتكرة
لسوق البرمجيات
31/9/2001
.اختراق مواقع 2
حركة طالبان
على الإنترنت
بعد عملية تفجير برجي التجارة العالمية
بنيويورك، ورفض حركة طالبان تسليم بن
لادن للولايات المتحدة الأمريكية، قام
مجهولون باختراق مواقع الحركة على
الإنترنت
.
أغلق الجدول، واحفظ القاعدة
عن طريق الموقع
.. واستعد للدرس القادم الذي سأبين فيه كيفية استعراض محتويات القاعدة.
في المرة التالية، ستظهر لك الشاشة التالية
يمكنك اختيار القاعدة التي أنشاءناها في هذا الدرس من خلال هذه الشاشة مباشرة
: Ms Access ملاحظة: عند فتح برنامج.
بقاعدة البیانات
ASP ربط صفحات
وفي هذا الدرس،
Microsoft Access صممنا في الدرس السابق قاعدة بيانات باستخدام برنامج . 2000
واستعراض محتوياتها
. ASP سنتعلم كيفية ربط القاعدة بصفحات
(tech.asp).
لإجراء بعض التعديلات عليها. لذا قم بحفظها باسم (default.asp) قم بفتح الصفحة الأولى
tech.asp
في الصفحة الأولى كنا قد كتبنا جملة ترحيبية لزوار الموقع
تبين ماهية الصفحة
فكل التغييرات التي سنقوم بهذا ستكون على ملف. أما في هذه الصفحة فسنستبدلها بجملة أخرى. فسنكتب:
إليكم آخر المستجدات على الساحة التقنية
ASP .
واكتب الجملة
التالية في أول سطر
والآن.. سنبدأ بالجزء الأهم.. وهو كتابة نصوصHTML تكتب دائما بين هاتين العلامتين. <% %> لذا، افتح نصوص ASP نصوص:
<%@ Language=VBScript CodePage = "1256"%>
في هذه الصفحة
دائما في بداية الصفحة
. وسطر (تحديد اللغة) يجب أن يكون VBScript هذا السطر يشير إلى أننا سنستخدم لغة.
واكتب التالي تحت الجملة الترحيبية
:
<%
Dim ConnectionString
Dim ADO
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
Server.MapPath("\database\project.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open
%>
يتم فيها تحديد المتغيرات، وسنتحدث عن المتغيرات أكثر في
(Dim): السطران الأول والثاني ·
المستقبل
.
يحدد طريقة فتح قاعدة البيانات، واسم القاعدة والمسار
(ConnectionString): السطر الثالث ·
إليها
وما قبل الاسم هو مسار الوصول إليها
. يمكنك تغيير اسم القاعدة ومسارها بما يتناسب مع ما قمت به على جهازك. لقد قمت. project.mdb بتسمية القاعدة
ADO
يحدد اسم المتغير الذي سيقوم بالربط.. وهو في مثالنا (Set ADO): السطر الرابع ·
ويمكنك تغييره بما يناسبك، إلا أن عليك استخدامه كثيرا، لذا لا أفضل تغييره حتى لا يسبب لك
بعض الصعوبة في متابعة الدروس
.
السطران الخامس والسادس
: يقومان بفتح القاعدة. ·
ما قمنا به حتى هذه الخطوة، هو الوصول للقاعدة فقط
مباشرة
. والخطوة التالية هي الوصول للبيانات التي: ADO.open بالقاعدة. ولعمل ذلك قم بكتابة التالي تحت عبارة
selectSQL="select * from tech_news"
set rs=ADO.execute(selectSQL)
وفيها يثم اختيار البيانات من القاعدة
Select تحدد أمر الاختيار (selectSQL): السطر الأول ·
حسب شروط يتم تحديدها
. في حالتنا هذه طلبنا اختيار:
١
. جميع البينات) ويمثلها رمز , (* ويمكن استبدالها باسم عمود او خانة معية من الجدول.
tech_news
أي أن هذان هما الشرطان الواجب القيام بهما
٢. من جدول.
تنفيذ الأمر
. (set rs): السطر الثاني ·
ما قمنا به حتى الآن هو فتح القاعدة، واستدعاء البيانات منها
مباشرة
. وما سنقوم به الآن هو طباعة هذه: set rs=ADO.execute(selectSQL) المعلومات. قم بكتابة التالي تحت عبارة
response.write "
response.write "
response.write "
العنوان : " & rs("subject")التاریخ : " & rs("add_dat")الخبر : " & rs("body")
تمثل النتائج
. حيث يكتب اسم الجدول المراد عرض ، rs(*) ، تقوم بطباعة النتائج response.write
بياناته بين علامات التنصيص
" "
وفي شريط العنوان
اكتب العنوان الموقع، وذلك بكتابة اسم جهازك ومن ثم المجلد الذي يحتوي الموقع
Explorer Internet وذلك بفتح المتصفح tech.asp قم بتشغيل الصفحة: Address Bar
default.asp
/news/http://asp
في العنوان تمثل اسم الجهاز، وهذا الاسم يختلف من جهاز لآخر
لترى
. لمعرفة اسم جهازك، ASP : ملاحظة: Identification واختر Network ومنها افتح الشبكة Panel Control افتح لوحة التحكم
Computer Name
أي أن العنوان سيصبح كالتالي
: localhost يمكنك الاستعاضة عن اسم الجهاز بكلمة
http://localhost/news/default.asp
ستظهر صفحة عالم اليوم بالشكل التالي
:
عالم اليوم
فاضغط على رابط
:أخبار تقنية. لترى النتيجة:
إليكم آخر المستجدات في الساحة التقنية
٢٠٠١ الخبر
تفجير برجي التجارة العالمية بنيويورك، ورفض حركة طالبان تسليم بن لادن للولايات المتحدة
الأمريكية، قام مجهولون باختراق مواقع الحركة على الإنترنت
: بعد عملية /٩/ العنوان : اختراق مواقع حركة طالبان على الإنترنتالتاريخ : ٣١.
الذي كتبته بقراءة محتويات القاعدة وعرضها
في البيانات المعروضة، وسنشرح طريقة التغلب عليها في الدروس القادمة
فهمه جيدا لأن معظم الدروس التالية تعتمد على هذا الدرس
.بالطبع توجد إشكاليات بسيطة Code مبروك. لقد قام ال. لكن المهم في هذا الدرس، هو.
: " & rs("body")
مباشرة
الخبر response.write " أخيرا، يفضل إغلاق ربط القاعدة بهذا السطر تحت عبارة:
ADO.close
تحسین مظهر عرض البیانات
فإن كنا نود عرض النتائج كل جملة في سطر
أي أن أوامر العرض ستكتب بالطريقة التالية
بوضع هذه العلامة
HTML تحسين مظهر عرض البيانات يعتمد على أوامر لغة: <p></p> فسنضع الجملة بين%> قبل السطور التالية. ASP ملاحظة: لا تنسى أن تغلق نصوص
<p>
<p>
<p>
<%response.write " العنوان : " & rs(subject)%></p><%response.write " التاریخ : " & rs(add_dat)%></p><%response.write " الخبر : " & rs(body)%></p>
يجب ملاحظة التالي
:
بالعلامة التالية
: <% ASP علينا إغلاق نصوص HTML قبل البدء بكتابة أوامر ·
علينا عدم نسيان وضع هذه العلامات
: <% %> . HTML في أسطر ASP عند كتابة نصوص ·
<p/>
شغل صفحة أخبار تقنية
<%(rs( العنوان : " & 2 " response.write%><p> : مثال. لترى النتيجة:
إليكم آخر المستجدات في الساحة التقنية
العنوان
٢٠٠١
الخبر
للولايات المتحدة الأمريكية، قام مجهولون باختراق مواقع الحركة على الإنترنت
: اختراق مواقع حركة طالبان على الإنترنت/٩/ التاريخ : ٣١: بعد عملية تفجير برجي التجارة العالمية بنيويورك، ورفض حركة طالبان تسليم بن لادن.
أظن أن شكل النتائج أصبح أجمل بهذه الطريقة
في المثال التالي
. وغن كنت تريد تجميله أكثر، عليك باستخدام الجداول.ز كما:
<div align="
<center>
<table border="
bordercolor="
<tr>
<td width="
center">0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"#111111" width="90%">100%" dir="rtl" bgcolor="#DFDFFF"><b><span lang="ar-sa"> : العنوان
<%response.write rs(subject)%>
</tr>
<tr>
<td width="
rs(add_dat)%>
<p><b><span lang="
</tr>
</table>
</center>
</div>
<hr color="
</span></b></td>100%" dir="rtl"><b><span lang="ar-sa"> التاریخ : <%response.write</span></b>ar-sa"> الخبر : <%response.write rs(body)%></span></b></td>#DFDFFF" width="90%">
وستكون النتيجة
:
العنوان
٢٠٠١
: اختراق مواقع حركة طالبان على الإنترنت/٩/ التاریخ : ٣١
الخبر
للولايات المتحدة الأمريكية، قام مجهولون باختراق مواقع الحركة على الإنترنت
: بعد عملية تفجير برجي التجارة العالمية بنيويورك، ورفض حركة طالبان تسليم بن لادن.
عند الانتهاء من كتابة هذه الأوامر
. <% ADO.close %> لا تنسى أن تضع
Code
الذي كتبناه قام بعرض وطباعة أول حقل فقط من القاعدة
لحل هذه الإشكالية
بهذا نكون قد عالجنا الإشكالية الأولى، وهي مظهر البيانات. لكن هنالك إشكالية أكبر، وهي أن ال(أول خبر فقط) وتجاهل الأخبار الأخرى. لذا. Do ... Loop و If ... Then سنستخدم كل من
عرض جمیع النتائج بشكل متتالي
في الدرس السابق، تعلمنا كيف يمكننا تغيير مظهر عرض الأخبار
. والإشكالية الوحيدة المتبقية الآن هي:
كيفية عرض جميع الأخبار
. فما قمنا به إلى الآن هو قراءة الأخبار من القاعدة، وعرض أول خبر فقط.
وفي هذا الدرس سنتعلم كيف يمكننا عرض كل الأخبار
.
فستجد التالي
: HTML وافتح tech.asp. افتح صفحة
<%@ Language=VBScript CodePage = "1256"%>
<html dir=
rtl>
<!--#include file="pageheader.txt" -->
<p align="
التقنیة المستجدات في الساحة
center"><font face="Simplified Arabic"> إلیكم آخر</font></p>
<%
البیانات أوامر فتح قاعدة
Dim ConnectionString
Dim ADO
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
Server.MapPath("\database\project.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open
'
واستدعاء البیانات منه أوامر اختیار الجدول
selectSQL="select * from tech_news"
set rs=ADO.execute(selectSQL)
'
البیانات أوامر استعراض
%>
'
<div align="
<center>
<table border="
bordercolor="
<tr>
<td width="
rs(subject)%>
</tr>
<tr>
<td width="
<p><b>
</tr>
</table>
</center>
</div>
<hr color="
center">0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"#111111" width="90%">100%" dir="rtl" bgcolor="#DFDFFF"><b> العنوان : <%response.write</b></td>100%" dir="rtl"><b> التاریخ : <%response.write rs(add_dat)%></b>الخبر : <%response.write rs(body)%></b></td>#DFDFFF" width="90%">
<% ADO.close %>
<!--#include file="pagefooter.txt" -->
ليكون بالشكل التالي
ملاحظة
: HTML قم بتعديل: السطور الجديدة كتبت باللون الأخصر لتسهل عملية تمييزها.
<%@ Language=VBScript CodePage = "1256"%>
<html dir=
rtl>
<!--#include file="pageheader.txt" -->
<p align="
التقنیة المستجدات في الساحة
center"><font face="Simplified Arabic"> إلیكم آخر</font></p>
<%
البیانات أوامر فتح قاعدة
Dim ConnectionString
Dim ADO
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
Server.MapPath("\database\project.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open
'
واستدعاء البیانات منه أوامر اختیار الجدول
selectSQL="select * from tech_news"
set rs=ADO.execute(selectSQL)
'
البیانات أوامر استعراض
'
do while not rs.eof
%>
<div align="
<center>
<table border="
bordercolor="
<tr>
<td width="
rs(subject)%>
</tr>
<tr>
<td width="
<p><b>
</tr>
</table>
</center>
</div>
<hr color="
center">0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"#111111" width="90%">100%" dir="rtl" bgcolor="#DFDFFF"><b> العنوان : <%response.write</b></td>100%" dir="rtl"><b> التاریخ : <%response.write rs(add_dat)%></b>الخبر : <%response.write rs(body)%></b></td>#DFDFFF" width="90%">
<%
rs.movenext
loop
ADO.close
%>
<!--#include file="pagefooter.txt" -->
وستكون النتيجة كالتالي
:
العنوان
٢٠٠١
: اختراق مواقع حركة طالبان على الإنترنت/٩/ التاریخ : ٣١
الخبر
للولايات المتحدة الأمريكية، قام مجهولون باختراق مواقع الحركة على الإنترنت
: بعد عملية تفجير برجي التجارة العالمية بنيويورك، ورفض حركة طالبان تسليم بن لادن.
العنوان
٢٠٠١
الخبر
المحكمة بتفكيك الشركة لكونها محتكرة لسوق البرمجيات
: مايكروسوفت تنجو من محاولة تفكيكها/٩/ التاریخ : ٣١: سحبت الولايات الثمانية عشر الدعوى التي رفعتها على شركة مايكروسوفت، مطالبة.
والآن سنقوم بشرط الإضافات سطرا سطرا
: (Do)
:يعني do while not rs.eof فالسطر Do (something) Loop. حلقة. صيغتها (Do) ·
End Of File).
ما دام هذا الشرط
وسيغلق الحلقة لينفذ ما
اختصار ل (eof نهاية الملف rs لم تكون (not) ، ما دامت (while) ، ابدأ حلقةLoop) وتنتهي بكلمة Do إي أنه الحلقة ستستمر في التنفيذ (الحلقة تبدأ بكلمةLoop و Do صحيحا، وبمجرد أن لا يتحقق الشرط لن يتم تنفيذ ما بين
Loop).
ثم وضعنا أوامر عرض النتائج
بعدها (أي ما بعد. ·
تعني انتقل للنتيجة التالية
. rs.movenext ·
تعني
Do وينفذها ما دامت صحيحة. حيث كانت Do تكرار الحلقة. أي سيعود إلى جملة (Loop) ·
نهاية الملف سيتوقف عن
نهاية الملف فسينفذ الحلقة
ربط الملف بقاعدة البيانات
rs نهاية الملف. فإن كانت rs أنه يستمر في تنفيذ الحلقة حتى تصبح. rs أما إن لم تكن Loop تنفيذ الحلقة وينتقل للسطر الذي يلي: Code ل SSI نختم هذا الدرس، باستخدام
connection.txt.
واحفظهم باسم Notpad والصقهم في tech.asp قم بقص الأسطر التالية من ملف
<%
البیانات أوامر فتح قاعدة
Dim ConnectionString
Dim ADO
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
Server.MapPath("\database\project.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open
%>
'
ضع سطر
(إدراج الملف) التالي: tech.asp مكان الأسطر السابقة في
<!--#include file="connection.txt" -->
وسيكون شكل الصفحة كالتالي
:
<%@ Language=VBScript CodePage = "1256"%>
<html dir=
rtl>
<!--#include file="pageheader.txt" -->
<p align="
التقنیة المستجدات في الساحة
center"><font face="Simplified Arabic"> إلیكم آخر</font></p>
<!--#include file="connection.txt" -->
<%
واستدعاء البیانات منه أوامر اختیار الجدول
selectSQL="select * from tech_news"
set rs=ADO.execute(selectSQL)
'
البیانات أوامر استعراض
do while not rs.eof
%>
'
<div align="
<center>
<table border="
bordercolor="
<tr>
<td width="
rs(subject)%>
</tr>
<tr>
<td width="
<p><b>
</tr>
</table>
</center>
</div>
<hr color="
center">0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"#111111" width="90%">100%" dir="rtl" bgcolor="#DFDFFF"><b> العنوان : <%response.write</b></td>100%" dir="rtl"><b> التاریخ : <%response.write rs(add_dat)%></b>الخبر : <%response.write rs(body)%></b></td>#DFDFFF" width="90%">
<%
rs.movenext
loop
ADO.close
%>
<!--#include file="pagefooter.txt" -->
تمنى أن يكون هذا الدرس واضحا
الانتقال للدرس التالي
. وسيتم تطوير هذا الملف في مرحلة متقدمة إن شاء الله. ويمكنك الآن
(QueryString)
وضع روابط لمواضیع في قاعدة البیانات استخدام
لتظهر النتائج بالشكل التالي
: tech.asp في الدرس السابق، صممنا صفحة
العنوان
٢٠٠١
: اختراق مواقع حركة طالبان على الإنترنت/٩/ التاریخ : ٣١
الخبر
للولايات المتحدة الأمريكية، قام مجهولون باختراق مواقع الحركة على الإنترنت
: بعد عملية تفجير برجي التجارة العالمية بنيويورك، ورفض حركة طالبان تسليم بن لادن.
العنوان
٢٠٠١
الخبر
المحكمة بتفكيك الشركة لكونها محتكرة لسوق البرمجيات
: مايكروسوفت تنجو من محاولة تفكيكها/٩/ التاریخ : ٣١: سحبت الولايات الثمانية عشر الدعوى التي رفعتها على شركة مايكروسوفت، مطالبة.
هذا الشكل مقبول إن كانت الأخبار عبارة عن أسكر طويلة
طويلة، فلن يكون هذا الشكل مناسبا
. أما إن كان المطلوب عرض مقالات، أو أخبار. والأفضل هو عرض العنوان فقط، وهذا العنوان يكون على شكل
(
teach.asp
رابط) تفتح به صفحة جديدة تحتوي على الموضوع. وهذا هو موضوع درسنا الحالي.افتح الملف
<%@ Language=VBScript CodePage = "1256"%>
<html dir=
rtl>
<!--#include file="pageheader.txt" -->
<p align="
التقنیة المستجدات في الساحة
center"><font face="Simplified Arabic"> إلیكم آخر</font></p>
<!--#include file="connection.txt" -->
<%
واستدعاء البیانات منه أوامر اختیار الجدول
selectSQL="select * from tech_news"
set rs=ADO.execute(selectSQL)
'
البیانات أوامر استعراض
do while not rs.eof
%>
'
<div align="
center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"
bordercolor="#111111" width="90%">
<tr>
<td width="100%" dir="rtl" bgcolor="#DFDFFF"><b><span lang="ar-sa"> :
العنوان
<%response.write rs(subject)%></span></b></td>
</tr>
<tr>
<td width="100%" dir="rtl"><b><span lang="ar-sa">
rs(add_dat)%></span></b>
<p><b><span lang="ar-sa">
</tr>
</table>
</center>
التاریخ : <%response.writeالخبر : <%response.write rs(body)%></span></b></td>
</div>
<hr color="
#DFDFFF" width="90%">
<%
rs.movenext
loop
ADO.close
%>
<!--#include file="pagefooter.txt" -->
سنقوم بحذف السطور المكتوبة باللون الأخضر في الأعلى، وهي الأسطر التي تقوم بعرض تاريخ الخبر
وعنوانه ونصه
. وسنضع مكانها السطر التالي:
<b><a href="
rs("subject")%>
body.asp?field=tech_news&id=<%=rs("id")%>"><%response.write</a></b>
هذا السطر سيقوم بعرض عناوين الأخبار فقط، وستكون هذه العناوين على شكل روابط
بإرسالها
. هذه الروابط تتميز(قيمة) للصفحة التالي. سنشرح معنى هذا الأمر في الدرس التالي.
(QueryString)
استدعاء بیانات من القاعدة من خلال روابط استخدام
وكان الرابط على الشكل التالي
: body.asp وضعنا في الدرس السابق رابط لصفحة
body.asp?field=tech_news&id=
<%=rs("id")%>
وشرح معنى كل كلمة في الرابط
لنجري عليها التغييرات المطلوبة
بجميع التغييرات مرة واحدة، ثم سأقوم بشرحها بعد ذلك
. body.asp والآن سنقوم بتصميم صفحة.سأقوم body.asp وقم بإعادة حفظها باسم teach.asp قم بفتح صفحة..فلنجري هذه التعديلات معا:
<%@ Language=VBScript CodePage = "1256"%>
<html dir=
rtl>
<!--#include file="pageheader.txt" -->
<!--#include file="connection.txt" -->
<%
field=request.querystring("field")
id=request.querystring("id")
selectSQL="select * from "&field&" where id="&id
set rs=ADO.execute(selectSQL)
%>
<p align=
"center"><b><font face="Simplified Arabic" size="5"
color=
<p align=
rs("add_dat")%>
<p><b><font face=
rs("body")%>
"#C11111"><%response.write rs("subject")%></font></b><p align="center">"left"><font face="Simplified Arabic" size="3"><%response.write</font></p>"Simplified Arabic" size="3"><%response.write</font></b></p>
<%ADO.close%>
<!--#include file="pagefooter.txt" -->
والآن، لنتعلم معاني الأوامر الجديدة في هذه الصفحة
. السطر التالي :
يعني
: field=request.querystring("field")
:
field= وذلك بكتابة field ١. تحديد متغير باسم
:
request.querystring ٢. قيمة هذا المتغير سيتم استقبالها عن طريق رابط وذلك بكتابة
:
لنتذكر الآن الرابط الذي قمنا بكتابته في الدرس السابق
("field") وذلك بكتابة field ٣. سيشار للقيمة في الرابط بكلمة:
body.asp?
field=tech_news&id=<%=rs("id")%>
من الصفحة السابقة إلى هذه الصفحة
وللتوضيح أكثر
field انظر للكلمات التي تم تحديدها باللون الأخضر. لقد أرسلنا قيمة.. لنفترض أن الرابط كالتالي : tech_news . من خلال رابط. وهذه القيمة هي
body.asp?
section=tech_news&id=<%=rs("id")%>
إلى
field=request.querystring("field") في هذه الحالة يجب تغيير
field=request.querystring("section")
.
له نفس وظيفة السطر الأول، مع الفارق في المتغير
يتضح أن قيمة
id=request.querystring("id") السطر الثانيbody.asp?field=tech_news&id=<%=rs("id")%> وقيمته. وبالنظر للرابط السابق
selectSQL
في الصفحة السابقة
ستتغير بتغير الموضوع. وذلك لأن القيمة تأخذ من قاعدة البيانات عن طريق أمر id المتغير.
حيث تم استبدال اسم
وهذا يعطي مرونة أكبر
أي أنه يمكننا استخدام هذه الصفحة لعرض جميع أقسام الأخبار
selectSQL . من الأمور الجديدة في هذا الدرس أيضا هو التطوير الذي حدث لأمر. حيث أن Field) باسم متغير (في حالتنا هذه From) الجدول) بعد كلمةField .. ستتغير بتغير قيمة SelectSQL
في الموقع وليس فقط للأخبار التقنية
.
وبإمكاننا وضع الشرط الذي يناسبنا
.. وفي درسنا الحالي SelectSQL ل Where أيضا تم إضافة شرط
id
في هذه الصفحة
في الجدول المطلوب في القاعدة تساوي قيمة المتغير id أي: عندما تكون قيمة : id="&id كان الشرط.
قمنا بشرحة في الدروس السابقة
asp
. Code بقية الnews.الدرس العاشر :تصمیم صفحة
تعلمنا الكثير من الأمور في الدروس السابقة
لذا سنقوم بالخطوات التالية
لإنشاء الصفحة
.
ملاحظة
. لذا لن أحاول شرح المزيد من الأوامر في هذا الدرس، حتىtech.asp وشابه جدا ل news.asp يكون خفيفا وسهلا. فتصميم صفحة:tech_news بنفس مواصفات جدول general_news ١- افتح قاعدة البيانات وصمم جدولا باسم: بإمكانك بدلا من تصميم الجدول من جديد. نسخ الجدول الحالي، وذلك بعمل الخطوات التالية.
تظليل الجدول
. ·
ضع مؤشر الفأرة على اسم الجدول واضغط بزر الفأرة الأيمن
. ·
من القائمة التي ستظهر
. Copy اختيار ·
.
Past في المساحة البيضاء الفارغة اضغط مرة أخرى زر الفأرة الأيمن واختر منه ·
سيظهر لك صندوق حوار يسألك فيه عن اسم الجدول، فاكتب في الخانة البيضاء المخصصة لاسم
·
Structure
اختر الخيار
: وتحت هذه الخانة البيضاء ستجد ثلاثة خيارات هي .general_news الجدول.Append Data to Exiting Table و Structure and Data و Only
.
Structure Only الأول
.
ok واضغط على ·
احفظ قاعدة البيانات
. ·
وأجر التعديلات التالية عليها
غير الجملة الترحيبية
. news.asp واحفظها باسم tech.asp ٢- افتح صفحة(التي كانت ليكم آخر المستجدات على الساحة التقنية) لتتناسب مع الصفحة ·
الجديدة
. أفضل استبدال كلمة (التقنية) بكلمة (العالمية) فقط
أريد كتاب تعليم ASP 
زيارة موقع الانترنت 
