[原创]求助,产品发布系统参数不足 - ASP技术论坛

suyongtao

等　级：版主
威　望：33
帖　子：8674
专家分：127
注　册：2004-11-6
结帖率：77.27%

楼主

问题点数：0 回复次数：4

[原创]求助,产品发布系统参数不足

<% set rst=server.CreateObject("adodb.recordset") sql="select top 3 * from chanpin order by id desc" rst.open sql,conn,1 %>

<title>正和通信有限公司产品展示</title> <link href="sina.css" rel="stylesheet" type="text/css"> </head> <style type="text/css"> <body>{ margin-top: 0px; } </style> <script language="JavaScript" type="text/JavaScript">  </script>

</tr> <tr> <td></td> </tr> <tr> </tr> <tr> </tr> <tr> <td colspan="5" align="center"><table><tr><td height="244"> <table width="65%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td><br> <form name="Frm" method="post" action="chanshow.asp" onSubmit="return check_input()"> 产品检索 <input type="text" name="keyword" value=""><select name="xiaolei" class="button1" id="xiaolei"> <option value="" selected>产品类型</option>

<% Set rst1 = Server.CreateObject("ADODB.Recordset") sql="select * from chanpin" set rs=conn.execute(sql) if not rs.bof then Do While Not rs.eof Response.Write("<option value="&rs("xiaolei")&">"&rs("xiaolei")&"</option>")

rs.MoveNext Loop end if rs.close set rs=nothing %> </select> <div align="center"> <input type="submit" name="Submit" value=" 搜索 "></div> </form> </td> </tr> </table> <p></p> <table width="100%" height="169" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="1">

<tr> <td ><table><tr> <td> <% pages=cint(request.querystring("pages")) xiaolei=Request("xiaolei") keyword=Request("keyword") if len(keyword)=0 and xiaolei="" then sql3="select * from chanpin order by id desc" end if if len(keyword)=0 and xiaolei<>"" then sql3="select * from chanpin where xiaolei="&xiaolei&" order by id desc" end if if len(keyword)<>0 and xiaolei<>"" then sql3="select * from chanpin where mingzi like'%"&keyword&"%'and id="&id&" order by id desc" end if if len(keyword)<>0 and xiaolei="" then sql3="select * from chanpin where mingzi like'%"&keyword&"%' order by id desc" end if Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.open sql3,Conn,3,2 if rs1.EOF and rs1.bof then Response.Write "暂时没有该类下相应的产品。" response.End() else rs1.pagesize=16 if pages=0 then pages=1 else rs1.move (pages-1)*rs1.pagesize end if if pages<rs1.pagecount then currentcount=rs1.pagesize else currentcount=rs1.Recordcount-(pages-1)*rs1.pagesize end if %> <table width="500" border="0" cellspacing="0" cellpadding="0"> <tr> <% i=1 for j=1 to currentcount%> <td height="122" align="center"><table> <tr> <td> <%if rs1("tupian")<>"" then%> <a href="chanpin.asp?id=<%=rs1("id")%>" target="_blank"><img src="<%=rs1("tupian")%>" border=1 style='border-color:#000000' alt='点击看详细资料' width=120 height=106></a> <% else %> <a href="chanpin.asp?id=<%=rs1("id")%>" target="_blank"><img src="zanwu.jpg" border=1 style='border-color:#000000' alt='点击看详细资料' width=111 height=108></a> <% end if %> </td> </tr> <tr> <td><div align="center"><b><%=rs1("mingzi")%></b></div></td> </tr> </table></td> <%

if i mod 4= 0 then %> </tr> <tr> <%end if%> <% i=i+1 if not rs1.eof then rs1.movenext next end if %> </tr><tr><td align="right"> <%if pages>1 then response.Write"<a href='chanshow.asp?id="&id&"&pages="&pages-1&"'>前一页</a> " else response.Write"前一页 " end if

response.write" "

if pages<rs1.pagecount then response.Write"<a href='chanshow.asp?id="&id&"&pages="&pages+1&"'>后一页</a>" else response.write"后一页" end if %></td></tr> </table></td> </tr></table></td> </tr> </table></td> </tr> </table>

</td> <td> </td> </tr></table> </td></table> </td> <td colspan="6" valign="bottom"><img name="img/index_r8_c1" src="img/index_r6_c1.gif" width="778" height="88" border="0" alt=""></td> <td><img src="spacer.gif" width="1" height="83" border="0" alt=""></td>

</table>

</body> </html>错误类型： Microsoft OLE DB Provider for ODBC Drivers (0x80040E10) [Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。 /zhenghe/chanshow.asp, 第 127 行

为什么不我知道,,大家看看哪不足,呵呵,