وظيفة الترحيل ASP، والملاحة الترحيل
الكاتب：Eve Cole
وقت التحديث：2009-06-26 18:09:37
رمز البرنامج
<%
'// وظيفة الترحيل
'//psize: عدد البيانات المعروضة في كل صفحة
'//pindex: رقم الصفحة الحالية
'//tbName: اسم الجدول
'//keyIndex: الترحيل وفقًا لأي حقل، عادةً ما يكون نوعًا ذاتي الزيادة (ترقيم تلقائي لقاعدة بيانات الوصول)
'//أين: شروط الاستعلام
'//الترتيب: شروط الفرز، الافتراضي هو "الترتيب حسب "&keyIndex &" desc"
'// يمكن الحصول على العدد الإجمالي للسجلات وإجمالي الصفحات مباشرة من مجموعة النتائج التي تم إرجاعها. يخزن عدد بيانات الحقل إجمالي عدد السجلات، ويخزن عدد صفحات الحقل إجمالي عدد الصفحات.
مؤشر خاص، عدد البيانات، الصفحات
"عدد البيانات = 0
الصفحات = 1
الوظيفة العامة ChangePage(psize,tbName,keyIndex,where,order)
com.dimsqlstring
pindex = Trim(Request.QueryString("page"))
إذا لم يكن رقميًا (psize) أو psize = "" ثم psize=1'// عدد البيانات المعروضة في كل صفحة
إذا لم يكن رقميًا (pindex) أو pindex = "" ثم pindex = 1'// رقم الصفحة الحالية
إذا كان الطلب = "" ثم الطلب = الترتيب حسب " & keyIndex & " desc"
'//احصل على العدد الإجمالي للبيانات
"عدد البيانات الخافت والصفحات
تعيين rs=conn.execute("اختر العد (*) كعدد بيانات من " & tbName & " حيث 1 = 1 " & أين)
datacount = rs("datacount")'// إجمالي عدد السجلات
rs. Close
تعيين RS=لا شيء
'// احسب العدد الإجمالي للصفحات
إذا (بيانات عدد وزارة الدفاع psize) = 0 ثم
الصفحات = عدد البيانات psize
آخر
الصفحات = عدد البيانات psize + 1
نهاية إذا
'//
إذا كان cint(pindex)>pages ثم pindex=pages
"لصق سلسلة SQL."
إذا pindex <= 1 ثم
sqlstring="select top" & psize & "*،" & datacount & " as datacount،" & pages & " as pagescount from " &_
tbName & " حيث 1 = 1 " & أين & " " & النظام
آخر
sqlstring="select top" & psize & "*،" & datacount & " as datacount،" & pages & " as pagescount from " &_
tbName & " حيث 1=1 و" & keyIndex & " ليس في (اختر أعلى " & (pindex-1)*psize & " " & keyIndex & " من " &_
tbName & " Where 1=1 " & Where & " " & Order & ") " & Where & " " & Order
نهاية إذا
"الاستجابة. الكتابة (sqlstring)
تعيين ChangePage=conn.execute(sqlstring)
وظيفة النهاية
'// التنقل في الصفحة
'//اسم الملف: اسم الملف/الصفحة الحالية، يمكنك تركه فارغًا
'//argString: معلمات الترحيل مثل classid=1&tid=16، لا يلزم ملء صفحة المعلمات الضرورية للترحيل
'//pindex: رقم الصفحة الحالية
'// عدد البيانات: العدد الإجمالي للسجلات
'//الصفحات: العدد الإجمالي للصفحات
'//showMsg: ما إذا كان سيتم عرض معلومات الترحيل، فإن المعلمة تكون صواب/خطأ
'//showText: ما إذا كان سيتم عرض التنقل في الصفحة الرئيسية والصفحة السابقة والصفحة التالية والصفحة الأخيرة، تكون المعلمات صحيحة/خطأ
'//showNumber: ما إذا كان سيتم عرض التنقل عبر الترحيل الرقمي، فإن المعلمة تكون صواب/خطأ
'pageLink للوظيفة العامة (fileName,argString,pindex,datacount,pages,showMsg,showText,showNumber)
رابط الوظيفة العامة (fileName,argString,showMsg,showText,showNumber)
'//
إذا كانت argString<>"" ثم argString = argString & "&"
إذا لم يكن showText وليس showNumber، فإن showText=true
'//
إذا showMsg ثم
الاستجابة.كتابة("[")
Response.Write("<span style='color:red;'>" & pindex & "</span> page")
Response.Write("/分<span style='color:red;'>" & الصفحات & "</span> الصفحات")
Response.Write("/Total<span style='color:red;'>" & datacount & "</span> Records")
الاستجابة.اكتب("] ")
نهاية إذا
'//
إذا showText ثم
إذا بيندكس> 1 ثم
Response.Write("<a href='" & fileName & "؟" & argString & "page=1'>[الصفحة الرئيسية]</a>")
الاستجابة.اكتب(" ")
Response.Write("<a href='" & fileName & "؟" & argString & "page=" & pindex - 1 & "'>[الصفحة السابقة]</a>")
آخر
الاستجابة.كتابة("[الصفحة الرئيسية]")
الاستجابة.اكتب(" ")
Response.Write("[الصفحة السابقة]")
نهاية إذا
الاستجابة.اكتب(" ")
إذا pindex <الصفحات ثم
Response.Write("<a href='" & fileName & "؟" & argString & "page=" & pindex + 1 & "'>[الصفحة التالية]</a>")
الاستجابة.اكتب(" ")
Response.Write("<a href='" & fileName & "؟" & argString & "page=" & pages & "'>[الصفحة الأخيرة]</a>")
آخر
الاستجابة.الكتابة("[الصفحة التالية]")
الاستجابة.اكتب(" ")
الاستجابة.الكتابة("[الصفحة الأخيرة]")
نهاية إذا
نهاية إذا
'//
إذا showNumber ثم
الاستجابة.اكتب(" ")
لأني = 4 إلى 1 خطوة -1
إذا (pindex - i)>0 إذن
Response.Write("<a href='" & fileName & "؟" & argString & "page=" & pindex - i & "'>" & pindex - i & "</a>")
الاستجابة.اكتب(" ")
نهاية إذا
التالي
'//
Response.Write("<span style='color:red;'>" & pindex & "</span>")
'//
لأني = 1 إلى 4
إذا (pindex + i) <= الصفحات إذن
الاستجابة.اكتب(" ")
Response.Write("<a href='" & fileName & "؟" & argString & "page=" & pindex + i & "'>" & pindex + i & "</a>")
نهاية إذا
التالي
'//
نهاية إذا
'//
وظيفة النهاية
%>
