<%
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'فئة تشغيل قاعدة البيانات
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'الاسم: Class_DBPerate
"الإصدار: 0.2
'المؤلف: qihangnet
'تحديث: 14 يونيو 2005
'الوظيفة: تبسيط عملية عمليات قاعدة البيانات
"الترخيص: مجاني للاستخدام."
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
فئة Class_DBOperate
'************ * **************************
"تعريف متغير."
'***************************************
'Conn ---------- كائن اتصال قاعدة البيانات
'Conn_Str ------ سلسلة اتصال قاعدة البيانات
Private Conn,Conn_Str
'************************************ ** ***
'"تهيئة/إنهاء المثيل"."
'***************************************
فئة فرعية خاصة_Initialize ()
تعيين Conn = Server.CreateObject("ADODB.Connection")
End Sub
Private Sub Class_Teriminate()
SetConn=لا شيء
النهاية الفرعية
'************************************
'ملكية
'***************************************
' سلسلة اتصال قاعدة بيانات الإخراج
'نوع قيمة الإرجاع:
خاصية السلسلة، احصل على ConnectString
ConnectString = Conn_Str
خاصية النهاية
"تعيين سلسلة اتصال قاعدة البيانات (سلسلة اتصال قاعدة البيانات)"
'المعلمة: str ---
خاصية السلسلة Let ConnectString(str)
Conn_Str = str
نهاية الخاصية
'************************************
'حدث
'***************************************
يتم فتح قاعدة البيانات
DB_Open العامة الفرعية ().
Conn.ConnectionString = Conn_Str
كون.فتح
End Sub
'قاعدة البيانات مغلقة
DB_Close () الفرعي العام
كون.إغلاق
النهاية الفرعية
'************************************
'طريقة
'***************************************
استعلام قاعدة البيانات (بيان SQL)
'المعلمات والفئات: SQL ---- سلسلة
'نوع قيمة الإرجاع: مجموعة السجلات
' المتطلب السابق: حالة قاعدة البيانات مفتوحة
الوظيفة العامة DB_Select(sql)
تعيين DB_Select = Conn.Execute(sql)
وظيفة النهاية
"تنفيذ قاعدة البيانات (بيان SQL)"
'المعلمات والفئات: SQL ---- سلسلة
'نوع قيمة الإرجاع: عدد صحيح
'معنى قيمة الإرجاع: عدد الصفوف المتأثرة
' المتطلب السابق: حالة قاعدة البيانات مفتوحة
الوظيفة العامة DB_Excute(sql)
خافت rs_affected
Conn.Execute sql,rs_affected
DB_Excute = rs_affected
نهاية الوظيفة
فئة النهاية
%>