asp access數據庫連接代碼

　　access數據庫教程連接代碼

　　dim connconnstrtimesdbrs
        timesdb="/wwwcnnet/#tsm_admin_dataasp"
        connstr="provider=microsoftjetoledb;data source=" & servermappath(""&timesdb&"")
        on error resume next
         set conn = servercreateobject("adodbconnection")
         connopen connstr
         if err then
          errclear
          set conn = nothing
          responsewrite "<center>數據庫連接錯誤請檢查connasp文件連接字符串！</center>"
          responseend
         end if

　　set rs=servercreateobject("adodbrecordset")

From:http://tw.wingwit.com/Article/program/net/201311/14151.html