sql连接数据的字符串改成Access连接

首先你得有access的数据库呀。
<%
'================================
'====创建、打开数据库链接
'================================
Dim conn,db,connstr
db = "#db.mdb"'数据库链接路径
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(""&db&"")
Set conn = server.CreateObject("ADODB.CONNECTION")
conn.Open connstr
If Err Then
    Err.Clear
    Set Conn = Nothing
    Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
    Response.End
End If
%>