Большинство приложений ASP не могут обойтись без доступа и операций в базах данных, поэтому мы должны абстрагировать операции доступа части части базы данных отдельно и инкапсулировать их в отдельный класс. Если используемый язык поддерживает наследство, вы можете инкапсулировать такой класс, а затем наследовать его на уровне операции данных. Ниже приведен класс, который я написал для доступа к базе данных Access, который был оптимизирован для доступа. Однако из -за отсутствия достаточного тестирования приложений может быть неизвестные ошибки и ограничения приложений. Основной код заключается в следующем:
<%
Classoledbprivateidatapath
PristicEnceNctionStringPrivateConn
PrivateCmd
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 = adstateckedTheNTHEN
Conn.openconcestring
Эндиф
Setopenconn = conn
EndfunctionPublicFunctionInsert (byvalsql, byvalvalues)
OpenConn ()
Rs.opensql, Conn, 3,3, Adcmdtext
Rs.addnew
Дими, л
l = ubound (значения)
Fori = 1tol+1
Rs (i) = values (i-1)
Следующий
Rs.Update
Вставьте = RS (0)
EndfunctionPublicFunctionExecute (byvalsql)
OpenConn ()
SetExecute = conn.execute (sql)
EndfunctionPublicFunctionExeCuteCalar (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
Дими, л
l = ubound (params)
Fori = 1tol+1
Rs (i) = params (i-1)
Следующий
Rs.Update
INSERTSP = RS (0)
EndFunctionPublicFunctionExecutesp (byvalspname, byvalparams)
С
Set.activeconnection = openconn ()
.Commandtext = spname
.CommAndType = & H0004