下拉列表分类选择时出现问题：ODBC 驱动程序不支持所需的属性(0x80040E21)。该怎么解决？急待

littlebaby1009 2005-05-23 11:52:42
我采用mdb数据库，我要实现对信息的分类显示，想用下拉列表来实现。在下拉列表中选择“全部内容”时没有问题都能显示出来，可选择任意的其他具体信息时候就出错，出错提示为：

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/mysite2/content/newsweb/config.asp, 第 21 行

下面是/mysite2/content/newsweb/config.asp文件中的部分代码：

<%
Dim rs,n
set conn=server.CreateObject("ADODB.Connection")
conn.open("Driver={Microsoft Access Driver (*.mdb)};PWD=;DBQ="& server.MapPath("../../content.mdb"))

'###########################################################################################

Sub NiceError(text)
conn.close
set conn=nothing
Response.Write "<center><br><br>" & text
Response.End
End Sub

sub openrs(rs, sql,i,j)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,i,j '第 21 行，出错行
end sub


......
%>

请各位大侠帮帮忙吧！或者有现成的代码告诉我也行啊！谢谢
...全文
98 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
孟子E章 2005-05-23
  • 打赏
  • 举报
 回复
rs.Open sql,conn
jaden1024 2005-05-23
  • 打赏
  • 举报
 回复
i或j的值有错
avonqin 2005-05-23
  • 打赏
  • 举报
 回复
sql有问题吧，把你的sql贴出来看看？
avonqin 2005-05-23
  • 打赏
  • 举报
 回复
看得头晕
littlebaby1009 2005-05-23
  • 打赏
  • 举报
 回复
大侠帮帮忙啊 :-(
littlebaby1009 2005-05-23
  • 打赏
  • 举报
 回复
代码我贴出来了，通过数据库的调用，在下拉列表中除了“全部内容”外，还有“新闻稿件”、“工作简讯”、“领导论点”等。 页面上的内容是数据库某表中的全部内容，如果我只想显示“新闻稿件”的内容，则点击下拉列表选中“新闻稿件”，则弹出如标题所述的错误。
littlebaby1009 2005-05-23
  • 打赏
  • 举报
 回复
下拉列表是在这个edit_news.asp文件中执行操作的，代码如下：

<!--#include file="../newsweb/config.asp" -->
<%
pmcount=25
Assort_id=Request.QueryString("Assort_id")
if Assort_id="" then
strNews=""
else
strNews=" and Assort_id=" & Assort_id
end if
%>
<HTML>
<HEAD>
<TITLE>欢迎您</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../inc/default.css">
<script>
<!--
var check=0
function checkall(form) { //v2.0
if(check==0){
for(var i=0;i<form.elements.length;i++)
{
var e=form.elements[i];
e.checked=true;
}
check=1;
chk.alt="全否";
}else{
for(var i=0;i<form.elements.length;i++)
{
var e=form.elements[i];
e.checked=false;
}
check=0;
chk.alt="全选";
}
}
var o=0;
function numcheck(form) { //v2.0
for(var i=0;i<form.elements.length;i++)
{
var e=form.elements[i];
if(e.checked)
o=o+1;
}
if (o==1){

B1.disabled=false;
B2.disabled=false;
}
else if(o==0){
B2.disabled=true;
B1.disabled=true;
}else{

B1.disabled=true;
B2.disabled=false;
}
o=0;
}

function formsub(i){
if (i==1){
document.new_form.action = "saveedit_news.asp";
new_form.submit();
}
if (i==2){
if (confirm('你真的要删除所选内容吗？\n删除后将不能恢复。\n\n是否确定？')){
document.new_form.action = "delnews.asp";
new_form.submit();
}
}
}

function Assort_Select(assObj){ //v3.0 select调用这个函数
var a=assObj.options[assObj.selectedIndex].value;
if (a!=""){
var url="?Assort_id="+a;
window.navigate(url);
}
}//-->
</script>
<script language="JavaScript">
<!--

function mmLoadMenus() {
//这里是动态菜单，为节省空间代码我省略了
} // mmLoadMenus()
//-->

function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>

<script language="JavaScript" src="mm_menu.js"></script>
</HEAD>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<script language="JavaScript1.2">mmLoadMenus();</script>
<!-- ImageReady Slices (layout.psd) -->
<TABLE WIDTH=955 height="528" BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0>
<TR>
<TD height="39" valign="top" class="border1"><table width="100%" border="1" align="left" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#29A6DE">
<tr>
<td width="24%" height="39" bordercolor="#000000" bgcolor="#29A6DE"><div align="center"><strong><a href="edit_password.asp">修改管理密码</a></strong></div></td>
<td width="24%" bordercolor="#000000"><div align="center"><strong><a href="operation.asp" name="link13" id="link14" onMouseOver="MM_showMenu(window.mm_menu_0323143741_0,-10,28,null,'link13')" onMouseOut="MM_startTimeout();">内容类别的相关操作</a></strong></div></td>
<td width="29%" bordercolor="#000000"><div align="center"><strong><a href="news.asp" name="link15" id="link11" onMouseOver="MM_showMenu(window.mm_menu_0318132115_0,-10,28,null,'link15')" onMouseOut="MM_startTimeout();">内容模块的相关操作</a></strong> </div></td>
</tr>
</table></TD>
</TR>
<TR>
<td height="22"><table border="0" width="100%" cellpadding="1" cellspacing="2" align="center">
<tr>
<td height="18" align="left" valign="top"> <hr align="center" size="1" noshade>
<span class="style3">编辑/删除内容</span><strong>信息</strong>　
<select name="select" onChange="Assort_Select(this)"> //这里调用函数出错
<%
Set rs = conn.Execute ("SELECT * FROM N_assort")
If rs.EOF Or rs.BOF Then
Response.Write "<option>还没有任何内容类别</option>"
else
Response.Write "<option>全部内容</option>"
do while not rs.eof
id=rs("assort_id")
Response.Write "<option value=""" & id & """"
if assort_id=id then
response.write " selected"
end if
response.write ">" & rs("assort_name") & "</option>"
rs.MoveNext
Loop
end if
rs.close
set rs=nothing
%>
</select>
　
<input type="checkbox" name="chk" onClick="checkall(new_form);numcheck(new_form)">
<span>全选/全否</span> </td>
</tr>
</table></td>
</TR>
<TR>
<td height="12" class="border1"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="new_form" method="post">
<tr>
<td class="border1">
<%
pageno=request("pageno")
Sql = "SELECT Artcle_id,Artcle_setup,Artcle_link,Artcle_title,Artcle_date FROM N_artcle where instr(1,Artcle_setup,'1',1)<=0" & strNews & " ORDER BY Artcle_id DESC"
openrs rs,sql,1,1
rs.pagesize=pmcount
mpage=cint(rs.pagecount)
totalcount=rs.RecordCount
if pageno="" or cint(pageno)>mpage then
nowpage=1
else nowpage=cint(pageno)
end if
If rs.Eof or rs.Bof Then
response.write "<br><center>目前暂时还没有此类内容！"
else
rs.absolutepage=nowpage
loopno=pmcount
do while (not rs.eof) and (loopno>0)
Response.Write "<input type=""checkbox"" onclick=""numcheck(this.form)"" name=""Artcle_id"" value=""" & rs("Artcle_id") & """>·"
if instr(1,rs("Artcle_setup"),"3",1)>0 then response.write "<font color=""#FF0000"">[图文]</font>"
response.write "<a href=""../newshtml/" & rs("Artcle_link") & """ target=""_blank"">" & ChkString(rs("Artcle_title"),"unhtml") & "</a> [" & rs("Artcle_date") & "]<br>"

rs.MoveNext
loopno=loopno-1
Loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%></td>
</tr>
</form>
</table></td>
</TR>
<TR>
<td width="733" height="286" valign="top" class="border1"><table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td width="32%" height="93" align="left" valign="middle" class="border1"><input type="button" name="B1" value="编辑" onClick="formsub(1)" disabled style="height:20px;">
<input type="button" name="B2" value="删除" onClick="formsub(2)" disabled style="height:20px;">
页次:[<%=nowpage%>/<%=mpage%>]
<%filename=Request.Servervariables("script_name")%>
<% if cint(pageno)>1 then %>
<a href="?pageno=<%=nowpage-1%>"><font color="#FF0000">上一页</font></a>
<% end if %>
<%if (mpage>1 and cint(pageno)<cint(mpage)) then%>
<a href="?pageno=<%=nowpage+1%>"><font color="#FF0000">下一页</font></a>
<%end if%> </td>
<td width="68%" valign="middle" class="border1"><table width="96%" border="0" align="left">
<tr>
<td width="38%" height="47" align="left" valign="middle"><p> </p>
<form action='edit_news.asp' method=POST name='form' >
<p class="border1">跳转:
<select name="pageno">
<% for pno=1 to mpage%>
<option value="<%=pno%>" <%if pno=nowpage then%>selected<%end if%>><%=pno%></option>
<% next %>
</select>页
<input type='submit' value='GO'>
</p>
</form> <p> </p></td>
</tr>
</table></td>
</tr>
</table></td>
</TR>
</TABLE>
<!-- End ImageReady Slices -->
</BODY>
</HTML>
<%
%>
IIS错误 ‘80040e21‘ ODBC 驱动程序不支持所需的属性
原来一直用的正常程序，突然报 Microsoft OLE DB Provider for ODBC Drivers错误 '80040e21' ODBC 驱动程序不支持所需的属性。 查询记录少没问题，记录一多就报这个错误 清理了windows\Temp文件夹、inetpub\temp文件夹，还是不行 在网上一通乱搜 MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)-->sql语句出错(数据类型不匹配或表名(字段名)错误或表处于编辑状态，或表不.
mysql odbc 驱动程序不支持所需的属性_ODBC 驱动程序不支持所需的属性。
错误类型：MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)ODBC驱动程序不支持所需的属性。/inc/head.asp,第113行浏览器类型：Mozilla/4.0(compatible;MSIE6.0;WindowsNT5.1;SV1;G...错误类型：Microsoft OLE DB Provider for ODBC Drivers (0x80...
php access odbc 驱动程序不支持所需的属性,ODBC 驱动程序不支持所需的属性
ODBC 驱动程序不支持所需的属性能正常加入到数据库，但加完就会出现错误类型：Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)ODBC 驱动程序不支持所需的属性。/atf/admin/m_s_dis.asp, 第 9 行' ********* 增加 **************dis = request.querystring("dis...
asp mysql odbc_ASP读取MYSQL数据库发生错误 ODBC 驱动程序不支持所需的属性
本人用ASP连MYSQL问题难以解决请高手帮忙问题：错误类型：MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)ODBC驱动程序不支持所需的属性。/mysite/1234.asp,第14行代码如下：本人用ASP连MYSQL 问题难以解决 请高手帮忙问题：错误类型：Microsoft OLE DB Provider for ODBC Drivers (0...
数据流任务: 出现 OLE DB 错误。错误代码: 0x80040E21。
导数据到SQL 2005中  或者  Oracle等 数据库吧， 报 错误 0xc0202009: 数据流任务: 出现 OLE DB 错误。错误代码: 0x80040E21。    刚开始遇到这个问题搞了快一天，总算还是弄进去了！ 办法有几个：    1。就是可以吧Access文件先倒入到Excel里面 或者 平面文件，然后再导入到SQL 2005中去，这样是不会有问题
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章