求助:急～～做了一个购物的会员注册系统有点问题,希望各位大虾帮帮忙啊
做了个会员注册系统,在没登陆之前商品展示那些都好好的,但只要一登陆进去,点击商品图片,list.asp就出现问题了：错误类型：ADODB.Recordset(0x800A0BB9)参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。/ishop/list.asp, 第 102 行这是我的list.asp文件部分代码：
<body>
<table width="972" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<%if IsNumeric(request.QueryString("id"))=False then
response.write("<script>alert(""错误访问!"");location.href=""index.asp"";</script>")
response.end
end if
dim id
id=request.QueryString("id")
if not isinteger(id) then
response.write"<script>alert(""错误访问!"");location.href=""index.asp"";</script>"
end if%>
<% dim shopid,action
shopid=request.QueryString("id")
action=request.QueryString("action")
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_pinglun",conn,1,3
rs.addnew
rs("shopid")=shopid
rs("pingji")=request("pingji")
rs("pinglunname")=HTMLEncode(trim(request("pinglunname")))
rs("pingluntitle")=HTMLEncode(trim(request("pingluntitle")))
rs("pingluncontent")=HTMLEncode(trim(request("pingluncontent")))
rs("ip")=Request.servervariables("REMOTE_ADDR")
rs("pinglundate")=now()
rs("shenhe")=0
rs.update
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_books where shopid="&shopid,conn,1,3
rs("pingji")=cint(rs("pingji"))+1
rs("zongpingji")=cint(rs("zongpingji"))+request("pingji")
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('您的评论已成功提交！');history.go(-1);</script>"
response.End
end if
%>
<!--#include file="webtop2.asp"--></td>
</tr>
<tr>
<td align="center"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="986"><table width="100%" border="1" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td width="215" valign="top" bgcolor="#FFFFFF" >
<!--#include file="history.asp"-->
<!--#include file="gouwucheinfo.asp"-->
<table>
<tr>
<td width="213" bgcolor="#f1f1f1" height="38" align="center"><strong><font color="#000073">奥运网站链接</font></strong></td>
</tr>
<tr>
<td> <!--#include file="service.asp"--></td>
</tr>
</table>
</td>
<td width="770" align="center" valign="top" >
<% set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_books where shopid="&request("id"),conn,1,3
if rs.recordcount=0 then
%>
<font color="#000073">商品已不存在</font>
<%
else
rs("liulancount")=rs("liulancount")+1
rs.update
if request.Cookies("bjx")("username")<>"" then
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from [user] where username='"&request.Cookies("bjx")("username")&"'",conn,1,1
t_userid=rs_s("userid")
rs_s.close
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from shop_his where shopid="&request("id")&" and username='"&request.Cookies("bjx")("username")&"' and lx=1",conn,2,3
if rs_s.recordcount>0 then
rs_s("ltime")=now()
rs_s("userid")=t_userid
rs_s.update
rs_s.close
set rs_s=nothing
else
rs_s.close
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from shop_his where username='"&request.Cookies("bjx")("username")&"' and lx=1 order by ltime",conn,1,3
if rs_s.recordcount>=4 then
rs_s.delete
rs_s.update
end if (106行)
rs_s.addnew（107行)
rs_s("username")=request.Cookies("bjx")("username")
rs_s("shopid")=request("id")
rs_s("shopname")=rs("shopname")
rs_s("userid")=t_userid
rs_s("lx")=1
rs_s("ltime")=now()
rs_s.update
rs_s.close
set rs_s=nothing
end if
end if
%>
做毕业设计有点急,这问题困扰了好久,帮帮忙,谢谢了 ~~~我的QQ:393072660
