一个简单的网上书城的例子（五）
敬业的IT人
互联网
佚名
2008-4-14 18:30:30
add.asp:用户更改所选物品种类与数量！
<!--#include file="Util.asp" -->
<%
Head="您所选购的物品已放入购物袋！"
DbPath = SERVER.MapPath("ShopBag.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft access(小型网站之最爱) Driver (*.mdb)};dbq=" & DbPath
ProductList = Session("ProductList")
Products = Split(Request("ProductID"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
%>
<HTML>
<HEAD><TITLE><%=Head%></TITLE></HEAD>
<BODY BACKGROUND="b01.jpg">
<H2 ALIGN=CENTER><%=Head%><HR></H2>
<CENTER>
<A HREF=http://www.cncms.com.cn/asp/Check.asp>查看购物袋</A>
<A HREF=http://www.cncms.com.cn/asp/Clear.asp>退回所有物品</A><P>
<% ListCategory conn %>
</CENTER>
</BODY>
</HTML>
<!--#include file="Util.asp" -->
<%
Head="您所选购的物品已放入购物袋！"
DbPath = SERVER.MapPath("ShopBag.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft access(小型网站之最爱) Driver (*.mdb)};dbq=" & DbPath
ProductList = Session("ProductList")
Products = Split(Request("ProductID"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
%>
<HTML>
<HEAD><TITLE><%=Head%></TITLE></HEAD>
<BODY BACKGROUND="b01.jpg">
<H2 ALIGN=CENTER><%=Head%><HR></H2>
<CENTER>
<A HREF=http://www.cncms.com.cn/asp/Check.asp>查看购物袋</A>
<A HREF=http://www.cncms.com.cn/asp/Clear.asp>退回所有物品</A><P>
<% ListCategory conn %>
</CENTER>
</BODY>
</HTML>
- 最新文章
- 一个简单的网上书城的例子（四）[04-14]
- 一个简单的网上书城的例子（三）[04-14]
- ASP 编程中15 个非常有用的例子[04-14]
- 用Delphi 6开发ASP上传组件详解[04-14]
- ASP常用的代码（不断更新）[04-14]
- ASP进阶之文章在线管理更新(3)[04-14]
- 相关文章
