Descripción del texto del código del carrito de compras ASP de emergencia urgente.
CartIndex = Session("cartIndex") '/// Asigna CartIndex igual a la variable del servidor CartIndex
count=0 '/// Asigne count = 0
para i=0 a CartIndex '/// Para i=0 a CartIndex una variable de servidor.
count =0 '/ // Asigna count = 0
for i=0 a CartIndex '/// El bucle comienza con i=0 y termina con i=CartIndex
if arrCart( i,2)< >"" then '/// si arrCart el elemento i,2 en la matriz bidimensional no es nulo, entonces.
if arrCart(i,2)>0 entonces ' /// si dos El valor del elemento i,2 en la matriz dimensional arrCart es mayor que 0, entonces.
count=count+1 '/// Reasigna el conteo al conteo original más 1
end if '/// Finaliza el juicio
end if ' /// Igual que arriba
siguiente '///Finalizar bucle
idbook = request.form("bookname") '/// Clase en
compra = request.form("compra") '/// Clase en
availstock = request.form("availstock") '/// Clase en
si compra < >"" luego '/// Si la compra no es nula.
purchase=Cint(purchase) '/// Forzar la conversión de la compra a una variable entera
availstock=availstock '/ // Paso de variable (variable del mismo nombre, ¡no sé cuál es el objetivo de este paso @@!)
if compra>disponible entonces '/// Si la compra es mayor que disponible entonces.
htmlcode="¡Has comprado más libros de los que había en stock! devolución " "
'/// Asigna htmlcode
response.write htmlcode '/// Muestra el valor htmlcode a la página
else '/// De lo contrario ( cuando la compra> disponible arriba no está satisfecho)
si compra>0 entonces '/// si compra>0 entonces.
llamar a openDB() '/// Llamar al procedimiento almacenado openDB (esto parece ser un procedimiento almacenado que abre un conjunto de registros)
sql="seleccione precio, descuento de libros donde idbook="&idbook&" and bookname='"&bookname&"'"
'// / Definir declaración SQL
set rs=conn.execute(sql) '/// Llamar a SQL (aquí está la consulta SQL)
nowprice=rs(" precio")*(100 -rs("Descuento"))/100
arrCart(CartIndex,0) = idbook
arrCart(CartIndex,1) = nombre del libro
arrCart(CartIndex, 2) = comprar
arrCart(CartIndex, 3) = precio ahora
>
sesión("myCart") = arrCart
CartIndex = CartIndex + 1
Session("cartIndex" ) = CartIndex
'/// La oración anterior es una transferencia de variable, no hay nada que explicar
Llamar a closeDB() '/// Llama al proceso closeDB (creo que este es el proceso de cerrar el conjunto de registros)
end if ' ///Fin del juicio
response.Redirect "showart.asp"
response.Redirect "showart.aspredirect "showcart.asp" '/// Redirigir a página showcart.asp
end if
else else (Esto queda un poco lejos, si no estás satisfecho con la compra<>""")
response.write "¡No seleccionaste el número de libros!" '/// Salida "¡No seleccionaste el número de libros!"
response.write "No seleccionaste el número de libros !'/// Salida "¡No seleccionaste el número de libros! ... "Ir a la página
finalizar si
%>
La clave El punto de su pregunta está en realidad a continuación
Globalmente interno. Hay en asa
SUB Session_OnStart '//// Cuando comienza la sesión
Session(" idcustomer. ") = "" '/// Borrar el valor
Session("adminname") = "" '/// Borrar el valor
Session("cartIndex") = Cint (0) '/// Especifica la variable del servidor cartIndex como un número entero 0
ReDim arrcart(50, 3) '/// Define una matriz bidimensional arrcart
Session( "myCart") = arrcart '/// Asigna la variable del servidor myCart a la matriz bidimensional arrcart
END SUB
SUB Session_OnEnd '/// Cuando finaliza la sesión (servidor luego se borran las variables, no se requiere explicación)
set Session("idCustomer") = Nada
set Session("adminname") = Nada