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

buyfinish.asp:完成一次交易！记录客户信息！

1   
2Name=Request("Customer_N")   
3Tel=Request("Customer_T")   
4Address=Request("Customer_A")   
5ProductID=Request("Customer_P")   
6ProductName=Request("Customer_PN")   
7Quatity=Request("Customer_Q")   
8Sum=Request("Customer_S")   
9Session("ProductList")=""

1<head><meta content="30; URL=main.asp" http-equiv="REFRESH"/></head>

1<body background="B01.jpg">

=sql

 1<center><h2><font color="blue">顾客购物信息：</font></h2>
 2<table border="1" width="50%"><tr><td>   
 3姓名：```
 4=Name
 5```<br/>   
 6电话：```
 7=Tel
 8```<br/>   
 9住址：```
10=Address
11```<br/>

Products = Split(ProductID, "/")
ProductNames = Split(ProductName, "/")
Quatities = Split(Quatity,"/")

1书刊编号__书刊名称 (数量)<br/>

For I=0 To UBound(Products)

=Products(i) __ =ProductNames(i) ( =Quatities(i)

1书刊总价：```
2=Sum
3```<br/>
4</td></tr></table>   
5上述购物清单已提交服务台办理。多谢惠顾！   
6<hr width="80%"/>
7<a href="main.asp">返回</a>
8</center></body>

1   
2sql = "Insert into BuyInfomation (Name,Tel,Address,ProductID,Quatity,Sum) "   
3sql = sql & " Values ( '"+Name+"','"+Tel+"','"+Address+"','"+ProductID+"','"+Quatity+"','"+Sum+"')"   
4DbPath = SERVER.MapPath("ShopBag.mdb")   
5Set conn = Server.CreateObject("ADODB.Connection")   
6conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath   
7Set rs = conn.Execute( sql )   
8Set conn=nothing