แอปพลิเคชัน ASP ส่วนใหญ่ไม่สามารถทำได้โดยไม่ต้องเข้าถึงและดำเนินการกับฐานข้อมูลดังนั้นเราควรสรุปการดำเนินการเข้าถึงของส่วนฐานข้อมูลแยกต่างหากและห่อหุ้มพวกเขาลงในคลาสแยกต่างหาก หากภาษาที่ใช้สนับสนุนการสืบทอดคุณสามารถห่อหุ้มคลาสดังกล่าวแล้วสืบทอดได้ที่เลเยอร์การทำงานของข้อมูล ด้านล่างนี้เป็นคลาสที่ฉันเขียนสำหรับการเข้าถึงฐานข้อมูลการเข้าถึงซึ่งได้รับการปรับให้เหมาะสมสำหรับการเข้าถึง อย่างไรก็ตามเนื่องจากขาดการทดสอบแอปพลิเคชันที่เพียงพอจึงอาจมีข้อบกพร่องและข้อ จำกัด ของแอปพลิเคชันที่ไม่รู้จัก รหัสหลักมีดังนี้:
-
classoledbprivateidatapath
PrivateiconnectionsTringPrivateConn
Privatecmd
พารามส่วนตัว
PrivaterspublicPropertyletDatapath (byvalvalue)
idatapath = ค่า
icoNnectionString = "ผู้ให้บริการ = 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
EndfunctionPublicFunctionInsert (byvalsql, byvalvalues)
OpenConn ()
Rs.opensql, Conn, 3,3, AdcmdText
Rs.Addnew
DiMi, L
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)
EndfunctionPublicFunctionExecuteNonquery (byvalsql)
OpenConn ()
callconn.execute (SQL, ExecuteNonQuery)
EndfunctionPublicFunctionInsertSP (ByVALSQL, ByValParams)
OpenConn ()
Rs.opensql, Conn, 3,3, AdcmdstoredProc
Rs.Addnew
DiMi, L
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