ASP database connection code and database shutdown code

Dim conn,rs;//Here, if you call an external file, you must define it here.
This is the database creation connection method

Sub Opendb ()
Set Rs=server. CreateObject ("Adodb.recordset")
Set Conn=server. CreateObject ("Adodb.connection")
Conn.connectionstring= "Provider=Microsoft.Jet.OLEDB.4.0; Data source= "&server.mappath (" Datasource/hhinfo.mdb ")
Conn.Open
End Sub

This is the ASP data shutdown method
Sub Closedb ()
If IsObject (RS) Then
If not (Rs are nothing) then
Rs.close
Set rs=nothing
End If
End If
If IsObject (conn) Then
If not (conn are nothing) then
Conn.close
Set conn=nothing
End If
End If
End Sub

Original reprint of this site annotated: www.111cn.net