Question

ASP数据库链接错误，新手上路请大侠指教。

提示数据库错误！数据库链接出错，请检查conn语句设置!请问在这里怎么设置
以下是错误源代码
<!--#include file="inc/CheckSql.asp"-->
<%
On Error Resume Next
Dim conn,connstr,db
db = "/my_data_xr/#datalinfeng.mdb"
Set conn = server.CreateObject("ADODB.CONNECTION")
connstr = "Driver={Microsoft Access Driver (/my_data_xr/#datalinfeng.mdb)}; DBQ=" & server.mappath(db)
conn.open connstr

If Err.number <> 0 Then
response.write("数据库链接出错，请检查conn语句设置!")
Err.clear
response.end()
End If

Function check_sql(str)
str=Replace(str,"'","")
str=Replace(str,"--","")
str=Replace(str,";","")
str=Replace(str,"%","")
str=Replace(str,"&","")
str=Replace(str,"*","")
str=Replace(str,"#","")
str=Replace(str,"(","")
str=Replace(str,")","")
str=Replace(str,"=","")
check_sql=str
End Function

Function AspHtml(HtmlStr)
Set re = New RegExp
re.Pattern ="<[^>]+>"
re.Global = True
re.IgnoreCase = False
re.MultiLine = True
momo= re.Replace(HtmlStr,"")
AspHtml = replace(momo," ","")
End Function
%>

Answer 1

db = "/my_data_xr/#datalinfeng.mdb"
Set conn = server.CreateObject("ADODB.CONNECTION")
connstr = "Driver={Microsoft Access Driver (/my_data_xr/#datalinfeng.mdb)}; DBQ=" & server.mappath(db)
改成
db = "./my_data_xr/#datalinfeng.mdb"
Set conn = server.CreateObject("ADODB.CONNECTION")
connstr = "Driver={Microsoft Access Driver (./my_data_xr/#datalinfeng.mdb)}; DBQ=" & server.mappath(db)
试下

追问

不行

追答

db = "/my_data_xr/#datalinfeng.mdb"
Set conn = server.CreateObject("ADODB.CONNECTION")
connstr = "Driver={Microsoft Access Driver (/my_data_xr/#datalinfeng.mdb)}; DBQ=" & server.mappath(db)
改成
db = "my_data_xr/#datalinfeng.mdb"
Set conn = server.CreateObject("ADODB.CONNECTION")
connstr = "Driver={Microsoft Access Driver (my_data_xr/#datalinfeng.mdb)}; DBQ=" & server.mappath(db)
看看 估计路径的问题比较大

追问

兄台还是不行

Answer 2

明显是这里db = "/my_data_xr/#datalinfeng.mdb"
出问题啊，你比较一下这个路径和你打开折文件所在的路径就知道了

追问

就是写的路径与文件的路径一样

追答

你上面的代码所属文件所在的地方是否有my_data_xr/#datalinfeng.mdb这个数据库？

追问

当然有啦！

Answer 3

先确定一下你数据库文件的位置和名称

db = "/my_data_xr/#datalinfeng.mdb"
set conn=Server.CreateObject("ADODB.Connection")
connstr = "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath(db)
conn.open connstr