双频rfid有源系统:请问如何用ASP VBSCRIPT制作购物车
来源:百度文库 编辑:神马品牌网 时间:2024/10/04 18:46:05
(1)放商品入“购物车”
将商品ID和数量写入到Dictionary中,使用的方法是Add。该方法用于向Dictionary对象添加键和项目。格式:对象.Add key , item
判断是否存在Session("cart"),不存在则创建一个Session("cart")对象
<%
If Not IsObject (Session ("cart")) Then
Set Session ("cart")=Server.CreateObject ("Scripting.Dictionary")
End If
%>
将Session("cart")展开一个本地副本调用。
<% Set Cart=Session("cart") %>
如果该商品的ID不存在,则可以使用Dictionary对象的Add方法将商品的编号(ProductID)和购买的数量Num写入到Cart中。
<%
If Not Cart.Exists (ProductID) Then
Cart.Add ProductID,Num
End If
%>
接着再将修改后的本地副本整体赋值给Session ("cart")
<% Set Session ("cart")=Cart %>
(2)查看“购物车”中商品
将Session ("cart")中的商品ID获取后,从商品表中获取相应商品信息。可以采用将Session ("cart")中的数据组分别赋值给Keys(商品ID组)和Items (商品数量组)这2个变量。
<% Set Cart=Session ("cart")
Keys=Cart.keys
Items=Cart.items
%>
接着可以使用循环语句显示用户购买的商品和数量以及总价等信息。
<% For I = 0 To Cart.Count-1 %>
Dim prodid
prodid= keys(i)
Set Rs = Server.CreateObject ("ADODB.Recordset")
ssql= "SELECT * FROM products WHERE pid ="&int(prodid)
Rs.Open ssql, conn, 1,3
%>
‘显示Rs中的记录
……
<% Rs.Close
Next
%>
(3)修改“购物车”中商品数量
设计将商品的数量分别修改,这样就可以利用Session("cart")中存储的购买商品ID来进行修改用户购买商品的数量。编写一个函数用于获取数量和编号,然后重新导航到修改数量程序文件。
<script language="java script1.2">
<!--
function changenum(id,num){
window.location.href="change.asp?id="+id+"&num="+num
}
-->
</script>
修改数量实现程序:
<%
id=request.Querystring("id")
num=request.Querystring("num")
Set Cart=Session("cart")
If Cart.Exists(id) Then
Cart.item(id)=Int(num)
End If
Set Session("cart")=cart
Response.Redirect "cart.asp"
%>
(4)删除“购物车”中的商品
只需要知道被删除的商品的ID,就可以使用Dictionary对象的Remove方法实现删除。
<%
ProductID=Cstr(Request.Querystring("ProductID"))‘获取要删除的商品ID
Set Cart=Session("cart")
If Cart.Exists(ProductID) then ‘判断商品ID是否存在
Cart.Remove(ProductID) ‘在Cart中删除该ID
End If
Set Session("cart")=cart
%>
如要清空“购物车”可以使用Dictionary对象的RemoveAll方法实现。
<% Cart.Removeall() %>
都有源代码了,你还问怎么做出来的?
如果你自己本身代码都看不懂,那怎么教你?