A maioria dos aplicativos ASP não pode ser que não possa ter acesso e operações aos bancos de dados; portanto, devemos abstrair as operações de acesso da parte do banco de dados separadamente e as encapsulam em uma classe separada. Se o idioma usado suportar herança, você poderá encapsular essa classe e, em seguida, herdá -la na camada de operação de dados. Abaixo está uma classe que escrevi para o Access Database Access, que foi otimizado para acesso. No entanto, devido à falta de teste de aplicação suficiente, ainda pode haver erros desconhecidos e restrições de aplicativos. O código principal é o seguinte:
<%
ClassoledBPrivateIdatapath
PrivateiConnectionsTringPrivateConn
Privatecmd
PrivateParam
PrivateersPublicPropertyLetDatapath (ByValValue)
Idatapath = valor
IConnectionstring = "Provider = Microsoft.Jet.oledb.4.0; DataSource =" & Server.mappath (IDatapath)
EndPropertyPublicPropertyGetDatapath ()
Datapath = idatapath
EndPropertyPublicPropertyLetConnectionsTring (ByValValue)
ICONNECTIONSTRING = Valor
EndPropertyPublicPropertyGetConnectionsTring ()
ConnectionsTring = ICONNECTIONSTRING
EndPropertyPublicFunctionOpenconn ()
Ifconn.state = adstateclosedHen
Conn.OPENCONNEÇÕESTRING
Endif
Setopenconn = Conn
EndfunctionPublicFunctionInsert (ByValsQL, ByValValues)
OpenConn ()
Rs.opensql, Conn, 3,3, adcmdText
Rs.Addnew
Dimi, l
l = ubound (valores)
Fori = 1tol+1
Rs (i) = valores (i-1)
Próximo
Rs.update
Inserir = rs (0)
EndfunctionPublicFunctionExecute (BYValsQL)
OpenConn ()
SetExecute = Conn.Execute (SQL)
EndfunctionPublicFunctionExecutesCalar (BYValsQL)
Dimirs: setirs = execute (sql)
Ifnotirs.BoftThenexecutesCalar = IRS (0)
EndfunctionPublicFunctionExecutenonQuery (BYValsQL)
OpenConn ()
Calconn.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)
Próximo
Rs.update
Insertsp = rs (0)
EndfunctionPublicFunctionExecutesP (ByValsPName, ByValParams)
Withcmd
Set.activeConnection = OpenConn ()
.CommandText = spName
.CommandType = & H0004