 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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")="" %> <HEAD><META HTTP-EQUIV="REFRESH" CONTENT="30; URL=main.asp"></HEAD> <body background=B01.jpg> <%=sql%><br> <center><h2><font color=blue>顾客购物信息：</h2></font> <table width=50% border=1><tr><td> 姓名：<%=Name%><br> 电话：<%=Tel%><br> 住址：<%=Address%><br> <% Products = Split(ProductID, "/") ProductNames = Split(ProductName, "/") Quatities = Split(Quatity,"/") %> 书刊编号__书刊名称 (数量)<br> <% For I=0 To UBound(Products) %> <%=Products(i)%>__<%=ProductNames(i)%> (<%=Quatities(i)%>)<br> <%next%> 书刊总价：<%=Sum%><br> </td></tr></table> 上述购物清单已提交服务台办理。多谢惠顾！ <hr width=80%> <a href=main.asp>返回</a> </body> <% 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 %> 返回类别: 教程 上一教程: UTF-8转GB2312函数 下一教程: 抓取动网论坛 EMAIL 地址的一段代码 您可以阅读与"一个简朴的网上书城的例子(八)"相关的教程: · 一个简朴的网上书城的例子（一） · 一个简朴的网上书城的例子(一) · 一个简朴的网上书城的例子(三) · 一个简朴的网上书城的例子(四) · 一个简朴的网上书城的例子(二) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
