*/ ----------------------------------------------- ---------------------------------------- ---------- ------------------------------------------------- ------------------------------------------------- -----------------
*/من: Jianzheng State http://www.jzxue.com
*/ المؤلف: Tianya استمع إلى المطر الإلكتروني: [email protected]: 809252803
*/ الوقت: منتدى البرمجة 2007-10-6
*/ بيان: احترم عمل المؤلف ، يرجى الاحتفاظ بالنص في هذه الفقرة
*/ ----------------------------------------------- ---------------------------------------- ---------- ------------------------------------------------- ------------------------------------------------- -----------------
<٪
'الاسم: مليون بيانات ممارسة
المؤلف: تيانيا استمع إلى المطر
الوقت: 6 أكتوبر 2007
'منصة: Win2000+IIS5.0+SQL2000
'مرافق: استخدمها بسيطة مثل المرة الأولى.
'------------------------------------------- ------------------------------------- --------- توصيل قاعدة البيانات
استجابة. buffer = صحيح
Dim SqllocalName ، sqlusername ، sqlpassword ، sqldatabas
Dim Connstr ، Conn
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '
sqllocalname = (محلي) 'توصيل IP [IP IP (المحلي) IP IP]
sqlusername = اسم مستخدم قاعدة بيانات SA
sqlpassword = xxxxxx 'كلمة مرور المستخدم
sqldatabasename = news2008 'اسم قاعدة البيانات
Connstr = Provider = SQLOLEDB ؛
'' '' '' '' '' '' '' '' '' '' '' '' ''
عند استئناف الخطأ التالي
تعيين conn = server.createBject (adodb.connection)
Conn.Open Connstr
إذا أخطأ بعد ذلك
err.clear
تعيين conn = لا شيء
Response.write <div style = 'font-size: 14px ؛
استجابة
إنهاء إذا
'------------------------------------------- ------------------------------------- --------- توصيل قاعدة بيانات لإكمالها
تحديد المتغيرات
اسم Tblname اسم حقل Fldname ؛
'strsql-total بيان ؛
dim tblname ، fldname ، fieldname ، pagesizex ، pagecountx ، pageno ، ordretype ، strwere
Dim Strsql ، Fieldcount ، Strtmp ، Strororder ، Topfield
'
Pageno = trim (request.querystring (pageno))
إذا كان isnumeric (pageno) أو pageno = ثم "إذا لم تكن هناك قيمة للصفحة ، فإن قيمة التهيئة
Pageno = ABS (Pageno)
إذا pageno = 0 ثم pageno = 1
آخر
Pageno = 1
إنهاء إذا
tblname = tablenews
يوضح fldname = id 'أن قيمة حقل الفرز لا يمكن تكرارها في قاعدة البيانات: يوصى بأن يكون المفتاح الأساسي
FieldName = id ، title ، addtime
pagesizex = 30
ordertype = 1 '0-هو الترتيب 1-liter
strwere = (code = '0101') و (Hits> 100) ملاحظة: إذا تم استخدام شرط () أقواس مزدوجة
Topfield = (Pageno-1)*pagesizex'top
إذا orderype = 0 ثم
strtmp = <(حدد دقيقة
strorderer = order بواسطة [& fldname &] desc
آخر
strtmp => (حدد الحد الأقصى
Strorderer = order بواسطة [& fldname &] ASC
إنهاء إذا
تحديد عبارات SQL
strsql = حدد TOP & CLNG (pagesizex) & fieldname & from & tblname &
إذا كانت Pageno = 1 ثم "إذا كانت الصفحة الأولى ، فقم بتنفيذ الكود التالي للتحقق من المكتبة بسرعة
إذا strwere <> ثم
strsql = strsql و where & strwere & strorder &
آخر
strsql = strsql & strorder
إنهاء إذا
آخر
إذا strwere <> ثم
strsql = strsql & where & fldname & strtmp & (& fldname &) from (select top & clng (topfield) & fldname & frm & tblname & strwere & str.
آخر
strsql = strsql & where & fldname & strtmp & (& fldname &) from (select top & clng (topfield) & fldname & tblname & strrener & as tbltmp) & أقوى &
إنهاء إذا
إنهاء إذا
تعيين rs = const.execute (strsql) 'تنفيذ الاستعلام
إذا كان Rs.Bof و Rs.eof ثم
conn.close: تعيين conn = لا شيء
استجابة. write <script language = 'javaScript'> ALERT ('في الوقت الحاضر ، لم يتم العثور على سجلات ، يرجى العودة إلى إعادة التشغيل! ") ؛ history.go (-1) ؛ </script>
استجابة
إنهاء إذا
إذا كان strwere <> ثم "البحث عن سجلات إجمالية
fieldcount = conn.execute (حدد العد (& fldname و) من & tblname & strwere &) (0) (0)
آخر
fieldcount = conn.execute (حدد العد (& fldname و) من & tblname &) (0)
إنهاء إذا
إذا (fieldcount mod npagesize)> 0 ثم "ابحث عن إجمالي رقم الصفحة pagecountx
pagecountx = (fieldcount- (fieldcount mod mod pagesizex))/ pagesizex +1
آخر
pagecountx = (fieldcount / pagesizex)
إنهاء إذا
عرض البيانات
افعل بينما لا rs.eof
Response.write (title) && nbsp ؛
Rs.Movenext
حلقة
قم بإيقاف تشغيل الموارد ذات الصلة وإطلاقها
Rs.close
conn.close: تعيين conn = لا شيء
عرض الترحيل
إذا كان Pageno <= 1 ثم
استجابة. write <font color = '#ff0000'> [الصفحة الرئيسية] [سابق] </font>
آخر
Response.write [<a href = '؟
Response.write [<a href = '؟ >]
إنهاء إذا
إذا pageno> = pagecountx ثم
استجابة. write <font color = '#ff0000'> [الصفحة التالية] [صفحة الذيل] </font>
آخر
Response.write [<a href = '؟ ]
Response.write [<a href = '؟
إنهاء إذا
استجابة. write [طلب الصفحة <font color = red> & pageno & </font> صفحة/شائعة <font color = red> & pagecountx & </font> صفحة]
reponse.write [Total <font color = red> & fieldcount & </font> إدخال <font color = red> & pagesizex & </font> شريط/صفحة]
Response.write to: <select name = 'page' size = '1' onChange = JavaScript : window.location = '؟
لأني = 1 إلى paycountx
استجابة. write <خيار القيمة = & i &
إذا pageno = أنا ثم استجابة. write selectd
Response.write (> No.- & I & -Page </soph>)
التالي
استجابة. write </selectd>
٪>