
在网站上下了套ASP程序出现数据库连接出错,请检查连接字串! 20
这个是我的Conn.asp<%OnErrorResumeNextSetconn=Server.CreateObject("ADODB.Connection")connst...
这个是我的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
已使用空间量
3,465.40K 3%
服务器 124.254.14.123
操作系统 Windows 2000 Server
数据库空间 SQL Server 2000
语言支持 HTML ASP PHP
IIS连接数 20
生效时间 2007-4-5 13:40:38
租用年限 1年
到期时间 2008-4-5
日志状态 开通 --> [关闭日志]
WEB状态 开通 --> [关闭站点]
FTP状态 开通 --> [关闭FTP]
默认文档 defaule.php, index.php, default.asp, index.asp, default.html, default.htm, index.html, index.htm [修改]
主机状态 正常
!请高手帮忙看看哦 展开
<%
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
已使用空间量
3,465.40K 3%
服务器 124.254.14.123
操作系统 Windows 2000 Server
数据库空间 SQL Server 2000
语言支持 HTML ASP PHP
IIS连接数 20
生效时间 2007-4-5 13:40:38
租用年限 1年
到期时间 2008-4-5
日志状态 开通 --> [关闭日志]
WEB状态 开通 --> [关闭站点]
FTP状态 开通 --> [关闭FTP]
默认文档 defaule.php, index.php, default.asp, index.asp, default.html, default.htm, index.html, index.htm [修改]
主机状态 正常
!请高手帮忙看看哦 展开
4个回答
展开全部
你的代码中数据库路径"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>"
%>
<%
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="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_set)
这一句改一下
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_set.mdb)
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_set)
这一句改一下
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_set.mdb)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
就第一行加这一句嘛,何必要写这么多
DB_set="Database.mdb"
DB_set="Database.mdb"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
主机不支持MDB的数据库
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询