Dim conn,connstr,db
    On Error Resume Next
    db="database/db01.mdb"'数据库路径,请使用虚拟路径
    Set conn = Server.CreateObject("ADODB.Connection")
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) conn.Open connstr If Err Then
    Err.Clear
    Set Conn = Nothing
    Response.Write "数据库链接错误..."
    Response.End
    End If
    On Error GoTo 0

<%
dim conn,db
dim connstr
db="database/dbname.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
%>