Red de conocimiento informático - Espacio del host - Quiero crear un sitio web, ¿cómo hago el pago (sistema de recarga) en el sitio web? Agregue 100 primero y obtenga puntos extra si responde bien.

Quiero crear un sitio web, ¿cómo hago el pago (sistema de recarga) en el sitio web? Agregue 100 primero y obtenga puntos extra si responde bien.

Si desea crear un sistema de pago en línea usted mismo, primero debe hablar con el banco. Si se aprueba, el banco le proporcionará una interfaz y podrá llamarlo directamente. Pero, en general, a los particulares les resulta difícil tratar con los bancos. Sin embargo, puede pagar en línea a través de CapitalX.

Es más fácil hablar de ello

Aquí hay un fragmento de código

cartkit.asp

---------------- -- -------

Clase CartKit

Sub CreateCart()

Si IsArray(Session("Cart")) = false Entonces

Dim mudCart(19,1)

Session("Cart") = mudCart

End If

End Sub

Dim myArray(3, 1)

ReDim Preserve myArray(3, 2)

Dim myArrayID(1), myArrayQty(1)

Función AddItem( ID, Cantidad)

Establecer CartObj = New CartKit

varCartStatus = CartObj.CheckCart

Si varCartStatus=false Entonces

CartObj .CreateCart

mudCart=Sesión("Carrito")

mudCart(0, 0)=ID

mudCart(0, 1)=Cantidad

Session("Cart")=mudCart

Función de salida

ElseIf varCartStatus=true Entonces

Si CartObj.CheckItem(ID) = true Entonces

Si CartObj.CheckItem(ID) = true Entonces

p>

ID de CartObj.UpdateItem, cantidad

Elseif cartObj.CheckItem(ID) = false Entonces

mudCart = Session("Carrito")

Para i = LBound(mudCart) TO UBound(mudCart)

Si mudCart(i, 0) = "" Entonces

mudCart(i, 0) = ID

mudCart(i, 1) = Cantidad

Sesión("Cart") = mudCart

Función de salida

Finalizar si

Siguiente

Finalizar si

Finalizar si

Finalizar función

Función RemoveItem (ID)

mudCart=Session("Cart")

For i = LBound(mudCart) TO Ubound(mduCart)

If myArray(i, 0 ) = ID Entonces

Pos=i

Salir para

Finalizar si

Siguiente

Para i = Pos TO UBound(myArray) - 1

Si no es myArray(i, 0) = "" Entonces

myArray(i, 0) = myArray(i 1, 0)

p>

myArray(i, 1) = myArray(i 1, 1)

Finalizar si

Siguiente

Finalizar función

roleproxy.asp

' Procesamiento en segundo plano

varAction=CStr(Request.QueryString("ac"))

Establecer mudCartObj = Nuevo CartKit

varID = CStr(Request.Form("ID"))

varQty = Request.QueryString("qty")

If varAction=" por" Entonces

p>

mudCartObj.AddItem varID, varQty

p>

ElseIf varAction="rm" Entonces

mudCartObj.RemoveItem varID

ElseIf varAction="up" Entonces

mudCartObj.UpdateItem varID, varQty

ElseIf varAction="ra" Entonces

mudCartObj.RemoveAll

ElseIf varAction="co" Entonces

MudcartObj.CheckOut

p>

ElseIf varAction="cs" Then

MudcartObj.ContinueShopping

Finalizar si

Función CartStatus()

varTotalItems = 0

Establecer CartObj = New CartKit

Si CartObj.CheckCart = true Entonces

MudCart = Session("Cart")

VarTotalItem = 0

For i = Lbound(mudCart) TO Ubound(mudCart)

Si mudCart(i, 0) lt;gt "" Entonces

varTotalItem = varTotalItem Cint(mudCart(i, 1))

Fin si

Siguiente

ElseIf CartObj.CheckCart= False Then

varTotalItem="0"

Fin si

CartStatus=varTotalItem Función final

Establecer CartObj = Nada

Fin Función

lt;="Has comprado " & Response.Write CartObj.CartStatus & _

"

A la moda."gt;

También hay una comunidad Alipay /show_thread-128-1--5737944-.htm, échale un vistazo