Question

请问asp网页购物车代码中的如下代码如何解释啊，求帮助啊！<% public ProductList if request("order")="产

<%
public ProductList
if request("order")="产品更新" then
Session("ProductList")=""
end if
ProductList = Session("ProductList")
Sub PutToShopBag(Prodid, ProductList)
If Len(ProductList) = 0 Then
ProductList = "'" & Trim(Prodid) & "'"
ElseIf InStr( ProductList, Prodid ) <= 0 Then
ProductList = ProductList&", '"&Trim(Prodid)&"'"
End If
End Sub
%>
<%
Product_Id = Trim(Request("Product_Id"))
if instr(Product_Id,",")>0 then
idArr=Split(Product_Id, ",")
for i = 0 to ubound(idArr)
PutToShopBag idArr(I), ProductList
next
else
PutToShopBag Product_Id, ProductList
end if
%>
<%
Session("ProductList") = ProductList
'判断购物车是否为空
if Productlist<>"''" then
sql="select * from Product where Product_Id in ("&ProductList&") order by Product_Id"
Set rs_price = conn.Execute(sql)
else
response.redirect "error.asp?error=007"
response.end
end if
%>

Answer 1

直接上代码注释：
<%
'Session("ProductList") 是购物车
'ProductList 购物车临时变量 用于处理购物车里的商品
public ProductList '定义商品列表
if request("order")="产品更新" then '判断传过来的order参数 如果是产品更新
Session("ProductList")="" ' 清空购物车商品列表
end if
'以下是非产品更新情况下 取决于页面参数 order
ProductList = Session("ProductList") '把购物车里的产品列表给Productlist变量
'一个过程 作用想购物车里添加产品
Sub PutToShopBag(Prodid, ProductList) '参数：产品ID,购物车产品列表
If Len(ProductList) = 0 Then '如果购物车为空
ProductList = "'" & Trim(Prodid) & "'" '直接把要添加的商品给购物车 这是第一件商品
ElseIf InStr( ProductList, Prodid ) <= 0 Then ' 如果购物车里有商品
ProductList = ProductList&", '"&Trim(Prodid)&"'" '则把要添加的商品ID追加到最后 并用逗号隔开
End If
End Sub '过程结束

Product_Id = Trim(Request("Product_Id")) '接受传过来的商品ID参数 即要添加进购物车的商品ID
if instr(Product_Id,",")>0 then '如果这不是一件商品而是用逗号分隔开的几件商品
idArr=Split(Product_Id, ",") '则把参数 Product_Id 以逗号为分隔符分割成熟组
for i = 0 to ubound(idArr) '遍历数组把这几件商品追加进购物车
PutToShopBag idArr(I), ProductList
next '追加完毕
else
PutToShopBag Product_Id, ProductList '如果是一件商品 则直接调用上面的那个过程追加商品至购物车
end if
Session("ProductList") = ProductList '把操作完的临时购物车变量ProductList 给购物车

if Productlist<>"''" then '如果购物车不为空 则计算购物车里的商品总价 通过sql语句调用数据库里的价格字段计算
sql="select * from Product where Product_Id in ("&ProductList&") order by Product_Id"
Set rs_price = conn.Execute(sql)
else '如果购物车为空
response.redirect "error.asp?error=007" '则跳转到错误页面
response.end '停止执行下面的代码
end if '结束
%>

Answer 2

公共产品目录 假设要求（命令）=“产品更新” 然后 一段时间（产品目录）=”” 结束如果

Answer 3

百度就知道