access数据库教程连接代码

        dim conn,connstr,timesdb,rs
        timesdb="../www.111cn.net/#tsm_admin_data.asp"
        connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(""&timesdb&"")
        'on error resume next
         set conn = server.createobject("adodb.connection")
         conn.open connstr
         if err then
          err.clear
          set conn = nothing
          response.write "<center>数据库连接错误，请检查conn.asp文件连接字符串！</center>"
          response.end
         end if

        set rs=server.createobject("adodb.recordset")