一个asp简单购物车教程（3）
时间：2007-09-17 11:02:00
其中最前面代码,下面的理解是我自已想的有可能有错，不过程序绝对没有错
：<％
if not IsObject(session("cart")) then
Set session("cart")=CreateObject("Scripting.Dictionary")’建立二维数组
end if
Set cart=session("cart")
productID=Cstr(request("productID"))’定义变量productid为产品页传递过来的值
dim detail(1)
detail(0)=Int(request("quantity"))
if request("productID")<>"" then
if cart.Exists(productID) then
cart.Remove(productID)
end if
cart.add productID,detail ’上面这一段我看不太懂，谁知道告诉我一下，不过和下面的有关
end if
keys=cart.keys ’定义变量KEYS的值为数组里面的产品ID
items=cart.items ’定义变量items的值为数组里面的产品数量
set session("cart")=cart
％>
代码二：
<％ For i = 0 To cart.Count -1 ％> ’设置多个产品的循环，cart.count是指购买几个产品,后面要以next结束
<％ Dim list__MMColParam
list__MMColParam = keys(i) ％> ’定义ID为cart数组里面的产品ID号
<％ set list = Server.CreateObject("ADODB.Recordset")
list.ActiveConnection = MM_conn_STRING
list.Source = "SELECT * FROM pro_table WHERE id = " + Replace(list__MMColParam, "’", "’’") + ""
list.CursorType = 0
list.CursorLocation = 2
list.LockType = 3
list.Open()
％> ’上面的代码就不用我说了，其中要注意的：list__MMColParam = keys(i)
………………………………………… <％
list.Close()
％>
<％ next ％>
取消订购的产品：delcart.asp
<％
Set cart=session("cart")
if request("productID")<>"" then
productID=Cstr(request("productID"))
cart.Remove(productID)
end if
set session("cart")=cart
response.redirect("cart.asp")
％>
order.asp源码,这里很简单，看一下就明白了
<HTML><HEAD>
<TITLE>浙江广源印刷包装有限公司</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="index/index.css" type=text/css rel=stylesheet>
<META content="MSHTML 5.50.4807.2300" name=GENERATOR>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<div align="center">
<form name="form2" method="post" action="sendorder.asp" onSubmit="return check1()">
<table width="514" border="0" cellspacing="0" cellpadding="0" height="15" align="center">
<tr>
<td height="6" bgcolor="#FF9900"> <font color="#FFFFFF" size="2"> 购买者联系信息：</font></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<div align="center"><font size="2">联系人</font></div>
</td>
<td>
<div align="left"><font size="2">
<input type="text" name="n_ame" size="20">
</font></div>
</td>
</tr>
<tr>
<td>
<div align="center"><font size="2">公司电话</font></div>
</td>
<td>
<div align="left"><font size="2">
<input type="text" name="t_el" size="20">
</font></div>
</td>
</tr>
<tr>
<td>
<div align="center"><font size="2">电子邮箱</font></div>
</td>
<td>
<div align="left"><font size="2">
<input type="text" name="e_mail" size="20">
</font></div>
</td>
</tr>
<td>
<div align="center"></div>
</td>
<td> </td>
</tr>
</table>
<p align="center">
<input name="submit" type="submit" value="提交">
<input name="reset" type="reset" value="清除">
</p>
</form>
</div>
</BODY></HTML>
标签：购物车,asp
0
投稿猜你喜欢
Django模型修改及数据迁移实现解析
2022-05-20 10:20:40
Linux上通过binlog文件恢复mysql数据库详细步骤
2024-01-27 17:56:01
基于matplotlib xticks用法详解
2022-10-09 12:51:31
在ASP中改善动态分页的性能
2008-05-08 14:27:00
支持中文的Len, Left, Right函数
2008-03-18 13:50:00
python 实现语音聊天机器人的示例代码
2021-03-24 14:36:07
python基于K-means聚类算法的图像分割
2021-03-30 02:29:05
pandas:get_dummies()与pd.factorize()的用法及区别说明
2023-07-10 22:17:32
三个动画函数，透明度渐变、位置移动、尺寸变化javascript源码
2010-03-28 13:23:00
asp 性能测试报告 学习asp朋友需要了解的东西
2011-03-09 10:57:00
vue移动端的左右滑动事件详解
2024-06-05 09:20:33
Python super()函数使用及多重继承
2022-10-06 19:21:37
如何给Python代码进行加密
2021-08-24 16:24:30
实例：ASP与ACCESS链接
2008-11-21 16:10:00
MySQL存储过程savepoint rollback to
2008-12-03 16:02:00
Python编程之序列操作实例详解
2023-05-26 16:08:03
以SQLite和PySqlite为例来学习Python DB API
2023-07-13 02:19:14
Python实现读取及写入csv文件的方法示例
2021-12-29 16:41:31
SQLserver存储过程写法与设置定时执行存储过程方法详解
2024-01-15 02:36:26
本地机apache配置基于域名的虚拟主机详解
2023-11-17 07:40:37