ASP 网站数据库连接失败

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>表示是GB2312编码
<%
On Error Resume Next '
db = /data/!@#$%cherry.mdb 确认数据库连接是否正确
connstr = "DBQ=" + server.mappath(""&db&"") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn = server.CreateObject("ADODB.CONNECTION")
conn.Open connstr
If Err<>0 Then 判断
    Err.Clear
    Set conn = Nothing
    Response.Write("不能连接到数据库！")
    Response.End()
End If
%>
<%
Set site = server.CreateObject("adodb.recordset")
exec = "select * from site"
site.Open exec, conn, 1, 1
%>