Question

asp文件如何连接数据库

无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft JET Database Engine (0x80004005)
'c:\inetpub\wwwroot\data\busdata.mdb'不是一个有效的路径。 确定路径名称拼写是否正确，以及是否连接到文件存放的服务器。
/wscc/inc/conn.asp, 第 12 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

网页：
GET /wscc/admin/All_delete.asp

时间：
2010年9月10日星期五, 下午 03:27:43

详细信息：
Microsoft 支持
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%session.CodePage=936%>
<%
'---------------------------数据库连接函数---------------------------
dim conn
dim connstr
dim db
db="/data/busdata.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
Set conn1 = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
conn1.Open connstr
If Err Then
err.Clear
response.write("数据库连接出错，请检查连接字串。")
response.End()
End If
%>

Answer 1

<%
dim conn,db
dim connstr
db="/data/xvbin.mdb" '
数据库链接路径
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
Response.End
End If
%>

Answer 2

把代码贴出来看看：

连接asp数据库的代码
DataUrl=server.MapPath(DataUrl)
driverUrl="provider=microsoft.jet.oledb.4.0;data source="& DataUrl
Set Conn=Server.CreateObject("adodb.Connection")
Conn.open driverUrl

------------------------
db="/data/busdata.mdb"改成 db="data/busdata.mdb"试过没？

Answer 3

<%
response.buffer = True '启用缓冲处理

dim conn
dim connstr
dim db
db="相对位置" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

%>

Answer 4

把代码弄出来
我帮你写一个 连接数据库的代码