在网站上下了套ASP程序出现数据库连接出错,请检查连接字串!

来源:百度知道 编辑:UC知道 时间:2024/05/28 11:27:24
这个是我的Conn.asp
<%
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_set)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(DB_set)
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write "<br><br><br><center><font style=color:red;font-size:9pt;><b>数据库连接出错,请检查连接字串!</b></font></center>"
Response.End
End If

sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
Const Version = "<b>黄金版</b>"
%>
_________________________________________________________________
空间的资料:虚拟主机名 xxmm
产品名称 精简型050
Web空间量 100M

你的代码中数据库路径"DB_set"变量没赋值,所以会出错,我给改了下运行通过,现贴上来:
<%
DB_set="Database.mdb"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_set)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(DB_set)
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write "<br><br><br><center><font style=color:red;font-size:9pt;><b>数据库连接出错,请检查连接字串!</b></font></center>"
Response.End
End If

sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
Const Version = "<b>黄金版</b>"
%>

数据库连接有错误,
connstr="Prov