Question

asp 购物车

说说怎么做购物车 最好是代码和文字结合，光文字也可以，光代码不要，
尽量详细点。先给100，事成后至少50
你们这么解释我也看不懂，你们还是用文字表达吧，我会写代码

Answer 1

arrCart = Session("myCart")
CartIndex = Session("cartIndex")
count=0
for i=0 to CartIndex
if arrCart(i,2)<>"" then
if arrCart(i,2)>0 then
count=count+1
end if
end if
next

idbook = request.form("idbook")
bookname = request.form("bookname")
purchase = request.form("purchase")
availstock = request.form("availstock")
if purchase <>"" then
purchase=Cint(purchase)
availstock=availstock
if purchase>availstock then
htmlcode="你购买的数量超过了库存图书的数量！ <a href=""viewitem.asp?idbook="&idbook&"&bookname="&bookname&""">返回</a>"
response.write htmlcode
else
if purchase>0 then
call openDB()
sql="select price,discount from books where idbook="&idbook&" and bookname='"&bookname&"'"
set rs=conn.execute(sql)
nowprice=rs("price")*(100-rs("discount"))/100
arrCart(CartIndex,0) = idbook
arrCart(CartIndex,1) = bookname
arrCart(CartIndex,2) = purchase
arrCart(CartIndex,3) = nowprice
session("myCart") = arrCart
CartIndex = CartIndex + 1
Session("cartIndex") = CartIndex
call closeDB()
end if
response.redirect "showcart.asp"
end if
else
response.write"你没有选择图书数量！"
end if
%>

在global.asa里面有：
SUB Session_OnStart
Session("idcustomer") = ""
Session("adminname") = ""
Session("cartIndex") = Cint(0)
ReDim arrcart(50,3)
Session("myCart") = arrcart
END SUB

SUB Session_OnEnd
set Session("idCustomer") = Nothing
set Session("adminname") = Nothing
set Session("cartIndex") = Nothing
set Session("myCart") = Nothing
END SUB

重点是arrCart，myCart，cartIndex。
各代表什么。添加商品入购物车的来龙去脉。详细的可以再加分。
其中purchase＝要购买的数量
availstock＝可销售的数量
bookname＝书籍名称

解释！！！！！！！！！！！！！！！！！！！

arrCart = Session("myCart") '/// 赋值arrCart 等于 myCart 这个服务器变量
CartIndex = Session("cartIndex") '/// 赋值 CartIndex 等于 CartIndex 这个服务器变量
count=0 '/// 赋值 count = 0
for i=0 to CartIndex '/// 一个循环开始，起点为i=0，终点为i=CartIndex
if arrCart(i,2)<>"" then '/// 如果arrCart这个二维数组中的第i,2项的值不为空，那么。。。
if arrCart(i,2)>0 then '/// 如果 arrCart这个二维数组中的第i,2项的值大于0，那么。。。
count=count+1 '/// 重新赋值count为原count再加上1
end if '/// 结束一个判断
end if '/// 同上
next '/// 结束一个循环

idbook = request.form("idbook") '/// 赋值 idbook 等于 idbook 这个表单值
bookname = request.form("bookname") '/// 类上
purchase = request.form("purchase") '/// 类上
availstock = request.form("availstock") '/// 类上
if purchase <>"" then '/// 如果purchase不为空，那么。。。
purchase=Cint(purchase) '/// 把purchase强制转换为整型变量
availstock=availstock '/// 变量传递（同名变量，不知这步有什么意义@@!）
if purchase>availstock then '/// 如果 purchase 大于 availstock 那么。。。
htmlcode="你购买的数量超过了库存图书的数量！ <a href=""viewitem.asp?idbook="&idbook&"&bookname="&bookname&""">返回</a>"
'/// 赋值 htmlcode
response.write htmlcode '/// 输出htmlcode这个值到页面上
else '/// 否则（不满足上面 purchase>availstock的时候）
if purchase>0 then '/// 如果 purchase>0 那么。。。
call openDB() '/// 调用 openDB 这个过程（貌似是一个打开记录集的过程）
sql="select price,discount from books where idbook="&idbook&" and bookname='"&bookname&"'"
'/// 定义一个sql语句
set rs=conn.execute(sql) '/// 调用一个sql（这里是一个查询sql）
nowprice=rs("price")*(100-rs("discount"))/100
arrCart(CartIndex,0) = idbook
arrCart(CartIndex,1) = bookname
arrCart(CartIndex,2) = purchase
arrCart(CartIndex,3) = nowprice
session("myCart") = arrCart
CartIndex = CartIndex + 1
Session("cartIndex") = CartIndex
'/// 上面这几句都是变量传递，没什么好解释的
call closeDB() '/// 调用 closeDB这个过程（应该是关闭记录集的过程吧）
end if '/// 结束一个判断
response.redirect "showcart.asp" '/// 转向到 showcart.asp 这个页面
end if
else 否则（这里比较远，是不满足那个purchase<>""的时候）
response.write"你没有选择图书数量！" '/// 输出“你没有。。。”到页面
end if
%>

【其实你的问题的重点在下面这里】

在global.asa里面有：
SUB Session_OnStart '/// 一个会话开始的时候
Session("idcustomer") = "" '/// 置空该值
Session("adminname") = "" '/// 置空该值
Session("cartIndex") = Cint(0) '/// 赋值服务器变量cartIndex为整型的数字0
ReDim arrcart(50,3) '/// 定义一个二维数组arrcart
Session("myCart") = arrcart '/// 赋值服务器变量myCart等于arrcart这个二维数组
END SUB

SUB Session_OnEnd '/// 一个会话结束的时候（后面都是清空服务器变量的，没什么好解释）
set Session("idCustomer") = Nothing
set Session("adminname") = Nothing
set Session("cartIndex") = Nothing
set Session("myCart") = Nothing
END SUB

arrCart，myCart其实都是用来存贮一个东西：购物车里的货物的信息（用二维数组来存贮）
cartIndex，其实就是你购物车里的货物数量，用来当做上面这个二维数组的游标的

Answer 2

什么购物车

Answer 3

arrCart = Session("myCart") '/// 赋值arrCart 等于 myCart 这个服务器变量
CartIndex = Session("cartIndex") '/// 赋值 CartIndex 等于 CartIndex 这个服务器变量
count=0 '/// 赋值 count = 0
for i=0 to CartIndex '/// 一个循环开始，起点为i=0，终点为i=CartIndex
if arrCart(i,2)<>"" then '/// 如果arrCart这个二维数组中的第i,2项的值不为空，那么。。。
if arrCart(i,2)>0 then '/// 如果 arrCart这个二维数组中的第i,2项的值大于0，那么。。。
count=count+1 '/// 重新赋值count为原count再加上1
end if '/// 结束一个判断
end if '/// 同上
next '/// 结束一个循环

idbook = request.form("idbook") '/// 赋值 idbook 等于 idbook 这个表单值
bookname = request.form("bookname") '/// 类上
purchase = request.form("purchase") '/// 类上
availstock = request.form("availstock") '/// 类上
if purchase <>"" then '/// 如果purchase不为空，那么。。。
purchase=Cint(purchase) '/// 把purchase强制转换为整型变量
availstock=availstock '/// 变量传递（同名变量，不知这步有什么意义@@!）
if purchase>availstock then '/// 如果 purchase 大于 availstock 那么。。。
htmlcode="你购买的数量超过了库存图书的数量！ <a href=""viewitem.asp?idbook="&idbook&"&bookname="&bookname&""">返回</a>"
'/// 赋值 htmlcode
response.write htmlcode '/// 输出htmlcode这个值到页面上
else '/// 否则（不满足上面 purchase>availstock的时候）
if purchase>0 then '/// 如果 purchase>0 那么。。。
call openDB() '/// 调用 openDB 这个过程（貌似是一个打开记录集的过程）
sql="select price,discount from books where idbook="&idbook&" and bookname='"&bookname&"'"
'/// 定义一个sql语句
set rs=conn.execute(sql) '/// 调用一个sql（这里是一个查询sql）
nowprice=rs("price")*(100-rs("discount"))/100
arrCart(CartIndex,0) = idbook
arrCart(CartIndex,1) = bookname
arrCart(CartIndex,2) = purchase
arrCart(CartIndex,3) = nowprice
session("myCart") = arrCart
CartIndex = CartIndex + 1
Session("cartIndex") = CartIndex
'/// 上面这几句都是变量传递，没什么好解释的
call closeDB() '/// 调用 closeDB这个过程（应该是关闭记录集的过程吧）
end if '/// 结束一个判断
response.redirect "showcart.asp" '/// 转向到 showcart.asp 这个页面
end if
else 否则（这里比较远，是不满足那个purchase<>""的时候）
response.write"你没有选择图书数量！" '/// 输出“你没有。。。”到页面
end if
%>

【其实你的问题的重点在下面这里】

在global.asa里面有：
SUB Session_OnStart '/// 一个会话开始的时候
Session("idcustomer") = "" '/// 置空该值
Session("adminname") = "" '/// 置空该值
Session("cartIndex") = Cint(0) '/// 赋值服务器变量cartIndex为整型的数字0
ReDim arrcart(50,3) '/// 定义一个二维数组arrcart
Session("myCart") = arrcart '/// 赋值服务器变量myCart等于arrcart这个二维数组
END SUB

SUB Session_OnEnd '/// 一个会话结束的时候（后面都是清空服务器变量的，没什么好解释）
set Session("idCustomer") = Nothing
set Session("adminname") = Nothing
set Session("cartIndex") = Nothing
set Session("myCart") = Nothing
END SUB

arrCart，myCart其实都是用来存贮一个东西：购物车里的货物的信息（用二维数组来存贮）
cartIndex，其实就是你购物车里的货物数量，用来当做上面这个二维数组的游标的

Answer 4

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="util.asp" -->
<!--#include file="conn.asp" -->
<%
ProductList = Session("ProductList")
Products = Split(Request("cpbm"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList

Head="以下是您所选购的物品清单"
ProductList = Session("ProductList")
If Len(ProductList) =0 Then
Response.Redirect "nothing.asp"
response.end
end if

If Request("MySelf") = "Yes" Then
ProductList = ""
Products = Split(Request("cpbm"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
End If
If Len(ProductList) = 0 Then
Response.Redirect "nothing.asp"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql = "Select * From Product"
sql = sql & " Where Product_Id In (" & ProductList & ")"
rs.open sql,conn,3,3
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>以下是您所选购的物品清单</title>
<href="style.css">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<script language="Javascript">
//函数名：fucCheckNUM
//功能介绍：检查是否为数字
//参数说明：要检查的数字
//返回值：1为是数字，0为不是数字
function fucCheckNUM(NUM)
{
var i,j,strTemp;
strTemp="0123456789";
if ( NUM.length== 0)
return 0
for (i=0;i<NUM.length;i++)
{
j=strTemp.indexOf(NUM.charAt(i));
if (j==-1)
{
//说明有字符不是数字
return 0;
}
}
//说明是数字
return 1;
}

function clean()
{
window.location.href="clear.asp"
}
</script>
<SCRIPT language=javascript id=clientEventHandlersJS>
<!--
function form1_onsubmit()
{
newprice="Q_" & rs("Product_Id")
if ((fucCheckNUM(document.FORM1.newprice.value)==0) )
{ alert ("会员价有非法字符，请填写正确会员价。");
document.FORM1.newprice.focus();
return false;
}
//-->
}
</SCRIPT>
<body topmargin="5">
<center>

<div align="center">

<center>
<table width="80%" border="0" cellspacing="0">
<tr>
<td width="80%" valign="top"><p align="center">
</p>
<p align="center">
<font color="#FF0000" ><%=Head%></font></p>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{

var checkOK = "0123456789-";
var checkStr = theForm.<%="Q_" & rs("Product_Id")%>.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
allNum += ch;
}
if (!allValid)
{
alert("在 请输入正确的商品数量！ 域中，只能输入 数字 个字符。");
theForm.<%="Q_" & rs("Product_Id")%>.focus();
return (false);
}
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form Action="eshop.asp" Method="POST" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
<input type="hidden" name="MySelf" value="Yes">
<div align="center"><center>
<table border="0" cellspacing="1" width="550" class=main bgcolor="#000000">
<tr bgcolor="#006699">
<td align="center" width="82" height="22" bgcolor="#006699"><font color="#EEEEEE">商品编号</font></td>
<td align="center" width="170" height="22" bgcolor="#006699"><font color="#EEEEEE">商品名称</font></td>
<td align="center" width="76" height="22" bgcolor="#006699"><font color="#EEEEEE">商品价格</font></td>
<td align="center" width="76" height="22" bgcolor="#006699"><font color="#EEEEEE">商品数量</font></td>
<td align="center" width="60" height="22" bgcolor="#006699"><font color="#EEEEEE">购买</font></td>
<td align="center" width="72" height="22" bgcolor="#006699"><font color="#EEEEEE">总价</font></td>
</tr>
<%
Sum = 0
While Not rs.EOF
Quatity = CInt( Request( "Q_" & rs("Product_Id")) )
If Quatity <= 0 Then
Quatity = CInt( Session(rs("Product_Id")) )
If Quatity <= 0 Then Quatity = 1
End If
Session(rs("Product_Id")) = Quatity
Sum = Sum + ccur(rs("P_NewPrice")) * Quatity
%>
<tr>
<td align="center" width="82" bgcolor="#EEEEEE"><%=rs("Product_ID")%>
</td>
<td align="center" width="170" bgcolor="#EEEEEE"><%=rs("Product_Name")%>
</td>
<td align="center" width="76" bgcolor="#EEEEEE"><%=rs("P_NewPrice")%>
</td>
<td align="center" width="76" bgcolor="#EEEEEE"><!--webbot
bot="Validation" S-Display-Name="请输入正确的商品数量！"
S-Data-Type="Integer" S-Number-Separators="x" --><input Name="<%="Q_" & rs("Product_Id")%>" Value="<%=Quatity%>" Size="3"></td>
<td Align="center" width="60" bgcolor="#EEEEEE"><input Type="CheckBox" Name="cpbm" Value="<%=rs("Product_Id")%>" Checked>
</td>
<td Align="center" width="72" bgcolor="#EEEEEE"><%=ccur(rs("P_NewPrice"))*Quatity%>.00元
</td>
</tr>
<%
rs.MoveNext
Wend
%>