UC知道ASP与ACCESS数据库连接问题
来源：百度知道 编辑：UC知道 时间：2024/06/21 14:42:09
ASP与ACCESS数据库连接时好像出了问题，打开主页时显示：
“错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/Content/ASP and ACCESS/shop/include/conn.asp, 第 9 行
”
我的CONN.ASP内容如下：
<%
'---------- 防止SQL注入 -----------
dim SQL_Injdata
SQL_Injdata = "'|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_Data))>0 Then
Response.Redirect("/index.asp")
end if
next
Next
End If
'---------- 连接数据库 ----------
Dim conn,connstr
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;P
“错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/Content/ASP and ACCESS/shop/include/conn.asp, 第 9 行
”
我的CONN.ASP内容如下：
<%
'---------- 防止SQL注入 -----------
dim SQL_Injdata
SQL_Injdata = "'|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString<>"" Then
For Each SQL_Get In Request.QueryString
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_Data))>0 Then
Response.Redirect("/index.asp")
end if
next
Next
End If
'---------- 连接数据库 ----------
Dim conn,connstr
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;P
Access OLE DB连接方法：
set adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"& _
"Data Source=" & Server.MapPath("数据库所在路径")
Accsee OLE DB 加密后的连接方法
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;User Id=admin;jet OleDB:Database Password=1128;Data Source="&Server.MapPath("数据库所在路径")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Password=;Data Source="&Server.MapPath("/DataBase/db_Ebusiness.mdb")&";"
你的路径不对吧
connstr="Provider=microsoft.jet.oledb.4.0;data source= "& Server.MapPath("news.mdb")&";user id=admin;password=123;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
要打开连接，祝你好运
数据库路径写错了
注意
../
/
的区别
../是返回上层目录。
看看你的目录是不是不对