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")