资源说明:基于web方式的网上图书系统.rar
<%
book=Request("book") '读取书名
ISBN=Request("ISBN") '读取简介
Price=Request("Price") '读取定价
Quantity=Request("Quantity") '读取数量
subTotal=Price*Quantity '计算总价=定价*数量
dim rsOrder
rsOrder= Server.CreateObject("ADODB.RecordSet")
rsOrder.Open "SELECT * FROM order",cn
rsOrder.AddNew Array("UserID","BoardName","jianjie","dingjia","shuliang","zhongjia","shijian"),_
Array(Session("UserID"),Book,ISBN,Price,Quantity,subTotal,Now())
rsOrder.Update
rsOrder.Close
Set rsOrder=Nothing
%>
您所选取的商品及数量已成功地放入购物车!
本源码包内暂不包含可直接显示的源代码文件,请下载源码包。
English
