Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

fengboy918 2011-06-28 10:07:48

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/admin_addlaw.asp，行618
请各位大吓给我分析一下，拜托，以下是我的原程序：
</table>
<p>说明：<br>
1、请选择法律栏目进行管理。<br>
2、因为双向连接以位置定位，所以目前只能作删除操作，不能作修改。<br>
3、选择"快速管理"，将只选取各库的前５０００条记录，不会出现超时的现象,操作界面不变。
<%
end sub
sub list
dim strGuide,top

strGuide="<table width='100%'><tr><td align='left'>您现在的位置：<a href='admin_addlaw.asp'>法律文书管理</a> >> "
if request("search")<>"" then
strfilename="admin_addlaw.asp?action=List&tablename="&tablename&"&search="&request("search")&"&select="&request("select")
else
strfilename="admin_addlaw.asp?action=List&tablename="&tablename
end if

top=request("top")

if top=1 then
sql="select top 5000 id,bt from "
else
sql="select id,bt from "
end if

if request("search")<>"" then
if request("select")=1 then
sql=sql&tablename&" where contains(bt,'"+trim(request("search"))+"') order by id desc"
elseif request("select")=2 then
sql=sql&tablename&" where contains(fl,'"+trim(request("search"))+"') order by id desc"
else
sql=sql&tablename&" where contains(nr,'"+trim(request("search"))+"') order by id desc"
end if
else
sql=sql&tablename&" order by id desc"
end if

strGuide=strGuide & "</td><td align='right'>"

if FoundErr=True then exit sub

Set rs=Server.CreateObject("Adodb.RecordSet")
'response.write sql
'response.end
rs.Open sql,conn,1,1

if rs.eof and rs.bof then
strGuide=strGuide & "共找到 <font color=red>0</font> 条内容</td></tr></table>"
response.write strGuide
search
此处即618else
totalPut=rs.recordcount
strGuide=strGuide & "共找到 <font color=red>" & totalPut & "</font> 条内容</td></tr></table>"
response.write strGuide
search
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if

...全文