السلام علكم
اخوتي الاعزاء لمادا توقفت التجارة معكم ......خلونا نخدموا معا .امزح..؟؟؟
ان الزبون يتعب من التجول في الصفحة الواحدة ويرهق عيناه بالصعود والنزول
لتفقد المنتوج او السلع فما بلك وان كان عددها بالالاف ..........؟؟؟؟؟؟؟؟
ومنه اكتشفت هدا الكود الدي يقوم بوضع العشرة تلو العشرة
1-لتكن القاعدة تحتوي على
* id_element numéroauto (المفتاح)
*titre_element اسم المنتوج
*Titre de l'élément معلومات اخرى
2-
المتغيرات والثوابت
***NbElementParPage=10
هو متغير يمثل عدد المنتجات في الصفحة الواحدة
و نقوم بضع هكدا كود
rs.Pagesize=NbElementParPage
حيث rs هي كائن recordset
****Page
تمثل هده المتغيرة الصفحة المفتوحة
****الكود *****************************************************************
if request("page")="" then '--- اداكانت الصفحة فارغة
Page=1 '----نبدا بالصفحة الاولى
else
if isnumeric(request("page")) then '---- اداكان رقم الصفحة يمثل رقم اشكر اخي ASP4DB
page=cdbl(request("page")) '-----ناخد القيمة الصحيحة
if page > rs.pagecount then '----- ادا كان رقم الصفة اكبر من عدد الصفحات
response.write("لا توجد منتجات ")
rs.close '----غلق الاتصال بالقاعدة
set rs=nothing '---- تحطيم rsمن الداكرة
conn.close
set conn=nothing
response.flush '---- الغاء تنفيد الصفحة
response.End '---- التوقف عن اكمال عمل asp
end if
else '--- رقم الصفحة ليس رقم
response.write("يوجد خطا")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.flush
response.End
end if
end if
%>
************************************************************************************
**rs.AbsolutePage
يمثل رقم الصفحة الت ستفتح
**rs.Pagesize
يمثل عدد المنتجات المراد عرضها
**rs.pagecount
يمثل عدد الفحات الاجمالي
****************************************************************************
كود العرض
for i=1 to rs.pagesize '---من 1 الى غاية *10* NbElementParPage
response.write(rs("titre_element")&"
")
response.write(rs("description_element")&"
"
rs.movenext
if rs.eof then '---- ادا وصلنا الى نهاية المنتجات
exit for
end if
next
%>
****************************************************************************
كود لعمل الزر السابق
if page>1 then '--- اداكانت ليست الصفحة الاولى لانه لا توجد سابقتها
Ref="pagine.asp?="&page-1
response.write("السابق ")
end if
%>
****************************************************************************
كود لعمل الزر التالي
if page
Ref="pagine.asp?Page="&page+1
response.write("التالي ")
end if
%>
****************************************************************************
كود عرض رقم الصفحة الحالية
response.write("رقم الصفحة هو: "&page &" من "&rs.pagecount&" ")
%>
****************************************************************************