ASP连接ACCESS数据库一例

1. Dim conn,rs
2. set conn=server.createobject("adodb.connection")
3. conn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("**.mdb")
4. set rs=server.createobject("adodb.recordset")
6. Sub EndConnection
7.     conn.close
8.     Set conn=Nothing
9. End Sub
11. ========================================
13. Dim conn,rs,dbpath
14. set conn=server.createobject("adodb.connection")
15. dbpath = dbpath&"datebase/#Blog_db.mdb"
16. conn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath(dbpath)
17. set rs=server.createobject("adodb.recordset")
19. Sub EndConnection
20. conn.close
21. Set conn=Nothing
22. End Sub