asp 连接数据库 Sql 2000 与 Access 的连接方法

SQL
< %  On   Error   Resume   Next
     dim  conn
     dim  connstr
     Set  conn  =  Server.CreateObject( " ADODB.Connection " )
    Connstr  =   " Driver={SQL Server};Server=127.0.0.1;Uid=sa;Pwd=sa;Database=classinfo "
    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
% >

Access


< %  On   Error   Resume   Next
     dim  conn
     dim  connstr
     dim  db
        db = " /data.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

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