一个简单的网上书城的例子（八） -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 一个简单的网上书城的例子（八）

一个简单的网上书城的例子（八） 时间：2004/11/7 2:56:00来源：本站整理作者：蓝点我要评论(0)

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

<%

Name=Request("Customer_N")

Tel=Request("Customer_T")

Address=Request("Customer_A")

ProductID=Request("Customer_P")

ProductName=Request("Customer_PN")

Quatity=Request("Customer_Q")

Sum=Request("Customer_S")

Session("ProductList")=""

%>

<%=sql%>

顾客购物信息：

姓名：<%=Name%>

电话：<%=Tel%>

住址：<%=Address%>

<% Products = Split(ProductID, "/")

   ProductNames = Split(ProductName, "/")

   Quatities = Split(Quatity,"/") %>

   书刊编号__书刊名称 (数量)

   <% For I=0 To UBound(Products) %>

   <%=Products(i)%>__<%=ProductNames(i)%> (<%=Quatities(i)%>)

<%next%>

书刊总价：<%=Sum%>

上述购物清单已提交服务台办理。多谢惠顾！

返回

<%

sql = "Insert into BuyInfomation (Name,Tel,Address,ProductID,Quatity,Sum) "

sql = sql & " Values ( '"+Name+"','"+Tel+"','"+Address+"','"+ProductID+"','"+Quatity+"','"+Sum+"')"

DbPath = SERVER.MapPath("ShopBag.mdb")

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath

Set rs = conn.Execute( sql )

Set conn=nothing

%>

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。