asp连接access数据库代码

CONN.ASP(数据连接页面代码)
<%
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("test.mdb")
conn.Open connstr
%>

若A.ASP调用数据库连接页面.

<%
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("a.mdb")
conn.Open connstr
%>
____________________________________
a.mdb就是你的数据库文件，如果数据库文件放在文件夹里还要在加上路径。

set conn =server.createobject("adodb.connection")
strcon="DBQ=" & server.MapPath("test.accdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open strcon
’set rs = Server.CreateObject("ADODB.Recordset")

<%
dim conn,db
dim connstr
db="test.mdb" '数据库文件位置和数据库名称
on error resume next
connstr="dbq="+server.mappath(""&db&"")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
if err then
err.clear
else
conn.open connstr
end if
sub closeconn()
conn.close
set conn=nothing
end sub
%>