level 1
神月崎
楼主
ADODB.Connection 错误 '800a0e7a'
未找到提供程序。该程序可能未正确安装。
/bb/Comm/conn.asp,行 7
求助各位大神这是怎么回事,怎么改呢 ?
在线等啊
<!--#include file="setup.asp" -->
<%
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
'如果服务器是老的ACCESS,请用下面的连接
'connstr= "driver={Microsoft Access Driver(*.mdb)};dbq=" & Server.MapPath(DB)
conn.Open connstr
%>
<%
set res=server.createobject("adodb.recordset")
sql="select * from company"
res.open sql,conn,1,1
if not res.eof then
sitename=res("sitename")
siteurl=res("siteurl")
adm_mail=res("adm_mail")
adm_tel=res("adm_tel")
adm_address=res("adm_address")
adm_qq=res("adm_qq")
prompt_row=res("prompt_row")
prompt_num=res("prompt_num")
newprod_row=res("newprod_row")
newprod_num=res("newprod_num")
tree_col=res("Class_num")
type_col=res("Search_num")
reg=res("reg")
end if
res.close
set res=nothing
%>
2015年05月15日 13点05分
1
未找到提供程序。该程序可能未正确安装。
/bb/Comm/conn.asp,行 7
求助各位大神这是怎么回事,怎么改呢 ?
在线等啊
<!--#include file="setup.asp" -->
<%
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
'如果服务器是老的ACCESS,请用下面的连接
'connstr= "driver={Microsoft Access Driver(*.mdb)};dbq=" & Server.MapPath(DB)
conn.Open connstr
%>
<%
set res=server.createobject("adodb.recordset")
sql="select * from company"
res.open sql,conn,1,1
if not res.eof then
sitename=res("sitename")
siteurl=res("siteurl")
adm_mail=res("adm_mail")
adm_tel=res("adm_tel")
adm_address=res("adm_address")
adm_qq=res("adm_qq")
prompt_row=res("prompt_row")
prompt_num=res("prompt_num")
newprod_row=res("newprod_row")
newprod_num=res("newprod_num")
tree_col=res("Class_num")
type_col=res("Search_num")
reg=res("reg")
end if
res.close
set res=nothing
%>