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>
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>
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") p>
VarTotalItem = 0
For i = Lbound(mudCart) TO Ubound(mudCart)
Si mudCart(i, 0) lt;gt "" Entonces p>
varTotalItem = varTotalItem Cint(mudCart(i, 1))
Fin si
Siguiente
ElseIf CartObj.CheckCart= False Then p>
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