80040e21'问题
在网站上出现了这样的问题:
Microsoft OLE DB Provider for ODBC Drivers '80040e21'
ODBC 驱动程序不支持所需的属性。
\contact.asp, line 20
代码如下:
<!--#include file="conn.asp" -->
<%dim id,nTime,nHtmlText
strCurrMenu="629"
ThisPage=request.ServerVariables("URL")
strQuery=""
if GetVariable("class")<>"" then
SourCode=conn.execute("Select c_code From web_women_class Where mn_id=" & strCurrMenu & " and id="&GetVariable("class"))(0)
strQuery=strQuery & " And c_code Like '" & SourCode &"%'"
strTitle=GetVariable("classname")
end if
if GetVariable("key")<>"" then
strQuery=strQuery & " And (nTitle Like '%" & GetVariable("key") & "%' or nHtmlText like '%" & GetVariable("key") & "%' or nKey like '%" & GetVariable("key") & "%') "
strTitle="搜索:" & GetVariable("key")
end if
strSQL="Select * From v_Web_women Where nAudit<>0 " & strQuery & " And mn_id=" & strCurrMenu & " Order by ID Desc"
rs.open strSQL,conn,1,1 :这行出现错误
%>
<!--#include file="conn.asp" -->文件
<%
response.buffer = true
dim startTime, endtime
startTime = timer()
dim conn
dim connstr
dim rs, rSub
dim sql
connstr = "driver={microsoft Access driver (*.mdb)}; dbq=" & server.mappath("data/#data.mdb")
set conn = server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>window.status=""创建 ADO 对象失败"";</script>"
response.end
else
conn.open connstr
if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>window.status=""数据库连接失败"";</script>"
'''请检查数据库是否存在,以及 ODBC 是否存在
response.end
end if
end if
set rs = Server.CreateObject("ADODB.Recordset") '主程序用
set rSub = Server.CreateObject("ADODB.Recordset") '子程序用
%>
遇到这样的错误怎么解决 麻烦大家帮我想想办法 先谢谢了