急，急，asp 链接access 提示数据库连接出错，请检查Conn.asp文件中的数据库参数设置。

[guoqiangone]

代码是

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim db
const DatabaseType="ACCESS"     
db="bbs/data/cnhww.mdb"           
         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文件中的数据库参数设置。"&  connstr
		
		Response.End
	End If
sub CloseConn()
	On Error Resume Next
	If IsObject(Conn) Then
		conn.close
		set conn=nothing
	end if
end sub
%>

connstr输出路径是C:\Inetpub\wwwroot\wq\bbs\Data\cnhww.mdb

路径是没错的，这个问题该如何解决。。

[sy_binbin]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim db
const DatabaseType="ACCESS"
db="bbs/data/cnhww.mdb"
'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文件中的数据库参数设置。"& connstr

'Response.End
'End If
sub CloseConn()
'On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>


这样试试！看看错误信息是什么

[guoqiangone]

技术信息（用于支持人员）

错误类型：
Active Server Pages, ASP 0141 (0x80004005)
@ 命令只能在 Active Server Page 中使用一次。
/wq/conn.asp, 第 2 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; MAXTHON 2.0)

网页：
GET /wq/index.asp

时间：
2009年10月17日星期六, 下午 01:12:21

[guoqiangone]

现在出现以下错误

技术信息（用于支持人员）

错误类型：
Server 对象, ASP 0177 (0x8007007E)
8007007e
/wq/conn.asp, 第 10 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; MAXTHON 2.0)

网页：
GET /wq/index.asp

时间：
2009年10月17日星期六, 下午 01:13:31


详细信息：
Microsoft 支持

[lzp4881]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
把这行删除

[guoqiangone]

我在网上找了一些，有人说MDAC坏了，可我下载的
Microsoft Data Access Components (MDAC) 2.8 SP1不能用

[guoqiangone]

类型：
Server 对象, ASP 0177 (0x8007007E)
8007007e
/wq/conn.asp, 第 10 行

第 10 行代码如下
Set conn = Server.CreateObject("ADODB.Connection")

[lzp4881]

MDAC组件遭到破坏的原因，请到c:盘搜索mdac.inf
右键安装，需要插入系统光盘，重新装下就OK!

[guoqiangone]

没的系统光盘

[guoqiangone]

暂时弄好了，谢谢

[guoqiangone]

顶，在线等

[lzp4881]

把On Error Resume Next注释掉，看看报什么错

[gongyiyu2]

哎呀呀 我都看不懂啊 大家、、、

[uvcms]

<%
dim db
const DatabaseType="ACCESS"
db="C:\Inetpub\wwwroot\wq\bbs\Data\cnhww.mdb"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"& connstr

Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>