إخواني هناك العديد من التطبيقات التي تعتمد مثلا على لوحات تحكم كبيرة و أكيد أن من العمليات المجراة على عناصر هذه التطبيقات عملية الحذف مثلا حذف قسم تجاري و بالتالي يمكن أن يتم وراءه حذف عدد كبير جدا من السجلات المرتبطة معه من جداول أخرى إن كانت هناك علاقات بين الجداول ..
إذا حالة الحذف حالة حساسة فوجب أن نقوم بعمل شيء يجعلنا نؤكد عملية الحذف قبل أن نقوم بذلك ..
هذه بعض الأسطر التي كتبتها لسائل و وجب ذكرها لكم ..
<%@codepage=1256%>
<%
Set cn = CreateObject("ADODB.Connection")
cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("/proj/db.mdb"))
%>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<script language="vbscript">
Function popUp(id)
dim action
action= msgbox("هل أنت متأكد من عملية الحذف؟",VbYesNo)
if action=6 then
document.location ="http://as4web.com/delete.asp?pId=" & id
else
msgbox("تم إلغاء العملية. ")
end if
End Function
</script>
<%
Sub write(text)
response.write(text)
End Sub
tbl=""
write "<html dir=rtl>"
SQL="SELECT * FROM جدول_المدرسة"
Set rs=createObject("ADODB.recordSet")
rs.open SQL,cn,3,3
while not rs.EOF
write "<p style='cursor:hand' onClick=popUp("& rs("رقم_الطالب") &")><font color=blue> Delete</font> "
write rs("الاسم") &"<BR>"
rs.MoveNext
wend
%>نترك الان دالة الفي بي سكريبت الان و نذهب تحت مباشرة لكود ال ASP ..
طبعا الجدول اسمه عربي و الحقول عربية .. قاعدة البيانات مكونة من جدول واحد به حقلين فقط الأول Id و الثاني اسم الطالب و بها عدد من السجلات التي تحوي عددا من أسماء الطلبة ..
الان نود عرض هذه الأسماء كل اسم على سطر و بجانبه كلمة DELETE عند الضغط عليها يتم إظهار رسالة لحذف الموضوع أو عدمه ..
طبعا نلاحظ أنا استخدمنا ال style للاتأثير على الكلمة DELTE حيث أخترنا أن يكون المؤشر Cursor من نوع Hand أي يد تشبه تلك التي تظهر عند المرور على وصلة و طبعا وضعنا خطا تحت كلمة الحذف لتبدو و كأنها وصلة ..
ثم استخدمنا الحدث onClick لتنفيذ حذث ما و هو عند الضغط على كلمة الحذف .. سيتم استدعاء الدالة ..
لكن كيف يمكن أن نميز السجل الذي نود أن نحذفه؟؟
اعتقد أن أفضل طريقة لتمييزه هي رقمه الوحيد id فنمرره كقيمة للدالة ..
الان نأتي دالة الفي بي سكريبت :
استخدمنا msgbox لتعطي المدير رسالة تأكيد لعملية الحذف حيث يظهر زرين لذلك نعم أو لا ..
طبعا بمجرد الضغط على زر منهم سوف تتم تخزين قيمته على شكل رقم في المتغير action حيث استخدمنا بعدها جملة للشرط تتأكد من الزر المختار .. إن كان مالتغير action قيمته تساوي 6 إذا اخترنا الزر نعم و بالتالي ننتقل بالمتصف لصفحة الحذف مع تمرير رقم الحقل الذي سيتم معالجته هناك و ذلك بالحذف ..
أما إذا اختار الزر لا فستظهر رسالة بإلغاء الحذف ..
طبعا من أين عرفت أن 6 تعني نعم و غيرها من الأرقام ماذا تعني؟؟ و كيف لو أردت أن أظهر رسالة بأزرار أخرى ؟؟
راجع هذا الدرس :
http://www26.brinkster.com/as4web/vbscript/les4.htm
حظا موفقا للجميع و أتمنى أن يكون الدرس مفيدا.