是ASP错误，还是数据库连接错误？错误 '80040e21'

Question

<%
 sql="select prono,title,spec,picflag from product where state='1'"
 if classcode > 0 then 
  sql = sql &amp; " and classcode='"&amp; classcode &amp;"'"
 elseif parentcode > 0 then
  sql = sql &amp; " and basclass='"&amp; parentcode &amp;"'"
 end if
 sql = sql &amp; " order by sortnum desc"
 rs.Open sql,cn,1,1,1   这就是报错的地方！
 pagesize = 8
 rs.PageSize=pagesize pagecount = rs.PageCount
 reccount = rs.RecordCount pageno = toInt(pageno, 1, pagecount) if pageno > 1 then rs.AbsolutePage = pageno
 i=1
 do while not rs.EOF and  i<=pagesize
  if i mod 4 = 1 then Response.Write "<tr>"
 %> 

Answer 1

rs.Open sql,cn,1,1,1  这就是报错的地方！ 
这样子的打开方式??

Answer 2

 
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21' 
ODBC 驱动程序不支持所需的属性。 /product.asp，行 178 
 

Answer 3

rs.Open sql,cn,1,1,1我怎么记得这里应该是两个参数？Rs.Open strSql,conn,1,1

Answer 4

改为两个了也不行 
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21' 
ODBC 驱动程序不支持所需的属性。 /product.asp，行 178 
 

Answer 5

找资料说数据库连接问题，我对ASP和sql不熟悉，请大家多帮忙看看<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="dsn_root.asp" -->
<!-- #include file="func.inc.asp" --><%
dim menu
dim cn, rs, sql, imenu = "product"pageno      = toInt(Request.QueryString("pageno"), 1, "")
parentcode  = toInt(Request.QueryString("parentcode"), 0, "")
classcode   = toInt(Request.QueryString("classcode"), 0, "")
set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr
if classcode > 0 then
sql = "select classname, parentcode from product_class where parentcode<>'0' and classcode='" & classcode & "'"
rs.Open sql,cn,0,1,1
if not rs.EOF then
classname  = rs("classname")
parentcode = rs("parentcode")
else
Response.Redirect "product.asp"
end if
rs.Close sql = "select classname from product_class where parentcode='0' and classcode='" & parentcode & "'"
rs.Open sql,cn,0,1,1
if not rs.EOF then
parentname  = rs("classname")
else
Response.Redirect "product.asp"
end if
rs.Close
elseif parentcode > 0 then
sql = "select classname from product_class where parentcode='0' and classcode='" & parentcode & "'"
rs.Open sql,cn,0,1,1
if not rs.EOF then
parentname  = rs("classname")
else
Response.Redirect "product.asp"
end if
rs.Close
else
sql = "select top 1 classcode, classname from product_class where parentcode='0' order by sortnum asc"
rs.Open sql,cn,0,1,1
if not rs.EOF then
parentcode  = rs("classcode")
parentname  = rs("classname")
else
Response.Redirect "product.asp"
end if
rs.Close
end ifparentcode = Cstr(parentcode)
classcode  = Cstr(classcode)
%>
    <link href="css/jqzoom.css" rel="stylesheet" type="text/css" media="screen" />
    <script type="text/javascript" src="js/jquery.js"></script>
    <script type="text/javascript" src="js/jquery.jqzoom.js"></script><!-- #include file="begin.asp" --><table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="1002" height="140">
      <param name="movie" value="images/banner.swf">
      <param name="quality" value="high">
      <embed src="images/banner.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="1002" height="140"></embed>
    </object></td>
  </tr>
</table><!-- #include file="menu.asp" --><table width="1002" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="292C29">
  <tr> 
    <td width="3" background="images/about/line_point1.gif"></td>
    <td width="156" align="right" valign="top" bgcolor="292C29">
      
<!-- #include file="product.inc.asp" -->    </td>
    <td width="3" align="right" valign="top" bgcolor="292C29">
  <table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td bgcolor="292C29"></td>
        </tr>
      </table>
      <table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td bgcolor="292C29"></td>
        </tr>
      </table>
      <table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td></td>
        </tr>
      </table> </td>
    <td width="2" background="images/about/line_point2.gif"></td>
    <td width="6">&nbsp;</td>
    <td width="2" background="images/about/line_point3.gif"></td>
    <td align="center" valign="top" bgcolor="292C29">
  <table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td bgcolor="292C29"></td>
        </tr>
      </table>
      <table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td bgcolor="292C29"></td>
        </tr>
      </table>
      <table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td></td>
        </tr>
      </table>
      <table width="99%" height="22" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td bgcolor="292C29">
<span class="font1"></span><a href="default.asp" class="a02"></a>&nbsp;&nbsp;
<a href="product.asp" class="a02">现在的位置：</a><a href="product.asp?parentcode=<%=parentcode%>" class="a02"><%=parentname%></a>
<%
if classcode > 0 then
%>
&nbsp;<span class="font1">|</span>&nbsp;<a href="product.asp?classcode=<%=classcode%>" class="a02"><%=classname%></a>
<%
end if
%>
  </td>
        </tr>
      </table>
      <table width="99%" height="32" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td align="center" valign="bottom" class="font4">产品中心</td>
        </tr>
      </table> 
      <table width="99%" height="5" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td></td>
        </tr>
      </table>
      <table width="96%" height="1" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td bgcolor="292C29"></td>
        </tr>
      </table>
      <table width="96%" height="1" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td bgcolor="292C29"></td>
        </tr>
      </table> 
      <table width="96%" height="30" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0">
<%
sql="select prono,title,spec,picflag from product where state='1'"
if classcode > 0 then 
sql = sql & " and classcode='"& classcode &"'"
elseif parentcode > 0 then
sql = sql & " and basclass='"& parentcode &"'"
end if
sql = sql & " order by sortnum desc"
rs.Open sql,cn,1,1
pagesize = 8
rs.PageSize=pagesize pagecount = rs.PageCount
reccount = rs.RecordCount pageno = toInt(pageno, 1, pagecount) if pageno > 1 then rs.AbsolutePage = pageno
i=1
do while not rs.EOF and  i<=pagesize
if i mod 4 = 1 then Response.Write "<tr>"
%>
          <td align="center">
    <table  height="5" border="0" cellpadding="0" cellspacing="0"  bgcolor="#292C29">

<%if rs("picflag") = "1" then%>
<a href="product_display.asp?keyno=<%=rs("prono")%>">
<div>
<div class="jqzoom">
<img src="<%=rs("spec")%>" jqimg="<%=rs("spec")%>" border="0" width="130" height="168"></img>
</div>
</div>
  </a>
<%else%>
<%end if%>
</table>
    <table width="78"  border="0" cellpadding="0" cellspacing="0" >
   <tr>
<td align="center">
<a href="product_display.asp?keyno=<%=rs("prono")%>" class="a02"><%=rs("title")%></a>
</td>
</tr>
<tr><td>&nbsp;</td></tr>
   </table>
  </td>
<%
i = i + 1
if i mod 4 = 1 then Response.Write "</tr>"
rs.MoveNext
loop
rs.Close
%>
      </table>
      <table width="96%" height="10" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td></td>
        </tr>
      </table>
      <table width="96%" height="7" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td background="images/news/line_point1.gif"></td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>   <table width="85%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <%=getPageStr(menu & ".asp", parentcode, classcode, pageno, pagecount)%>
        </tr>
      </table>      <table width="85%" height="45" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table></td>
    <td width="2" background="images/about/line_point4.gif"></td>
    <td width="119">&nbsp;</td>
  </tr>
</table>
 <script type="text/javascript">
        $(document).ready(function(){
    $(".jqzoom").jqueryzoom({
        xzoom:0,  // 放大图的宽
        yzoom:0,  // 放大图的高
        offset:0,   // 放大图距离原图的位置
        position:'right'  // 放大图在原图的右边(默认为right)
    });
    });
    </script>
<!-- #include file="end.asp" -->

Answer 6

这个仿佛是ODBC驱动的问题