addtocar.asp.txt

ASP 网页数据库短训教程源码

<%
  uid = Request("uid")				' 读取商品编号
  name = Request("name")				' 读取商品名称
  company = Request("company")		' 读取生产商
  Price = Request("Price") 				' 读取定价
  if not isnumeric(Request("Quantity")) then
%>	
  <script language="vbscript">
    alert ("请正确输入定购的数量")
    history.back
  </script>
<%
  else
    Quantity = Request("Quantity")		' 读取数量
    subTotal = Price * Quantity			' 计算金额=定价*数量
    								' 新增记录
    								' 使用Connection对象打开数据库文件
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=" & Server.MapPath("store.mdb")
    objConn.Open
     							' 从数据表中读取记录并存放在Recordset对象中
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.Open "购物单", objConn,1,2
    objRS.AddNew Array( "商品编号","名称","生产商","定价","数量","金额"), _
         Array(uid,name,company,Price,Quantity,subTotal) 
    objRS.Update
    								' 关闭数据库连接并释放对象
    objRS.Close
    Set objRS = Nothing
    objConn.Close
    Set objConn = Nothing
%>
  <script language="vbscript">
    alert ("您所选取的商品已成功地放入购物车！")
    history.back
  </script>
<%
  end if
%>