传说哥的故事的作者:重金求Access连接方式~

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
%>

Dim db,conn,connstr
db="data/abcd.asp" '数据库所在路径
on Error resume next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'connstr="Driver={microsoft access driver (*.mdb)};DBQ=" & Server.MapPath(db)
conn.open connstr
If Err.Number <> 0 Then
set conn=nothing
Response.write "建立数据库连接错误，请联系管理员！"
response.end
end if

set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;User Id=admin;jet OleDB:Database Password=1234;Data Source="& Server.MapPath("news.css")
保证行 秘密没有就去掉

<%
dim conn
dim connstr
dim db '你的数据库文件的位置
db="datebase\seaheart.mdb"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("datebase\seaheart.mdb")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请报告本站站长，谢谢！"
Response.End
End If

sub CloseConn()
conn.close
set conn=nothing
end sub
%>