موصى به: مجموعة وظيفة تشغيل ملف ASP ٪ '======================================================= "تم تجميعها بواسطة: Zhang Hui" رمز المبرمج: WJ008 "المترجمة: العناوين '==================================================================== ===========================================================================
<٪@ language = vbscript codepage = 936 ٪>
<٪
الخيار الصريح "التعريف الإلزامي للمتغيرات
عدد السجلات dim idcount'total
Dim Pages'number من صفحة لكل صفحة
عدد الصفحات باجيك باهت
رقم صفحة الصفحة الخافتة
Dim Pagenc 'عدد أرقام الصفحة المعروضة لكل صفحة = pagenc*2+1
PAGENC = 2
Dim Pagenmax 'الحد الأقصى لعدد الصفحات المعروضة لكل صفحة
قاتمة Pagenmin 'الحد الأدنى للصفحات المعروضة لكل صفحة
الصفحة = clng (طلب (صفحة))
وقت بدء تشغيل Dim Start '
وقت الانتهاء
DIT DATAFROM'DATATABLE
DataFrom = Table1
قاتمة كون ، روبية
Dim Datapath 'قاعدة بيانات "
معرف Dim Sqlid 'مطلوب لهذه الصفحة
قاتمة بنفسي من هذه الصفحة
نفسي = request.servervariables (path_info)
Dim SQL'SQL بيان
بيان فرز سيارات الأجرة الخافت
"سيارات الأجرة = الطلب بواسطة ID ASC" الفرز الإيجابي
سيارات الأجرة = الطلب عن طريق المعرف desc 'منفردة مقلوبة
قاتمة I 'INTEGER تستخدم للحلقة
ابدأ = Timer ()
datapath = db.mdb 'قاعدة بيانات
الصفحات = 30
"اتصال لفتح قاعدة البيانات
قاتمة ديسيبل
db = db.mdb 'حدد مسار قاعدة البيانات والاسم
تعيين conn = server.createBject (adodb.connection)
Conn.Open Provider = microsoft.jet.oledb.4.0 ؛ مصدر البيانات = & server.mappath (db)
إذا err.number <> 0 ثم
Response.write خطأ ارتباط قاعدة البيانات!
استجابة.
إنهاء إذا
احصل على إجمالي عدد السجلات
SQL = حدد COUNT (ID) كما idCount من [& datafrom &]
تعيين rs = server.createBject (adodb.recordset)
Rs.Open SQL ، Conn ، 0،1
idcount = rs (idcount) 'احصل على إجمالي عدد السجلات
إذا (idcount> 0) ثم إذا كان العدد الإجمالي للسجلات = 0 ، فلن تتم معالجته
إذا (idcount mod pages = 0) ، فلا يتم تقسيم العدد الإجمالي للسجلات على الرقم المتبقي لكل صفحة ، ثم = إجمالي عدد السجلات/عدد كل صفحة + 1
PAGEC = int (IDCOUNT/PAGES) "احصل على إجمالي عدد الصفحات
آخر
PAGEC = int (idcount/pages)+1'GT العدد الإجمالي للصفحات
إنهاء إذا
"احصل على المعرف المطلوب لهذه الصفحة ==========================================================================
قيم معرف "اقرأ جميع السجلات" ، لأن هناك معرفًا فقط ، وبالتالي فإن السرعة سريعة جدًا
SQL = حدد معرف من [& datafrom &] و SARCIS
تعيين rs = server.createBject (adodb.recordset)
Rs.Open SQL ، Conn ، 1،1
rs.pagesize = عدد السجلات المعروضة لكل صفحة
إذا الصفحة <1 ثم الصفحة = 1
إذا كانت الصفحة> pagec ثم الصفحة = pagec
إذا pagec> 0 ثم rs.absolutepage = صفحة
لأني = 1 إلى rs.pagesize
إذا كان rs.eof ثم الخروج من أجل
إذا (i = 1) ثم
SQLID = RS (معرف)
آخر
sqlid = sqlid & ، & rs (id)
إنهاء إذا
Rs.Movenext
التالي
"نهاية المعرف المطلوب للحصول على هذه الصفحة =====================================================================
إنهاء إذا
٪>
<! doctype html public -// w3c // dtd html 4.01 Transitional // en>
<html>
<head>
<meta http-equiv = content-type content = text/html ؛ charset = gb2312>
<title> الترحيل السريع </title>
<link rel = stylesheet href = page.css type = text/css>
</head>
<body bgcolor =#f2f2f2 leftmargin = 0 topmargin = 0 marginWidth = 0 marginheight = 0>
<عرض الجدول = ارتفاع 100 ٪ = 100 ٪ الحدود = 0 cellpadding = 20 cellpacing = 0>
<tr>
<td valign = middle> <عرض الجدول = 100 ٪ ارتفاع = 100 ٪ الحدود = 0 cellpadding = 0 cellpacing = 1 bgColor =#cccccc>
<tr>
<td valign = top bgcolor =#ffffff> <br> <width table = 90 ٪ border = 0 align = center cellpading = 0 cellpacing = 0 class = zw>
<tr>
<td> <strong> <font color =#ff6600> Quick Paging </font> </strong> </td>
</r>
</table>
<br>
<عرض الجدول = 90 ٪ الحدود = 0 محاذاة = Center CellPadding = 3 cellpacing = 1 bgColor = cccccccc class = zw>
<tr align = center bgcolor =#9fcb07>
<td width = 9 ٪> <strong> id </strong> </td>
<td width = 37 ٪> <strong> السمة </strong> </td>
<td width = 33 ٪> <strong> المحتوى </strong> </td>
<td width = 21 ٪> <strong> الوقت </strong> </td>
</r>
<٪
إذا كان (idcount> 0 و SQLID <>) ، فلا إجمالي عدد السجلات = 0 ، فلن تتم معالجته
استخدم في تحديد البيانات بلغة هذه الصفحة ، وقراءة البيانات المطلوبة لهذه الصفحة فقط ، وبالتالي السرعة سريعة
SQL = SELECT [ID] ، [AAAA] ، [BBBB] ، [CCCC] من [& datafrom &] حيث المعرف في (& sqlid &) وسيارات الأجرة
تعيين rs = server.createBject (adodb.recordset)
Rs.Open SQL ، Conn ، 0،1
بينما (وليس rs.eof) "ملء البيانات في الجدول
٪>
<tr bgcolor =#ffffff>
<td align = center> <٪ = rs (0) ٪> </td>
<td> <٪ = rs (1) ٪> </td>
<td> <٪ = rs (2) ٪> </td>
<td align = center> <٪ = rs (3) ٪> </td>
</r>
<٪
Rs.Movenext
ويند
٪>
</table>
<br>
!
<tr align = center>
<td align = left> يوجد إجمالي <strong> <font color =#ff6600> <٪ = idcount ٪> </font> </strong> سجلات ، <strong> <font color =#ff6600> <٪ = page ٪> </font> </strong>/<٪ = pagec ٪> ، وكل صفحة <strong> color =#ff6600> <٪ = pages ٪> </font> </strong> سجلات. </td>
</r>
</table>
!
<tr align = center>
<td align = right>
<٪
قم بتعيين رقم الصفحة للبدء ===============================================
Pagenmin = page-pagenc 'احسب قيمة بدء رقم الصفحة
PagenMax = صفحة+Pagenc 'احسب القيمة النهائية لرقم الصفحة
إذا كانت (Pagenmin <1) ، فإذا كانت قيمة بدء رقم الصفحة أقل من 1 ثم = 1
Pagenmin = 1
إنهاء إذا
إذا كان (الصفحة> 1) إذا كان رقم الصفحة أكبر من 1 ، فسيتم عرضه (الصفحة الأولى)
Response.write (<a href = '& my &؟ page = 1'> <font color = '#000000'> صفحة 1 </font> </a>)
إنهاء إذا
إذا كانت (Pagenmin> 1) ، فإذا كانت قيمة بدء رقم الصفحة أكبر من 1 ، فسيتم عرضها (تحديث)
Response.write (<a href = '& my &؟ page = & page- (pagenc*2+1)
إنهاء إذا
إذا كانت (PagenMax> PAGEC) ، فإن القيمة النهائية لرقم الصفحة أكبر من إجمالي عدد الصفحات ، ثم = إجمالي عدد الصفحات
Pagenmax = pagec
إنهاء إذا
بالنسبة إلى I = Pagenmin إلى رقم صفحة إخراج حلقة Pagenmax '
إذا (أنا = صفحة) ثم
Response.write (<font color = '#ff6600'> <strong> & i & </strong> </font>)
آخر
Response.write ([<a href = & my &؟ page = & i &> <font color = '#000000'> & i & </font> </a>])
إنهاء إذا
التالي
إذا كانت (PagenMax <pagec) ، فلا تكون القيمة النهائية لرقم الصفحة أقل من إجمالي عدد الصفحات ، فسيتم عرضها (بعد ذلك)
Response.write (<a href = '& my &؟ page = & page+(pagenc*2+1) &'> <font color = '#000000'> بعد </font> </a>)
إنهاء إذا
إذا كان (الصفحة <PAGEC) "إذا كان رقم الصفحة أقل من إجمالي عدد الصفحات ، فسيتم عرضه (الصفحة الأخيرة)
Response.write (<a href = '& my &؟ page = & pagec &'> <font color = '#000000'> الصفحة الأخيرة </font> </a>)
إنهاء إذا
قم بتعيين رقم الصفحة على النهاية =================================================
٪> <script language = javaScript>
<!-
وظيفة gopage () {
window.location.href = <٪ = Mesysy ٪>؟ page =+ page.value ؛
}
//->
</script>
اذهب إلى
<اسم الإدخال = نوع الصفحة = قيمة النص = <٪ = page ٪> size = 5> صفحة
<نوع الإدخال = اسم الزر = إرسال قيمة = Jump> </td>
</r>
</table>
<٪
إنهاء إذا
٪>
<br>
!
<tr>
<td align = center>
<p>
<٪
endt = timer ()
Rs.close
تعيين روبية = لا شيء
conn.close
تعيين conn = لا شيء
٪>
<٪ = formatnumber ((endt-start)*1000،3) ٪> ms </p>
<p> <a href = http://stone-stone.vip.sina.com/ target = _blank> مساحة الحجر </a> </p> </td>
</r>
</table>
<br> </td>
</r>
</table> </td>
</r>
</table>
</body>
</html>
مشاركة: نصائح إعداد ASP لاستخدام FCKEditor 1. افتح ملف fckconfig.js باللغة الافتراضية (نسبة إلى مجلد FCKEditor ، وهو نفسه أدناه) ، وقم بتغيير لغة الكشف التلقائي إلى عدم الكشف ، وتغيير اللغة الافتراضية إلى صينية مبسطة: رمز البرنامج fckconfig.autodeTectLanguage = خطأ ؛ fckconfig.defaultLanguage = 'Zh-Cn' ؛ 2. افتح ملف fckconfig.js في قائمة الخط ، في قائمة الخطوط