Most ASP applications, are inseparable from the access to the database and operations, so, for the database part of the access operation, we should be abstracted out, encapsulated into a separate class. If the language you are using supports inheritance, you can encapsulate one such class and then inherit it at the data manipulation layer. Here's an Access database Class I wrote, optimized for access, but because of the lack of adequate application testing, there may still be unknown bugs and application restrictions, the main code is as follows:
<%
Class OLE DB Private Idatapath
Private Iconnectionstring Private Conn
Private CMD
Private Param
Private Rs Public Property Let DataPath (ByVal Value)
Idatapath = Value
iconnectionstring = "Provider = Microsoft.jet.oledb.4.0;data Source =" & Server.MapPath (Idatapath)
End Property DataPath ()
DataPath = Idatapath
End property, let ConnectionString (ByVal Value)
iconnectionstring = Value
End Property ConnectionString ()
ConnectionString = iconnectionstring
End Property Public Function Openconn ()
If conn.state = adstateclosed Then
Conn.Open ConnectionString
End If
Set Openconn = Conn
End Function Public Function Insert (ByVal Sql, ByVal Values)
Openconn ()
Rs.Open Sql, Conn, 3, 3, adCmdText
Rs.addnew
Dim I, L
L = UBound (Values)
For i = 1 to L + 1
Rs (i) = Values (i-1)
Next
Rs.update
Insert = Rs (0)
End Function Public Function Execute (ByVal Sql)
Openconn ()
Set Execute = Conn.execute (SQL)
End Function Public Function executescalar (ByVal Sql)
Dim Irs:set iRs = Execute (SQL)
If not irs.bof Then executescalar = iRs (0)
End Function Public Function ExecuteNonQuery (ByVal Sql)
Openconn ()
Call Conn.execute (SQL, ExecuteNonQuery)
End Function Public Function insertsp (ByVal Sql, ByVal Params)
Openconn ()
Rs.Open Sql, Conn, 3, 3, adCmdStoredProc
Rs.addnew
Dim I, L
L = UBound (Params)
For i = 1 to L + 1
Rs (i) = Params (i-1)
Next
Rs.update
INSERTSP = Rs (0)
End Function Public Function executesp (ByVal spname, ByVal Params)
With CMD
Set. ActiveConnection = Openconn ()
. CommandText = Spname
. CommandType = &h0004
. Prepared = True
Set Executesp =. Execute (, Params)
End With
End Function Public Function executedatatablesp (ByVal spname, ByVal Params)
Openconn ()
If rs.state <> adstateclose Then
Rs.close ()
End If
Dim Spstr
If IsNull (Params) Or IsEmpty (Params) Then
Spstr = Spname
Else
If IsArray (Params) Then
Spstr = "Execute" & Spname & "" & Join (Params, ",")
Else
Spstr = "Execute" & Spname & "" & Params
End If
End If
Call Rs.Open (Spstr, Conn, 1, 1, adCmdStoredProc)
Set Executedatatablesp = Rs
End Function Public Function executescalarsp (ByVal spname, ByVal Params)
Dim Irs:set iRs = Executesp (spname, Params)
If not irs.bof Then executescalarsp = iRs (0)
End Function Public Function EXECUTENONQUERYSP (ByVal spname, ByVal Params)
With CMD
Set. ActiveConnection = Openconn ()
. CommandText = Spname
. CommandType = &h0004
. Prepared = True
Call. Execute (EXECUTENONQUERYSP, Params)
End With
End Function Private Sub Class_Initialize ()
Set Conn = Server.CreateObject ("ADODB. Connection ")
Set CMD = Server.CreateObject ("Adodb.command")
Set Param = Server.CreateObject ("ADODB. Parameter ")
Set Rs = Server.CreateObject ("ADODB.") RecordSet ")
DataPath = "/data/data.mdb" Here Write your database default path, recommend change name and extension
End Sub
Private Sub Class_Terminate ()
Set Param = Nothing
Set CMD = Nothing
Closers ()
Closeconn ()
End Sub Private Sub Closeconn ()
If conn.state <> adstateclose Then
Conn.close ()
Set Conn = Nothing
End If
End Sub Private Sub closers ()
If rs.state <> adstateclose Then
Rs.close ()
Set Rs = Nothing
End If
End Sub End Class
%>
Current 1/3 page
123 Next read the full text
