asp数据库连接失败
Ⅰ ASP连接数据库错误
<%
Dim Conn,ConnStr
'On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("数据库路径/数据库名.mdb")
Conn.Open ConnStr
%>
用这个~`
另外把路径改成相对的~`比如~`你的数据库和这段代码所在的页面是同一个目录~`那么就是:
Server.MapPath("数据库名.mdb")
如果数据库在database文件夹里~`就改成:
Server.MapPath("database/数据库名.mdb")
如果在代码文件的上级目录~`就改成:
Server.MapPath("../数据库名.mdb")
Ⅱ asp链接数据库失败
看你的陈述你用的是sql Server，请将代码改成如下：
<%
'打开数据库连接
dim conn,connstr,db,rs
'db="db/db.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
connstr="driver={SQL Server};server=你的IP地址;uid=sa;pwd=111111;database=sqlserver"
conn.Open connstr
%>
也就是将local改为你电脑所用的或者是服务器的IP地址，看看能否解决问题。祝福你！
Ⅲ ASP连接数据库错误
2000下打开winnt\temp 将其安全选项内增加 everyone 用户 权限设置为完全控制 然后重启计算机
如果不重启。会出另外一个未指定错误。
2003下的目录是windows\temp
重新检查一下数据库或网站所在目录权限，确认everyone用户能够有获取data信息的权限。 怕麻烦就直接设为完全控制权限。然后从新启动。
Ⅳ asp数据库连接出错，请高手解决。谢谢
现在都用这种啦
Dim Conn,ConnStr
Const Db="data/test.mdb"
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
Conn.Close:Set Conn=Nothing
Response.Write "数据库连接出错"
Response.End()
End If
Function CloseDatabase
Conn.Close:Set Conn=Nothing
End Function
Ⅳ 关于ASP数据库连接错误的问题
netbox是可以实现ASP的测试的，你可以考虑另外一种连接方法啊，ACCESS数据库的连接方法有很多啊，你这种连接方式太麻烦了，如果是SQL数据库用你这样的连接一般就不会出错，ACCESS数据库建议你用以下的方式连接，保证你正常连接
<%
Set conn=server.CreateObject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("Data_ACT/#ACTCMS20A17.mdb")
conn.open connstr
%>
<%
'============================
'过滤SQL非法字符
'Num 0一般 1数字
'============================
Function CheckStr(Strer,Num)
Dim Shield,w
If Strer = "" Or IsNull(Strer) Then Exit Function
Select Case Num
Case 0
Strer = Trim(Strer)
Strer = Replace(Strer,CHR(39),"'") '单引号
Strer = Replace(Strer,CHR(34),""") '双引号
Strer = Replace(Strer,CHR(32)," ") '空格
Strer = Replace(Strer,CHR(60),"<") '<
Strer = Replace(Strer,CHR(62),">") '>
Strer = Replace(Strer,vbCrLf,"<br>")
Case 1
If IsNumeric(Strer) = 0 Then
Response.Write "操作错误"
Response.End
End If
Strer = Int(Strer)
Case 2'文本域提交
Strer = Replace(Strer,CHR(39),"'") '单引号
Strer = Replace(Strer,CHR(34),""") '双引号
Strer = Replace(Strer,CHR(32)," ") '空格
Strer = Replace(Strer,CHR(60),"<") '<
Strer = Replace(Strer,CHR(62),">") '>
Strer = Replace(Strer,vbCrLf,"<br>")
Case 3'文本域显示
Strer = Replace(Strer,"'",CHR(39)) '单引号
Strer = Replace(Strer,""",CHR(34)) '双引号
Strer = Replace(Strer," ",CHR(32)) '空格
Strer = Replace(Strer,"<",CHR(60)) '<
Strer = Replace(Strer,">",CHR(62)) '>
Strer = Replace(Strer,"<br>",vbCrLf)
Case 4'替换字符(<script><//script><iframe></iframe>)
Strer = Replace(Strer,"script"," ")
Strer = Replace(Strer,"SCRIPT"," ")
Strer = Replace(Strer,"iframe", " ")
Strer = Replace(Strer,"IFRAME", " ")
End Select
' Shield = Split(KM_Kill,"|")
' For w=0 To Ubound(Shield)
'If Shield(w) <> "" Then
'Strer=Replace(Strer,Split(Shield(w),"=")(0),Split(Shield(w),"=")(1))
'End If
'Next
CheckStr = Strer
End Function
%>
Ⅵ 为什么我在用asp连接数据库总是失败的呢
<%
dim conn,connstr
connstr="Driver={SQL Server};server=(local);uid=sa;pwd=123456;database=master;"
set conn=server.CreateObject("adodb.connection")
conn.open connstr
%>
换成local试试 按理来说没有错
Ⅶ ASP和数据库连接不上
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\youdb.mdb"
set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
sql="你的sql语句"
set rs=conn.execute(sql)
或者
set rs=Server.CreateObject("ADODB.recordset")
rs.open sql,conn,1,1
Ⅷ ASP数据库连接文件连接提示错误，如何解决
你把数据库放根目录C:\Inetpub\wwwroot下db="data.mdb" 如果能用就说明是你的这代码的路径错了,换换它的连接路径多试就好了.
Ⅸ ASP数据库连接失败问题
<%
dim connstr
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("1/cheshi1.mdb")
set conn = server.createobject("ADODB.Connection")
conn.open connstr
%>
看得出大家都明白,可是我觉得应该是这样的.
Ⅹ ASP 数据库连接失败！急帮
是为是你的网站必须到根目录下.而你传到子目录下了?