<٪
'*********************************
'الوظيفة: connectionmssql (connstr)
'المعلمات: connstr ، رمز اتصال قاعدة البيانات
المؤلف: Alixi
"التاريخ: 2007/7/13
الوصف: عملية اتصال قاعدة البيانات العامة
"مثال: <٪ = connectionmssql (" Provider = microsoft.jet.oledb.4.0 ؛ datasource = test.mdb ") ٪>
'*********************************
subconnectionmssql (connstr)
onerrorresumenext
setObjConn = server.createObject ("adodb.connection")
objconn.connectionTimeout = 12
objconn.connectionstring = trim (connstr)
Objconn.Open
ifobjconn.errors.count = 0then
آخر
استجابة. write "connectionmssql" ، "فشل اتصال البيانات ، يرجى التحقق من ملف التكوين!"
استجابة
Endif
ينتهي
٪>