&;price&;",1)" conn.executesql response.Redirect("mycar.asp") endif rs.close setrs=nothing conn.close setconn=nothing %> 执行完了 sql 语句之后将跳转到购物车页面(mycar.asp),显示出用 户所购买的商品。并且有修改数量的按钮和删除的超链接
<% sql="selecta.*,b.pnamefrommrcara,productsbwhereorderid='"&;sessio n("orderid")&;"'anda.pid=b.pid" setrs=server.CreateObject("adodb.recordset") rs.opensql,conn,3,1 %>
orderid | 商品名称 | 商品 id | 单价 | 数量 | 删除 | 修改 |
<% sum=0 i=1‘这里的 i 值到后边有介绍 whilenotrs.eof‘将所购买的商品循环输出 %>
<%=session("orderid")%> | <%= rs("pname")%> | <%=rs(1)%> | <%=rs(2)%> | | 删除 | |
<% i=i+1 sum=sum+cint(rs(2))*rs(3)‘计算总价格 rs.movenext wend rs.close setrs=nothing conn.close setconn=nothing %> 返回继续购物
总金额为:<%=sum%> 点击修改数量的按钮之后,就跳到 update.asp: <% 这里需要注意在上个页面,有个 i 值,在这里就用到了,你要指明修改 的是哪一行记录 i=request.querystring("rowcount") pcount=request.form("pcount")(i) pid=request.querystring("pid")(i) sql="updatemrcarsetpcount="&;pcount&;"wherepid="&;pid&;"andorderid ='"&;session("orderid")&;"'" conn.executesql conn.close setconn=nothing response.redirect("mycar.asp")‘执行完之后重新跳转到 mycar.asp %> 同样点击删除之后,就跳到 delete.asp,在该页面得到商品的 id <% pid=request.QueryString("id") response.write(pid) sql="deletefrommrcarwherepid="&;pid&;"andorderid='"&;session("orderi d")&;"'"
conn.executesql conn.close setconn=nothing response.Redirect("mycar.asp")‘执行完之后重新跳转到 mycar.asp %>一个简单的购物车做好了,它用到了连接数据库、数据库的增、删、 改、查。
ASP 购物车代码
Asp 2011-01-17 14:35:38 阅读 376 评论 0 字号:大中小 订阅
将以下 ASP 购物车代码都保存为一个文件 如 cart.asp 调用时比如加入购物车直接使用链接 cart.asp?id= , , 商品 ID 即可。本例中商品数据库表为 product,使用到商品 ID,商品名称 product_name 等,在实际使用 ASP 购物车代码时将相关参数替换下。 <%'简单 ASP 购物车代码原理 action=request.QueryString("action") if request.QueryString("id")="" then bookid=session("productlist")'//////////////////////////////////调入查询物品的 id else if session("productlist")="" then session("productlist")=request.QueryString("id") bookid=request.QueryString("id") else
if instr(request.querystring("id"),session("productlist"))<1 then bookid=session("productlist")+","+request.QueryString("id")'//////////////把 id 全部存储到 bookid 中类似与数 组 session("productlist")=bookid else bookid=session("productlist") end if end if end if if session("productlist")="" then'////////////////////////若 id 为空,则说明用户没有购物 bookid=0 end if if action="del" then '删除购物车中的某一件商品