位置：首页>> 网络编程>> Asp编程>> 一个asp简单购物车教程（4）

一个asp简单购物车教程（4）

　　发布时间：2007-09-17 11:02:00　

标签：购物车,asp

sendorder.asp,提交选购的产品到数据库，

<％@LANGUAGE="VBSCRIPT"％>

<％
if not IsObject(session("cart")) then
response.redirect("/")
end if
％> ’加一个判断，如果session("cart")为空，则重定位URL
<％
Set rs1=server.createobject("ADODB.recordset")
Set cart=session("cart")
keys=cart.keys ’取出数组里面的产品ID
items=cart.items ’取出数组里面的产品数量
％>
<％
set list = Server.CreateObject("ADODB.Command")
list.ActiveConnection = MM_conn_STRING
For i = 0 To cart.Count -1
list.CommandText = "INSERT INTO o_rder (m_um, p_roid) VALUES (" + Replace(items(i)(0), "’", "’’") + "," + Replace(keys(i), "’", "’’") + " ) "
list.CommandType = 1
list.CommandTimeout = 0
list.Prepared = true
list.Execute()
next
％>
<％
set add = Server.CreateObject("ADODB.Command")
add.ActiveConnection = MM_conn_STRING
add.CommandText = "INSERT INTO co_table (nn_ame, tt_el, ee_m_ail) VALUES (" + Replace(Request.form("n_ame"), "’", "’’") + ", " + Replace(Request.form("t_el"), "’", "’’") + ", " + Replace(Request.form("e_mail"), "’", "’’") + ") "
add.CommandType = 1
add.CommandTimeout = 0
add.Prepared = true
add.Execute()
％>
<html>
<head>
<title>浙江广源印刷包装公司</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<％= Request.form("n_ame") ％>你好，以下是你的详单
<％= Request.form("n_ame") ％>
<％= Request.form("t_el") ％>
<％= Request.form("e_mail") ％>

<％For i = 0 To cart.Count -1％>

 id：<％=keys(i)％> 
数量：<％=items(i)(0)％> <％next％>

 
 
 
</body>
</html>
<％ session("cart")=""％>

上面用了两个命令预存过程：
第一个过程：list
存储产品到数据库
因为有可能选购多个产品，所以用了一个循环For i = 0 To cart.Count -1,并以next结束
第二个过程：add
存储客户到数据库
就这样一个简单的购物车做好了。
本教程中主要的是cart.asp中的定义一个二维数组，还有用循环For i = 0 To cart.Count -1 next 把所订购的产品显示出来

第一页上一页 1 2 3

投稿

一个asp简单购物车教程（4）

猜你喜欢