簡單asp連接access數據庫代碼

　　Set rs = nothing
      Set conobject = ServerCreateObject("ADODBConnection")
      db="examplemdb"
      DBPath = ServerMapPath(db)
      conobjectOpen "Driver={Microsoft Access Driver (*mdb)};DBQ="&DBPath
      Set rs = Servercreateobject("adodbrecordset")

　　Set conn = ServerCreateObject("ADODBConnection")
      DBPath = ServerMapPath(db)
      connOpen "Driver={Microsoft Access Driver (*mdb)};DBQ="&DBPath
 

From:http://tw.wingwit.com/Article/program/net/201311/14452.html