¡Ayude a traducir códigos relacionados con el carrito de compras ASP!

Sub PutToShopBag( hw_ID,basket_count, productList,quantityList) 'Defina la función PutToShopBag() y pase los valores de los cuatro parámetros para aceptar las cuatro variables hw_ID, basket_count, productList,quantityList y asigne valores a estas cuatro variables en orden. productList,quantityList

Si Len(productList) = 0 Entonces 'Si la longitud de la variable productList es 0 y la condición es válida, ejecute la siguiente instrucción

productList = "" & hw_ID & "" 'El valor de productList es el valor de la variable hw_ID

quantityList = "" & basket_count & "" 'El valor de la variable cantidadList es el valor de la variable basket_count

quantityList = "" & basket_count & "" El valor de la variable 'quantityList es el valor de la variable basket_count. variable de recuento

ElseIf InStr( productList&","", hw_ID&"," ) <= 0 Then 'De lo contrario, determine si el valor de productList con los caracteres ", " contiene el hw_ID con los caracteres ", " El valor de la variable <= 0 significa no incluido.

Contiene si la condición es verdadera ejecuta la siguiente sentencia

productList = hw_ID & ""& ", ", " &productList El valor de la variable 'hw_ID se concatena con el carácter ", " asignado a productList variable, y luego se concatena con productList Los valores de las variables están conectados

cantidadList = basket_count & ", " & cantidadList 'Igual que arriba

End If 'Finalizar selección condicional declaración if

session("productList" ) = productList 'Definir una sesión llamada productList' Utilice el valor de la variable productList para definir una variable de sesión llamada productList

session("quantityList" )=quantityList 'Igual que arriba

End Sub

Sub PutToShopBagsegundo( hw_ ID, basket_count, productList ,quantityList)

Si Len(productList) = 0 Entonces

productList = "" &hw_ID & ""

quantityList= "" & basket_count & ""

ElseIf InStr( productList& ",", hw_ID& " ," ) <= 0 Entonces

productList = hw_ID & "" & ", " & productList

quantityList = basket_count &", " &quantityList

Fin If

session("productList" )=productList

session("quantityList") = cantidadList

End Sub

productList = session("productList" )

listadecantidades = sesión("listadecantidades")

si Solicitud("hw_ID")<>"Entonces

Solicitud PutToShopBag("hw_ID"), "1",listadeproductos、

finaliza si

sesión("listadeproductos")=listadeproductos

sesión("listadecantidades")=listadecantidades

Head="Aquí tienes una lista de los artículos que estás comprando" 'Asigna un valor a la variable Head

If Request("clear") = "yes" Then ' Si el valor del parámetro clear pasado en la página anterior es sí

productList = ""'El valor de la variable productList está vacío

quantityList = "" 'Igual que arriba

session(" ListaProductos") = ListaProductos 'Igual que arriba

sesión(

"quantityList")= cantidadList 'Igual que arriba

Finalizar si

If Request("MySelf") = "Sí" Entonces

productList = """

quantityList = """

products = Split(Request("hwID"), ", ") Obtenga el valor del parámetro hwID pasado en la página anterior y asígnelo al producto , use split La función atraviesa la matriz y usa el delimitador "," For I=0 To UBound(products) ' for loop Ubound(products) para obtener el subíndice máximo de la matriz de productos

j =UBound(products)-i 'El subíndice máximo del producto menos i se asigna a la variable j (debe seguir al flashback)

j=UBound(products)-i 'El subíndice máximo del producto menos i Asigna el valor de i a la variable j (debe seguir un flashback). value)

tempQuantity=Request("basket_count"&products(j)) 'Obtiene el valor j+1 del parámetro basket_count con el mismo nombre y cópialo en tempQuantity

if tempQuantity="" entonces tempQuantity=1 'Si tempQuantity="", entonces tempQuantity=1 'Entonces tempQuantity=1 'Entonces tempQuantity=1 'Si tempQuantity="" entonces tempQuantity=1 'Entonces tempQuantity=1 'Entonces tempQuantity=1 ' Luego tempQuantity=1 'Entonces tempQuantity=1 'Luego tempQuantity="".luego tempQuantity=1 'Si el valor de tempQuantity está vacío, reasigne la variable tempQuantity a 1

' j=i

PutToShopBagsegundo productos(j), tempQuantity.productList,quantityList 'Llama a la función puToShopBagsegundo y pasa 4 parámetros productos(j), tempQuantity,productList,quantityList (No estoy seguro acerca de esta función, el nombre de la función (parámetros) debe ser llamado al llamar a la función)

Siguiente paso

sesión("productList") = productList 'Declaración de asignación

session("quantityList") = cantidadList 'Asignación declaración

Finalizar si