ASP Connection Access database method

ASP Database connection method A lot of, especially ASP and Access database There are several ways to connect to an Access database today is the best way to do that.

Rs,conn is defined as a global variable so that it can be used directly when other files adjust the current file.

Dim Rs,conn

Sub Db_connect ()
Dpath = "Dbasemateydbweb_^%$#@.mdb"
Set conn=server.createobject ("Adodb.connection")
Set Rs =server.createobject ("Adodb.recordset")
conn.connectionstring= "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &server.mappath (Dpath)
Conn.Open
End Sub

The

Here determines whether RS and Conn are created, and if the object is present, it can save system resources.
 
 sub closedb ()
  if IsObject (RS) then
   if not (Rs.) then
    rs.close
    set rs=nothing
    end if
   end if
  if isobject (Conn) then
   if not (Conn are nothing) then< br>     conn.close
    set conn=nothing
   end if
  end if
 end sub