一个简单的网上书城的例子（五）

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=Check.asp>查看购物袋</A>　
<A HREF=Clear.asp>退回所有物品</A><P>
<% ListCategory conn %>
</CENTER>
</BODY>
</HTML>

时间： 2024-08-02 16:04:22

一个简单的网上书城的例子（五）的相关文章

一个简单的网上书城的例子（二）

main.asp:首页面,选择购物区! <HTML><HEAD><TITLE>网上书城</TITLE></HEAD><BODY BACKGROUND="b01.jpg"><br><center><H1><font color=red>网上书城</font></H1><HR width=40%> <A HREF=buy.asp?

一个简单的网上书城的例子（二）！

main.asp:首页面,选择购物区! <HTML><HEAD><TITLE>网上书城</TITLE></HEAD><BODY BACKGROUND="b01.jpg"><br><center><H1><font color=red>网上书城</font></H1><HR width=40%> <A HREF=buy.asp?

一个简单的网上书城的例子（五）！

check.asp:用户察看所购物品! <!--#include file="Util.asp" --> <%Head="以下是您所选购的物品清单" ProductList = Session("ProductList")If Len(ProductList) = 0 Then Response.Redirect "Nothing.asp" DbPath = SERVER.MapPath("Shop

一个简单的网上书城的例子（三）！

buy.asp:显示商品和用户购物! <!--#include file="Util.asp" --><%DbPath = SERVER.MapPath("ShopBag.mdb")Set conn = Server.CreateObject("ADODB.Connection")conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & D

一个简单的网上书城的例子（一）！

数据库结构:第一个库shopbag.mdb,两个表:buyiformation表存客户信息如下:Name,Tel,Address,ProductID,Quatity,Sum第二个表products存商品信息:CategoryID(商品分类号),productid,productname,descrition,ischeck(用户是否选这一商品),price(单价) 下面试一个工具文件!util.asp <%Sub ListCategory( conn )    Set rs = conn.Exe

一个简单的网上书城的例子（一）

数据库结构:第一个库shopbag.mdb,两个表:buyiformation表存客户信息如下:Name,Tel,Address,ProductID,Quatity,Sum第二个表products存商品信息:CategoryID(商品分类号),productid,productname,descrition,ischeck(用户是否选这一商品),price(单价) 下面试一个工具文件!util.asp <%Sub ListCategory( conn )    Set rs = conn.Exe

一个简单的网上书城的例子（三）

buy.asp:显示商品和用户购物! <!--#include file="Util.asp" --><%DbPath = SERVER.MapPath("ShopBag.mdb")Set conn = Server.CreateObject("ADODB.Connection")conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & D

一个简单的网上书城的例子（六）

<!--#include file="Util.asp" --> <%Head="您尚未选购任何物品!" DbPath = SERVER.MapPath("ShopBag.mdb")Set conn = Server.CreateObject("ADODB.Connection")conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=&quo

一个简单的网上书城的例子（七）

clear.asp:清空所购全部物品! <!--#include file="Util.asp" --> <%Head="您放入购物袋的物品已全数退回!" DbPath = SERVER.MapPath("ShopBag.mdb")Set conn = Server.CreateObject("ADODB.Connection")conn.open "driver={Microsoft Access