على أي حال ، لقد استخدمت هذا لصنع الكثير من مواقع الويب الآن ، وأعتقد أنه لا يزال مفيدًا للغاية ، لذلك سأشاركه معك. يدعم ثلاثة أنواع من اتصالات قاعدة البيانات: MSSQL2000 ، MSSQL2005 ، الوصول
ثلاث طرق:
Select_table (SQL)
استعلام الجدول ، ارجع صحيحًا أو خطأ
إرجاع خطأ عند أخطاء بيان SQL ، أو سجل فارغ ، بطريقة أخرى صحيح
update_table (SQL)
تحديث الجدول ، بما في ذلك التحديث ، حذف
إرجاع صحيح إذا كان التنفيذ الناجح ، وإعادة إرجاع خطأ إذا تم تحديثه ، وعدد الصفوف المتأثرة بعد التنفيذ.
insert_table (SQL ، الجدول ، id_column)
الجدول هو اسم الجدول ، ID_COLURNID هو الرقم التلقائي في الجدول ، ويتم زيادة الحقل بمفرده.
إرجاع TRUE عند التنفيذ الناجح ، وإعادة إرجاع FALSE ، وتحديد الجدول ، و ID_COLURNID ، سيتم إرجاع معرف التداخل التلقائي الذي تم إنشاؤه بواسطة آخر سجل إضافي.
SELECT_TABLE () الطريقة ذات الصلة SELECT_PAGE (الصفحة ، PSIZE)
معالجة ترقيم الصفحات ، الصفحة هي الصفحة الحالية ، و Psize هي عدد الصفوف المسجلة لكل صفحة.
خلال جميع العمليات ، يتم اكتشاف رابط قاعدة البيانات و RS تلقائيًا ما إذا كان مفتوحًا ، وسيتم إغلاق رابط قاعدة البيانات تلقائيًا بعد التنفيذ.
مثال:
setDB = newadodb_class
IFDB.Select_Table ("SELECT*FROMNEWSORDERBYIDDESC") ثم
صفحة = طلب ("صفحة")
SELECT_PAGE (صفحة ، 20) '20 عناصر لكل صفحة
fori = 1TO20
Response.WritedB.RS ("title") "مدمج RS وهو غير قابل للتغيير
db.rs.movenext
IFDB.Rs.eofthenexitfor
التالي
Endif
db.rspage = إجمالي عدد الصفحات ، db.nowpage = الصفحة الحالية بعد المعالجة ، ستحسب db.rscounts إجمالي عدد السجلات.
ifdb.update_table ("deleteFromNewSwhereSpass = 1") ثم 'Update نفسه
استجابة. "حذف" & db.updated & "الصف" في المجموع
Endif
calldb.insert_table ("insertintonews (title ، content) القيم ('" & title & "' ، '" & content & ") ،" news "،" id ")
Response.write "آخر إضافة المعرف" & db.insertd
في نهاية الصفحة ، يمكنك إخراج DB.ReadCounts حيث يتم الاستعلام عن عدد المرات التي يتم فيها الاستعلام عن قاعدة البيانات.
------------------------------------------
ميزة هذه الفئة هي أنه لا داعي للقلق بشأن نسيان إغلاق رابط قاعدة البيانات ، لا تحتاج إلى setRs = server.recordset ("adodb.recordset") بشكل متكرر ، لا تحتاج إلى setRs = لا شيء
العيب هو الطريقة التقليدية لتحويل الصفحات. rs.absolutepage = rs.pagesize
---------------------------------------------------------
<٪
'/****** kshop *******/
'ADODB_CLASS.ASP فئة تشغيل قاعدة البيانات
'الإصدار 1.0
"حقوق الطبع والنشر [البريد الإلكتروني] [email protected] [/البريد الإلكتروني]
'البريد الإلكتروني [البريد الإلكتروني] [email protected] [/البريد الإلكتروني]