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


%>