يعتقد المطورون الحذرون أحيانًا أنه عندما نقوم بتضمين تعليمات برمجية مثل
<!-- #include file="conn.asp" -->
في صفحة تحتاج إلى القراءة والكتابة في قاعدة البيانات، في الواقع، عندما لا تقوم بأي قراءة أو الكتابة أثناء عمليات قاعدة البيانات، يظل اتصال قاعدة البيانات مفتوحًا ويستهلك موارد الخادم.
لذا، هل هناك أي طريقة يمكننا من خلالها جعل اتصال قاعدة البيانات مفتوحًا فقط عندما تحتاج قاعدة البيانات إلى القراءة، ولن يكون هناك أي إجراء عندما لا تتم قراءتها. هذه الفكرة مقدمة أدناه لإلهام الآخرين.
تتمثل هذه الفكرة في تغليف رمز اتصال قاعدة البيانات في دالة واستدعاء هذه الوظيفة عند الحاجة إلى القراءة.
فيما يلي رمز اتصال SQL:
الوظيفة Open_conn()
خافت كون، ستركون
تعيين Conn=server.createobject("adodb.connection")
Strconn = "الموفر = Sqloledb؛ معرف المستخدم = حساب تسجيل الدخول إلى قاعدة البيانات؛ كلمة المرور = كلمة مرور تسجيل الدخول إلى قاعدة البيانات؛ الكتالوج الأولي = اسم قاعدة البيانات؛ مصدر البيانات = (محلي)؛"
كون.فتح ستركون
تعيين Open_conn=Conn
إذا أخطأت ثم
خطأ. واضح
Conn.إغلاق:ضبط Conn=لا شيء
Response.Write "عذراً، خطأ في اتصال قاعدة البيانات."
الاستجابة.النهاية
نهاية إذا
الوظيفة النهائية
:
rs.open sql، conn
الأصلي
إلى
rs.open sql، Open_conn()
فيما يلي رمز اتصال ACCESS:
الوظيفة Open_conn().
خافت Dbpath، كونيتيكت
Dbpath=server.MapPath("مسار قاعدة البيانات")
تعيين Conn=server.createObject("ADODB.connection")
Conn.open "مصدر البيانات = "&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
تعيين Open_conn=Conn
إذا أخطأت ثم
خطأ. واضح
Conn.إغلاق:ضبط Conn=لا شيء
Response.Write "عذراً، خطأ في اتصال قاعدة البيانات."
الاستجابة.النهاية
نهاية إذا
الوظيفة النهائية
:
استبدال الأصلي
rs.open SQL،
تم تغيير conn إلى
rs.open sql، Open_conn()
بالمناسبة يوفر رمزًا قديمًا يمكنه مشاركة قاعدة بيانات ACCESS عبر المواقع الموجودة على نفس الخادم. ربما يمكن لبعض الأصدقاء استخدامه:
في بعض الأحيان، لدينا العديد من أسماء النطاقات من المستوى الثاني، وقد نحتاج إليها للسماح لأسماء نطاقات المستوى الثاني هذه باستدعاء قاعدة بيانات ACCESS معينة، إذا كنت لا ترغب في استخدام قاعدة بيانات SQL، فيمكن استخدام الطرق التالية للاتصال بقاعدة البيانات. (ملاحظة خاصة: إذا كان الخادم الخاص بك لديه أذونات أمان FSO، فأنت بحاجة إلى تعيين دليل قاعدة البيانات هذا للسماح لمستخدمي IIS لكل محطة تحتاج إلى الاتصال بها للوصول والتعديل.)
يشبه المسار الفعلي التالي لقاعدة البيانات المسار E: Directory Directorydatabase name
dim Conn، Strconn
تعيين Conn = Server.CreateObject("ADODB.Connection")
Strconn = "المزود = Microsoft.Jet.OLEDB.4.0؛ "
Strconn=Strconn & "مصدر البيانات=المسار الفعلي لقاعدة البيانات"
كون.افتح ستركون
إذا أخطأت ثم
خطأ. واضح
Conn.إغلاق:ضبط Conn=لا شيء
Response.Write "عذراً، خطأ في اتصال قاعدة البيانات."
الاستجابة.النهاية
نهاية إذا