- Dim conn,rs
- set conn=server.createobject("adodb.connection")
- conn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("**.mdb")
- set rs=server.createobject("adodb.recordset")
- Sub EndConnection
- conn.close
- Set conn=Nothing
- End Sub
- ========================================
- Dim conn,rs,dbpath
- set conn=server.createobject("adodb.connection")
- dbpath = dbpath&"datebase/#Blog_db.mdb"
- conn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath(dbpath)
- set rs=server.createobject("adodb.recordset")
- Sub EndConnection
- conn.close
- Set conn=Nothing
- End Sub
ASP连接ACCESS数据库一例
最新推荐文章于 2023-05-01 01:13:20 发布