(急)数据库连接出错，请检查Conn.asp文件中的数据库参数设置

我的网站数据连接文件代码如下:
<%
Function Get_SafeStr(str)
Get_SafeStr = Replace(Replace(Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", ""),"=",""),">","")
End Function

db="sjk2008/#sy#wgh2008#.asp"
On Error Resume Next
dim ConnStr
dim conn
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 "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>

-------------------------------------------------
在本地测试时总是提示:(

数据库连接出错，请检查连接字串?? 数据库连接出错,请检查连接字串 数据库连接出错，请检查连接字串 会玩论坛的朋友进来！！急。。。数据库连接出错，请检查连接字串。 为何总出现“数据库连接出错，请检查连接字串。” 求助博客制作问题：“数据库连接出错，请检查连接字串” 输入用户名和密码，数据库连接出错，请检查连接字串。 ACCESS数据库连接出错，请检查连接字串。求助！！ 数据库连接出错,请检查Conn.asp文件中的数据库参数设置。 数据库连接出错，请检查Conn.asp文件中的数据库参数设置。