برنامج ترحيل الصفحات الخاص بي asp + sqlserver: خاصية هذا البرنامج هي إسقاط سجلات الصفحة الحالية على الصفحة. الأداء جيد، وليست هناك حاجة للإجراءات المخزنة نظرًا لأن الكود غير مغلف، فهو مجزأ جدًا لاستخدامه في برنامجك، تحتاج إلى قراءته لفترة وجيزة. ثم انتبه إلى معنى الأماكن التي تحتاج إلى ضبطها بنفسك. يمكن حذف بعضها. يمكن أيضًا حذف بعض تمريرات المعلمات.
الكود كما يلي:
'''' أداة الترحيل Snow الخاصة بـ Saibei (خادم SQL) لا تتطلب إجراءات مخزنة --------------------------- ---
'يوجد # في التعليقات ## يتطلب إعدادات المستخدم
'يوجد وصف لتمرير المعلمات** في التعليق لتمريرها عبر المعلمات.
'تعريف المتغيرات
شروط الاستعلام dim tOption
dim tOrder "فرز السلاسل."
dim tOrderField 'يمكن الحصول على حقل الطلب من خلال المعلمات: order_field
dim tOrderDirection 'يمكن الحصول على اتجاه الفرز من خلال المعلمات: order_direction
dim tPageSize 'Page size
dim tTotalCount 'يمكن الحصول على العدد الإجمالي للسجلات من خلال المعلمات: t_count
خافت tPageCount "عدد الصفحات."
dim tCurPage 'يمكن الحصول على رقم الصفحة الحالية من خلال المعلمات: page
dim tTableName 'اسم الجدول أو العرض
خافت tFieldAlias "الاسم المستعار لرقم السطر
dim tFieldList "قائمة حقول الاستعلام".
dim tPageField 'الحقل المستخدم للترحيل
dim r_count 'عدد السجلات التي تم العثور عليها
set rs=server.createobject("adodb.recordset")
معالجة فرز
كائن مجموعة التسجيل
tOrderField=Request("order_field") 'الحصول على حقل الفرز (تمرير المعلمة**)
tOrderDirection=Request("order_dir") 'احصل على اتجاه الفرز (تمرير المعلمة**)
if(tOrderField="") ثم tOrderField="item_code" ' ### قم بتعيين حقل الفرز الافتراضي
إذا (tOrderDirection = "") ثم tOrderDirection = "asc" ' ### تعيين اتجاه الفرز الافتراضي
"www.downcodes.com."
tOrder=" الطلب حسب " & tOrderField & " " & tOrderDirection & " " 'إنشاء سلسلة فرز
"تحديد المعلمات."
tPageSize=find_rs_count ' ### ضبط حجم الصفحة
tTableName="view_select1" ' ### قم بتعيين الجدول أو العرض والاستعلام عنه
tFieldList=" * " ' ### قائمة الحقول المطلوب الاستعلام عنها
tPageField="item_code" ' ### قم بتعيين مفتاح أساسي أو حقل فهرس فريد لحسابات الترحيل
"معالجة الصفحة."
tCurPage=Request("page") 'الحصول على الصفحة الحالية (تمرير المعلمة**)
tTotalCount=Request("t_count") 'احصل على إجمالي عدد الصفحات (تمرير المعلمة**)
إذا(tCurPage="") ثم tCurPage=1
إذا (cint(tCurPage)=0) ثم tCurPage=1
إذا (tPageCount = "") ثم tPageCount = 1
إذا (cint(tPageCount)=0) ثم tPageCount=1
' قم بإنشاء شروط الاستعلام، والتي ستكون بالتأكيد مختلفة اعتمادًا على البرنامج المحدد. ولكن الشرط الأخير يجب أن يكون "أين ؟؟؟"
tOption=" Issue_flag='Y'" ' ### اضبط الشروط
إذا f_c<>"" ثم tOPtion= tOPtion & f_c ' ### اضبط الشروط
إذا تقليم (tOption) = "" ثم
tOption = " Where 1=1 " 'إذا لم يكن هناك شرط، قم بإضافة شرط بنفسك.
آخر
tOption= "حيث" & tOPtion
نهاية إذا
"إنشاء سلسلة الاستعلام، جوهر برنامج الترحيل هذا. سلسلة الاستعلام هذه هي السجل الذي نحتاجه لتنزيل الصفحة الحالية فقط."
إذا (tCurPage>1) ثم
conStr="select top " & tPageSize & " " & tFieldList & " من " & tTableName & tOption
conStr =conStr & " و " & tPageField & " ليس في (اختر أعلى " & tPageSize*(tCurPage-1) & " " & tPageField & " من " & tTableName & tOption & " " & tOrder & ") " & tOrder
آخر
conStr="select top " & tPageSize & " " & tFieldList & " من " & tTableName & tOption & " " & tOrder
نهاية إذا
'قم بتنفيذ الاستعلام الرئيسي واحصل على مجموعة السجلات المقابلة
استدعاء ConnDataBase() ' ### إنشاء اتصال بقاعدة البيانات
rs.cursorlocation=3
rs.open conStr,conn,3,1 'تنفيذ الاستعلام
r_count = rs.recordcount
'عندما لا يتم الاستعلام عن إجمالي عدد السجلات ويتجاوز إجمالي عدد السجلات حجم الصفحة، قم بالاستعلام عن إجمالي عدد السجلات في ظل الظروف الحالية
إذا (r_count>=tPageSize أو tCurPage>1) وtTotalCount=0 إذن
تعيين rr=conn.execute("اختر العد(*) من " & tTableName & " " & tOption)
tTotalCount=ص(0)
ص.إغلاق()
setrr=لا شيء
نهاية إذا
إذا (cint(tTotalCount)=0) ثم tTotalCount=r_count 'إذا كان إجمالي السجلات 0، فقم بتعيين عدد السجلات في سجلات الفرق الحالية المعينة على إجمالي عدد السجلات، مما يشير إلى أن العدد الإجمالي الحالي للسجلات أقل من حجم الصفحة
'احسب عدد الصفحات باستخدام حجم الصفحة وإجمالي عدد السجلات
إذا (cint(tTotalCount)>cint(tPageSize)) إذن
tPageCount=cint((cint(tTotalCount) cint(tPageSize)))
إذا (cint(tTotalCount) mod cint(tPageSize))>0 إذن
tPageCount =tPageCount +1
نهاية إذا
نهاية إذا
tCurPage=سينت(tCurPage)
tPageCount=سينت(tPageCount)
'------------------------------------------------ - -------------------
هذا هو الكود بأكمله، ويمكن للأصدقاء المهتمين دراسته أو تغليفه وإضافة التنقل عبر الترحيل وطرق أخرى. على أية حال، آمل أن يكون هذا الرمز مفيدًا للجميع.