帮忙翻译asp购物车相关代码!

来源：百度知道 编辑：UC知道 时间：2024/05/27 00:20:04
下面是购物车功能相关代码：请高手帮忙翻译下,对这段代码做下说明和注解
Basket.asp
<%
Sub PutToShopBag( hw_ID,basket_count, productList ,quantityList)
If Len(productList) = 0 Then
productList = "" & hw_ID & ""
quantityList="" & basket_count & ""
ElseIf InStr( productList&",", hw_ID&"," ) <= 0 Then
productList = hw_ID & ""& ", " &productList
quantityList = basket_count & ", " &quantityList
End If
session("productList")=productList
session("quantityList")=quantityList
End Sub
Sub PutToShopBagsecond( hw_ID,basket_count, productList ,quantityList)
If Len(productList) = 0 Then
productList = "" & hw_ID & ""
quantityList="" & basket_count & ""
ElseIf InStr( productList&",", hw_ID&"," ) <= 0 Then

Sub PutToShopBag( hw_ID,basket_count, productList ,quantityList) '定义函数PutToShopBag()并传入接受4个参数值分别安顺序赋值给4个变量hw_ID,basket_count, productList ,quantityList
If Len(productList) = 0 Then ’如果productList变量的长度为0 条件成立则执行如下语句
productList = "" & hw_ID & "" ‘productList的值就等于hw_ID变量的值
quantityList="" & basket_count & "" ’quantityList变量的值就为basket_count变量的值
ElseIf InStr( productList&",", hw_ID&"," ) <= 0 Then '否则 判断productList的值连接上字符"，"后是否包含hw_ID变量连接上字符","的值 <=0表示不包含 条件成立则执行如下语句
productList = hw_ID & ""& ", " &productList '为hw_ID变量连接上字符", "在连接上productList变量的值后赋值给productList变量
quantityList = basket_count & ", " &quantityList '同上
End If '结束条件选择语句if
session("productList")=productList '定义名为productList的session变量 值为productList变量的值
session("quantityList")=quantityList '同上
End Sub