1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
<%@ Page Language="VB" AspCompat="true" %>
<%
'--------------------------------------------------------------
' Topic : Exemple ASP traitement de la requête de paiement
' Version : P600
' Dans cet exemple, on affiche un formulaire HTML
' de connection Ã* l'internaute.
'--------------------------------------------------------------
' Initialisation de l'objet d'execution
dim transaction = Server.Createobject("SipsExec.Execute")
' Affichage du debut de la page
response.write "<HTML><HEAD><TITLE>E-TRANSACTIONS - Paiement Securise sur Internet</TITLE></HEAD>"
response.write "<BODY bgcolor=#ffffff>"
response.write "<Font color=#000000>"
response.write "<center><H1>Test de l'API ASP E-TRANSACTIONS</H1></center><br><br>"
' Affectation des paramètres obligatoires
dim parm = "merchant_id=013044876511111"
parm = parm & " merchant_country=fr"
parm = parm & " amount=100"
parm = parm & " currency_code=978"
' Initialisation du chemin du fichier pathfile (à modifier)
' ex : parm = parm & " pathfile=c:\\repertoire\\pathfile"
parm = parm & " pathfile=chemin_du_fichier_pathfile"
' Si aucun transaction_id n'est affecté, request en génère
' un automatiquement à partie de heure/minute/seconde
' Référez vous au Guide du Programmeur pour
' les réserves émises sur cette fonctionnalité
' parm = parm & " transaction_id=123456"
' Affectation dynamique des autres paramètres
' Les valeurs proposées ne sont que des exemples
' Les champs et leur utilisation sont expliqués dans le Dictionnaire des données
'
' parm = parm & " normal_return_url=http://www.maboutique.fr/cgi-bin/call_response.aspx"
' parm = parm & " cancel_return_url=http://www.maboutique.fr/cgi-bin/call_response.aspx"
' parm = parm & " automatic_response_url=http://www.maboutique.fr/cgi-bin/call_autoresponse.aspx"
' parm = parm & " language=fr"
' parm = parm & " payment_means=CB,2,VISA,2,MASTERCARD,2"
' parm = parm & " header_flag=no"
' parm = parm & " capture_day="
' parm = parm & " capture_mode="
' parm = parm & " bgcolor="
' parm = parm & " block_align="
' parm = parm & " block_order="
' parm = parm & " textcolor="
' parm = parm & " receipt_complement="
' parm = parm & " caddie="
' parm = parm & " customer_id="
' parm = parm & " customer_email="
' parm = parm & " customer_ip_address="
' parm = parm & " data="
' parm = parm & " return_context="
' parm = parm & " target="
' parm = parm & " order_id="
' Les valeurs suivantes ne sont utilisables qu'en pré-production
' Elles nécessitent l'installation de vos fichiers sur le serveur de paiement
' parm = parm & " normal_return_logo="
' parm = parm & " cancel_return_logo="
' parm = parm & " submit_logo="
' parm = parm & " logo_id="
' parm = parm & " logo_id2="
' parm = parm & " advert="
' parm = parm & " background_id="
' parm = parm & " templatefile="
' insertion de la commande en base de données (optionnel)
' A développer en fonction de votre système d'information
' Initialisation du chemin de l'executable request (à modifier)
' ex : transaction.cmdLine = "c:\\repertoire\\bin\\request.exe"
transaction.cmdLine = "chemin_de_l'executable_request"
' Passage des paramètres à l'objet transaction créé
' Tous les paramètres initialisés précédemment doivent être passés
' dans transaction.parameters pour être pris en compte
' L'ordre n'a pas d'importance
transaction.parameters = parm
' Appel de l'activeX pour executer request
dim result = transaction.executeApp()
' Sortie de la fonction executeApp() : !code!error!buffer!
' - code=0 : la fonction génère une page html contenue dans la variable buffer
' - code=-1 : La fonction retourne un message d'erreur dans la variable error
' Libération des ressources
transaction = nothing
' Exploitation des résultats
' Analyse du code retour
dim tableau = split(result, "!")
dim code = ""
code = tableau(1)
dim error_msg = tableau(2)
if code.Equals("") then
' Erreur, affiche le message d'erreur
response.write "<center><b><h2>Erreur appel API de paiement.</h2></center></b>"
response.write "<br><br><br>"
response.write "message erreur : " & error & "<br>"
else
' L'execution s'est bien deroulee
dim message = tableau(3)
' OK, affichage du mode DEBUG si activé
response.write "<br><br>"
response.write error
' OK, affiche le message html
response.write "<br><br>"
response.write message
response.write "<br>"
end if
response.write "</BODY></HTML>"
%> |
e-transaction du Crédit Agricole à bannir !
...
Répondre avec citation
Partager