لا يمكن لمعظم تطبيقات ASP الاستغناء عن الوصول والعمليات إلى قواعد البيانات ، لذلك يجب علينا تجريد عمليات الوصول إلى جزء قاعدة البيانات بشكل منفصل وتغليفها في فئة منفصلة. إذا كانت اللغة المستخدمة تدعم الميراث ، فيمكنك تغليف مثل هذا الفئة ومن ثم ترثها على طبقة تشغيل البيانات. فيما يلي فئة كتبتها للوصول إلى قاعدة بيانات الوصول ، والتي تم تحسينها للوصول. ومع ذلك ، نظرًا لعدم وجود اختبار كافي للتطبيق ، قد لا يزال هناك أخطاء غير معروفة وقيود التطبيق. الرمز الرئيسي هو كما يلي:
<٪
ClassOledBprivateIdatapath
PrivateIconnectionStringPrivateConn
الخصخصة
PrivateParam
PrivaterSpublicPropertyletdatapath (ByvalValue)
idatapath = القيمة
iconnectionstring = "Provider = microsoft.jet.oledb.4.0 ؛ datasource =" & server.mappath (idatapath)
EndPropertypublicPropertygetDatapath ()
datapath = idatapath
EndPropertypublicPropertyletConnectionstring (ByvalValue)
iconnectionstring = القيمة
EndPropertypublicPropertygetConnectionString ()
connectionString = iconnectionString
EndPropertypublicFunctionOpenconn ()
ifconn.state = adstateClosedthen
Conn.OpenConnectionString
Endif
setOpenconn = conn
endfunctionPublicFunctionInter (ByvalsQl ، Byvalvalues)
Openconn ()
Rs.Opensql ، Conn ، 3،3 ، ADCMDText
Rs.Addnew
ديمي ، ل
l = ubound (القيم)
fori = 1tol+1
rs (i) = القيم (I-1)
التالي
Rs.update
insert = rs (0)
endfunctionPublicFunctionExecute (ByvalSQL)
Openconn ()
setexecute = conn.execute (SQL)
endfunctionPublicFunctionExecutesCalar (ByvalsQL)
dimirs: setirs = execute (SQL)
ifnotirs.boftthenexecutescalar = IRS (0)
endfunctionpublicfunctionexecutenoquery (byvalsql)
Openconn ()
callconn.execute (SQL ، ExecuteNonquery)
endfunctionPublicFunctionIntSp
Openconn ()
Rs.Opensql ، Conn ، 3،3 ، ADCMDStoredProc
Rs.Addnew
ديمي ، ل
l = ubound (params)
fori = 1tol+1
rs (i) = params (I-1)
التالي
Rs.update
insertsp = rs (0)
endfunctionPublicFunctionExecutesp (ByvalsPname ، ByvalParams)
withcmd
set.activeConnection = openconn ()
.CommandText = spname
.CommandType = & H0004