在IIS中浏览带ACCESS数据库的ASP网页，执行把数据库上的表输出到浏览器上，为什么没法执行
其中的ACCESS数据库是在本机上建立的，而要执行的数据库也已经通过ODBC加入系统数据源（用户DSN和系统DSN两个选项卡都加），其中的用户代码（代码中的client是...
其中的ACCESS数据库是在本机上建立的，而要执行的数据库也已经通过ODBC加入系统数据源（用户DSN和系统DSN两个选项卡都加），其中的用户代码（代码中的client是我在电脑上建立的数据库，rentendclient是client数据库上的表）如下：
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ch8-6.asp</title>client数据库的rentendclient
</head>
<%
set dbconn=Server.Createobject("ADODB.Connection")
dbconn.open"client"
sql="select * from rentendclient"
set dbrs=dbconn.Execute(sql)
response.write"<table border=1>"
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).name&</td>"
next
response.write"</tr>"
do while not dbrs.eof
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).value&"</td>"
next
response.write"</tr>"
dbrs.movenext
loop
response.write"</table>“
dbconn.close
dbrs.close
%>
其中IIS环境按http://zhidao.baidu.com/question/95306218.html?si=1这个设置好了。上面发的代码有点小错误，改了如下：<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ch8-6.asp</title>client数据库的rentendclient
</head>
<%set dbconn=Server.Createobject("ADODB.Connection")
dbconn.open"client"
sql="select * from rentendclient"
set dbrs=dbconn.Execute(sql)
response.write"<table border=1>"
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).name&"</td>"
next
response.write"</tr>"
do while not dbrs.eof
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).value&"</td>"
next
response.write"</tr>"
dbrs.movenext
loop
response.write"</table>"
dbconn.close
dbrs.close
%>
错误提示：Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/Ch8-6.asp，行 8 展开
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ch8-6.asp</title>client数据库的rentendclient
</head>
<%
set dbconn=Server.Createobject("ADODB.Connection")
dbconn.open"client"
sql="select * from rentendclient"
set dbrs=dbconn.Execute(sql)
response.write"<table border=1>"
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).name&</td>"
next
response.write"</tr>"
do while not dbrs.eof
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).value&"</td>"
next
response.write"</tr>"
dbrs.movenext
loop
response.write"</table>“
dbconn.close
dbrs.close
%>
其中IIS环境按http://zhidao.baidu.com/question/95306218.html?si=1这个设置好了。上面发的代码有点小错误，改了如下：<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ch8-6.asp</title>client数据库的rentendclient
</head>
<%set dbconn=Server.Createobject("ADODB.Connection")
dbconn.open"client"
sql="select * from rentendclient"
set dbrs=dbconn.Execute(sql)
response.write"<table border=1>"
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).name&"</td>"
next
response.write"</tr>"
do while not dbrs.eof
response.write"<tr>"
for i=0 to dbrs.fields.count-1
response.write"<td>"&dbrs.fields(i).value&"</td>"
next
response.write"</tr>"
dbrs.movenext
loop
response.write"</table>"
dbconn.close
dbrs.close
%>
错误提示：Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/Ch8-6.asp，行 8 展开
2个回答
展开全部
都是DW害人，什么时代了，还用那种方式连接数据库？
你在查询中不就是要读fields字段的值吗，为何要用了三次循环？
现在已知：你的数据库名叫client，client什么？数据库得有扩展名，既然是ACCESS的，那就是client.mdb了，按我下面的方法建立连接：
假设你的网站目录下有个data文件夹，那就把client.mdb移动到里面，如果没有，新建一个。
<%
Dim db,Conn,Connstr
db="data/client.mdb" '数据库文件的位置
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open Connstr
'数据库连上了，进行查询吧：
Response.write"<table border=1>"
Response.write"<tr>"
Set dbrs=Conn.Execute("select * from rentendclient")
If dbrs.eof and dbrs.bof then
Response.write"暂无任何数据"
Else
dim fields
do while not dbrs.eof
fields = dbrs("fields")
Response.write"<td>"&fields&"</td>"
dbrs.movenext
loop
End If
dbrs.close
Set dbrs = Nothing
Response.write"</tr>"
Response.write"</table>"
'完了记得断开数据库连接：
Conn.Close
Set Conn = Nothing
%>
你在查询中不就是要读fields字段的值吗，为何要用了三次循环？
现在已知：你的数据库名叫client，client什么？数据库得有扩展名，既然是ACCESS的，那就是client.mdb了，按我下面的方法建立连接：
假设你的网站目录下有个data文件夹，那就把client.mdb移动到里面，如果没有，新建一个。
<%
Dim db,Conn,Connstr
db="data/client.mdb" '数据库文件的位置
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open Connstr
'数据库连上了，进行查询吧：
Response.write"<table border=1>"
Response.write"<tr>"
Set dbrs=Conn.Execute("select * from rentendclient")
If dbrs.eof and dbrs.bof then
Response.write"暂无任何数据"
Else
dim fields
do while not dbrs.eof
fields = dbrs("fields")
Response.write"<td>"&fields&"</td>"
dbrs.movenext
loop
End If
dbrs.close
Set dbrs = Nothing
Response.write"</tr>"
Response.write"</table>"
'完了记得断开数据库连接：
Conn.Close
Set Conn = Nothing
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库，由YOOtheme团队开发。它提供了丰富的界面元素，包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等，适用于各种类型的网站和应用程序。UIkit还支持响应式设计，可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
