ASP网站购物车问题
这是一个订餐网站，实现类似购物车的功能，我是把商品放在数据库中，但是有一个问题，每刷新一次就往数据库中写一次，也就是加一次商品，有什么方法阻止写入数据库，想了很多办法，也不行，有什么办法，还是不写入数据库

代码如下：

<%set rs=server.CreateObject("adodb.recordset")

sql="select * from 购物车"

rs.open sql,conn,1,3

'炒菜

for i=1 to 80

  if request("tc"&i)<>"" then

     rs.addnew

     rs("餐品名称")=request("tc_name"&i)

     rs("单价")=request("tc_jg"&i)

	 rs("数量")=request("tc"&i)

	 rs("总价")=cint(request("tc_jg"&i))*cint(request("tc"&i))

	 rs("登录名")=session("loginname")

	 rs("类型")="炒菜"

	 rs.update

  end if

next

'套餐

if request("leixing")="套餐" then

   if request("tcyc")<>"" and request("tcsc")<>"" then

      rs.addnew

	  rs("餐品名称")=request("tcyc")&" "&request("tcsc")

	  rs("单价")=16

	  rs("数量")=1

	  rs("总价")=16

	  rs("登录名")=session("loginname")

	  rs("类型")="套餐"

	  rs.update

   end if

else

   for i=1 to 20

      if request("ddyc"&i)<>"" then

	     rs.addnew

         rs("餐品名称")=request("ycmc"&i)

         rs("单价")=request("ycjg"&i)

	     rs("数量")=request("ddyc"&i)

	     rs("总价")=cint(request("ycjg"&i))*cint(request("ddyc"&i))

	     rs("登录名")=session("loginname")

	     rs("类型")="单点晕菜"

	     rs.update

	  end if

	  

	  if request("ddsc"&i)<>"" then

	     rs.addnew

         rs("餐品名称")=request("scmc"&i)

         rs("单价")=request("scjg"&i)

	     rs("数量")=request("ddsc"&i)

	     rs("总价")=cint(request("scjg"&i))*cint(request("ddsc"&i))

	     rs("登录名")=session("loginname")

	     rs("类型")="单点素菜"

	     rs.update

	  end if

   next

end if

'推荐

if request("tj")<>"" then

   rs.addnew

   rs("餐品名称")=request("tjmc")

   rs("单价")=request("tjjg")

   rs("数量")=request("tj")

   rs("总价")=cint(request("tjjg"))*cint(request("tj"))

   rs("登录名")=session("loginname")

   rs("类型")="推荐"

   rs.update

end if

%>