الدرس العشرون : صفحة قائمة الأخبار (news_list.asp)

الدرس العشرون : صفحة قائمة الأخبار (news_list.asp)

سنصمم في هذا الدرس صفحة باسم (news_list.asp) تحتوي على قائمة بعناوين الأخبار وأمام كل عنوان خياران أحدهما “تحرير” والآخر “مسح”. سأقوم الآن بعرض الـ Code كاملا للصفحة ثم سأقوم بشرح الأوامر الجديدة التي لم يسبق التطرق لها في الدروس السابقة – إن وجدت.

<%@ Language=VBScript CodePage = “1256”%>

<html dir=rtl>

<!–#include file=”connection.txt” –>

<%

‘أوامر اختيار جدول الأخبار العامة واستدعاء البيانات منه

selectnewsSQL=”select * from general_news order by add_dat desc”

set rsnews=ADO.execute(selectnewsSQL)

‘أوامر اختيار جدول الأخبار التقنية واستدعاء البيانات منه

selecttechSQL=”select * from tech_news order by add_dat desc”

set rstech=ADO.execute(selecttechSQL)

%>

<p align=”center“><b><font face=”Simplified Arabic” color=”#C11111” size=”7“>
تحرير أو حذف أخبار</font></b></p>
<p><b><font face=”
Simplified Arabic“>قائمة الأخبار العامة</font></b></p>
<table border=”
1” cellpadding=”0” cellspacing=”0” style=”border-collapse: collapse” bordercolor=”#111111” width=”100%” id=”AutoNumber1“>
<tr>
<td width=”
80%“>
<p align=”
center“><font face=”Simplified Arabic“><b>العنوان</b></font></td>
<td width=”
10%” align=”center“><font face=”Simplified Arabic“><b>تحرير</b></font></td>
<td width=”
10%” align=”center“><font face=”Simplified Arabic“><b>مسح</b></font></td>
</tr>
</table>

<%

‘أوامر استعراض عناوين الأخبار العامة

do while not rsnews.eof

%>
<table border=”1” cellpadding=”0” cellspacing=”0” style=”border-collapse: collapse” bordercolor=”#111111” width=”100%” id=”AutoNumber1“>
<tr>
<td width=”
80%“>
<p align=”
center“><font face=”Simplified Arabic“><b><%=rsnews(“subject”)%>&nbsp;</b></font></td>
<td width=”
10%” align=”center“><font face=”Simplified Arabic“><a href=”news_upd.asp?id=<%=rsnews(“id”)%>“><b>تحرير</b></font></td>
<td width=”
10%” align=”center“><font face=”Simplified Arabic“><a href=”news_del.asp?id=<%=rsnews(“id”)%>“><b>مسح</b></font></td>
</tr>
</table>

<%
rsnews.movenext
loop
%>

<p>&nbsp;</p>
<p><b><font face=”
Simplified Arabic“>قائمة الأخبار التقنية</font></b></p>
<table border=”
1” cellpadding=”0” cellspacing=”0” style=”border-collapse: collapse” bordercolor=”#111111” width=”100%” id=”AutoNumber1“>
<tr>
<td width=”
80%“>
<p align=”
center“><font face=”Simplified Arabic“><b>العنوان</b></font></td>
<td width=”
10%” align=”center“><font face=”Simplified Arabic“><b>تحرير</b></font></td>
<td width=”
10%” align=”center“><font face=”Simplified Arabic“><b>مسح</b></font></td>
</tr>
</table>

<%

‘أوامر استعراض عناوين الأخبار التقنية

do while not rstech.eof

%>
<table border=”1” cellpadding=”0” cellspacing=”0” style=”border-collapse: collapse” bordercolor=”#111111” width=”100%” id=”AutoNumber1“>
<tr>
<td width=”
80%“>
<p align=”
center“><font face=”Simplified Arabic“><b><%=rstech(“subject”)%>&nbsp;</b></font></td>
<td width=”
10%” align=”center“><font face=”Simplified Arabic“><a href=”tech_upd.asp?id=<%=rstech(“id”)%>“><b>تحرير</b></font></td>
<td width=”
10%” align=”center“><font face=”Simplified Arabic“><a href=”tech_del.asp?id=<%=rstech(“id”)%>“><b>مسح</b></font></td>
</tr>
</table>

<%
rstech.movenext
loop

ADO.close
Set ADO=Nothing
%>

</body>

</html>

لم نقم بكتابة أي أوامر جديدة في هذه الصفحة.. كل ما قمنا به هو الاتصال بقاعدة البيانات، وفتح جداول الأخبار العامة والأخبار التقنية، ثم عرض عناوين الأخبار في جداول، وأمام كل عنوان كلمتان: تحرير، حذف. ووضعنا روابط على هذه الكلمات. فعند الضغط على “تحرير” ستفتح الصفحة news_upd.asp إن كان الأمر لتحرير الأخبار العامة، أو ستفتح الصفحة tech_upd.asp إن كان التحرير للأخبار التقنية. وبالمثل فهنالك صفحتان “للمسح” news_del.asp و tech_del.asp كل واحدة تختص بقسم من الأخبار.
لاحظ معي أنه عند كتابة الروابط لأوامر التحرير والمسح تم إضافة ?id=<%=rstech(“id”)%> وهذا الأمر قد تم شرحه سابقا عند تصميم صفحات عرض البيانات والأخبار. والمقصود به باختصار هو: تحديد الخبر المراد تعديله أو حذفه، وذلك عن طريق إرسال قيمة id للخبر للصفحة التي ستقوم بالعمليات.
الذي أود الإشارة إليه هنا، أنه بالإمكان عمل صفحة تحرير واحدة لكلا النوعان، وصفحة مسح واحدة لكلا النوعان. لكن لرغبتي في تصميم الموقع بأبسط صورة ممكنة ليمكن للمبتدئ متابعة الدروس بسهولة قررت تصميم صفحة لكل قسم. وهذا يتيح المجال للمتعلم لبذلك جهد إضافي بعد الانتهاء من الدروس لتطوير الموقع وتقليص عدد صفحاته.

  • يمكنك مشاهدة الصفحة التي قمنا بتصميمها في هذا الدرس من خلال هذا الرابط: إدارة الموقع

الكاتب ayman

ayman

مواضيع متعلقة

التعليقات مغلقة