كمبرمج ، أعتقد أن كل شخص لديه مكتبة وظائف خاصة بهم ومكتبة الفصل. عند العمل في المشروع ، قم باستخراج الوظائف والفئات المطلوبة من المكتبة. هذا يمكن أن يحسن كفاءة التنمية. فصل في مكتبة فئة CJJ الخاصة ASP
نسخة الكود كما يلي:
'--- ******************* tconnstring ******************************** ---
بنية سلسلة اتصال قاعدة البيانات
ClasstConnstring
publicdbname ، dbath ، dbserver ، dbuser ، dbpass ، dbtype
endclass
'--- ******************* tconnstring ******************************** ---
'--- ************************ tdboperate ******************************** ---
'فئة تشغيل قاعدة البيانات العامة
ClasStdBoPoperate
PrivateCls_oconn ، كائن اتصال خاص CLS_ORS ، كائن مجموعة السجلات
privatecls_serrinfo ، cls_sconn ، cls_ssql ، cls_surl ، cls_sformaction
privatecls_ipagesize 'عدد الصفحات
privatecls_ltotalpage ، cls_ltotalrecord ، cls_lpageno
تهيئة الفصل
privatesubclass_initialize ()
ينتهي
'***********************************************
النوع: الخصائص
'الغرض: إنشاء اتصال قاعدة بيانات بناءً على connectionstring التي تم الحصول عليها
'الإدخال: A_SCONN: سلسلة نوع البيانات
"العودة: لا شيء
'***********************************************
publicpropertyletsetconn (a_sconn)
dimsobjtype
sobjtype = lace (typename (a_sconn))
ifsoBJtype <> "سلسلة" ثم
CLS_SERRINFO = CLS_SERRINFO & "<li> setConn: معلمة سلسلة غير قانونية </li>" & chr (10)
ExitProperty
Endif
setcls_oconn = createObject ("adodb.connection")
onerrorresumenext
cls_oconn.opena_sconn