| Support et Assistance technique. |
|
| | |
| |
[Paiement sécurisé]
|
| |
Comment-integrer-un-paiement-securise-Sips-Cybermut-etc-
| | |
| |
REM -- Initialisation de l'objet d'execution
dim transaction
set transaction = Server.Createobject("SipsExec.Execute")
REM -- affichage du debut de la page
REM -- Affectation des paramètres obligatoires
parm = "merchant_id=xxxxxxxx"
parm = parm & " merchant_country=fr"
parm = parm & " amount=100"
parm = parm & " currency_code=978"
REM -- Initialisation du chemin du fichier pathfile (à modifier)
REM -- ex : parm = parm & " pathfile=c:\\repertoire\\pathfile"
REM --
REM -- Cette variable est facultative. Si elle n'est pas renseignée,
REM -- l'API positionne la valeur à "./pathfile".
REM -- Attention, en ASP, le répertoire courant ./ sera toujours
REM -- c:\winnt\system32
parm = parm & " pathfile=C:\cyberplus\payment\param\pathfile"
REM -- Si aucun transaction_id n'est affecté, request en génère
REM -- un automatiquement à partie de heure/minute/seconde
REM -- Référez vous au Guide du Programmeur pour
REM -- les réserves émises sur cette fonctionnalité
REM --
REM -- parm = parm & " transaction_id=123456"
REM -- Affectation dynamique des autres paramètres
REM -- Les valeurs proposées ne sont que des exemples
REM -- Les champs et leur utilisation sont expliqués dans le Dictionnaire des données
REM --
REM -- parm = parm & " normal_return_url=http://www.maboutique.fr/cgi-bin/call_response.asp"
REM -- parm = parm & " cancel_return_url=http://www.maboutique.fr/cgi-bin/call_response.asp"
REM -- parm = parm & " automatic_response_url=http://www.maboutique.fr/cgi-bin/call_autoresponse.asp"
REM -- parm = parm & " language=fr"
REM -- parm = parm & " payment_means=CB,2,VISA,2,MASTERCARD,2"
REM -- parm = parm & " header_flag=no"
REM -- parm = parm & " capture_day="
REM -- parm = parm & " capture_mode="
REM -- parm = parm & " bgcolor="
REM -- parm = parm & " block_align="
REM -- parm = parm & " block_order="
REM -- parm = parm & " textcolor="
REM -- parm = parm & " receipt_complement="
REM -- parm = parm & " caddie=mon_caddie"
REM -- parm = parm & " customer_id="
REM -- parm = parm & " customer_email="
REM -- parm = parm & " customer_ip_address="
REM -- parm = parm & " data="
REM -- parm = parm & " return_context="
REM -- parm = parm & " target="
REM -- parm = parm & " order_id="
REM -- Les valeurs suivantes ne sont utilisables qu'en pré-production
REM -- Elles nécessitent l'installation de vos fichiers sur le serveur de paiement
REM --
REM -- parm = parm & " normal_return_logo="
REM -- parm = parm & " cancel_return_logo="
REM -- parm = parm & " submit_logo="
REM -- parm = parm & " logo_id="
REM -- parm = parm & " logo_id2="
REM -- parm = parm & " advert="
REM -- parm = parm & " background_id="
REM -- parm = parm & " templatefile="
REM -- insertion de la commande en base de données (optionnel)
REM -- A développer en fonction de votre système d'information
REM -- Initialisation du chemin de l'executable request (à modifier)
REM -- ex : transaction.cmdLine = "c:\\repertoire\\bin\\request.exe"
REM --
transaction.cmdLine = "C:\cyberplus\payment\bin\request.exe"
REM --
REM -- Passage des paramètres à l'objet transaction créé
REM -- Tous les paramètres initialisés précédemment doivent être passés
REM -- dans transaction.parameters pour être pris en compte
REM -- L'ordre n'a pas d'importance
transaction.parameters = parm
REM -- Appel de l'activeX pour executer request
result = transaction.executeApp()
REM -- Sortie de la fonction executeApp() : !code!error!buffer!
REM -- - code=0 : la fonction génère une page html contenue dans la variable buffer
REM -- - code=-1 : La fonction retourne un message d'erreur dans la variable error
REM -- Libération des ressources
set transaction = nothing
REM -- Exploitation des résultats
REM -- Analyse du code retour
tableau = split(result, "!")
code = tableau(1)
error = tableau(2)
if code <> 0 then
REM -- Erreur, affiche le message d'erreur
Response.Write "Erreur appel API de paiement."
Response.Write "
"
Response.Write "message erreur : " & error & "
"
else
REM -- L'execution s'est bien deroulee
message = tableau(3)
REM -- OK, affiche le message html
Response.Write "
"
Response.Write message
Response.Write "
"
end if
|
 |
|
Vérifiez
