Sanal POS uygulamalarına örnek teşkil etmesi için Garanti Bankası sanal POS kodları;
http://www.dalar.net/files/SanalPos.zip
Bu da ASP ile yazılmış olan ve DLL (component) gerektirmeyen bir sanal POS sistemi;
Garanti E-Ticaret XML Entegrasyon APIsi (DLL' e gerek yok) - Zoque.Forum
Bu da Garanti Bankası sanal POS'unun ASP kodları;
<html>
<head>
<title>Garanti Bankası VPos ASP Kodları</title>
</head>
<body>
<%
siparis_kodu=Trim(Request.Form("siparis_kodu" )) ' Sipariş Numarası
dosyaadi="sizindosyaniz" ' Garanti Bankasının Verdiği .pem doyasının adı
kullanici=Trim(Request.Form("kullanici" )) ' Kullanıcı
isim=Trim(Request.Form("isim" )) ' Müşteri Adı Soyadı
cvv=Trim(Request.Form("cvv" )) ' Güvenlik Kodu
kkno=Trim(Request.Form("kkno" )) ' Kredi Kartı No
kkay=Trim(Request.Form("kkay" )) ' Son Kullanım Tarihi : Ay - 09 gibi
kkyil=Trim(Request.Form("kkyil" )) ' Son Kullanım Tarihi : Yıl
tutar=Trim(Request.Form("tutar" )) ' Tutar - 70000000 gibi
email=Trim(Request.Form("email" )) ' Müşteri E-Mail Adresi
urunkodu=Trim(Request.Form("urunkodu" )) ' Ürün Kodu
urunisim=Trim(Request.Form("urunisim" )) ' Ürün İsmi
adet=Trim(Request.Form("adet" )) ' İstenilen Adet
filename="C:\garanti\" &dosyadi&".pem"
host="sanalpos.garanti.com.tr"
chargetype="SALE"
Dim error
Set payw = CreateObject("EstPayCom.Payment" )
payw.Oid = siparis_kodu
payw.Configfile = dosyadi
payw.Keyfile = filename
payw.Host = host
payw.Userid = kullanici
payw.Bname = isim
payw.Cv2 = cvv
payw.Cardnumber = kkno
payw.Chargetype = chargetype
payw.Expmonth = kkay
payw.Expyear = kkyil
payw.Subtotal = tutar
payw.Email = email
payw.Result = 0 ' Test İçin 1 Yazmalısınız.
ret_code = payw.AddItem(urunkodu,urunisim,tutar,adet,"" ,"" ,"" )
If Not ret_code = 0 Then
error = "ERROR " & payw.ErrMsg
End If
ret_code = payw.ProcessOrder()
If payw.Appr="APPROVED" AND payw.code<>"" AND payw.ERR="" Then
<H2>Alışveriş İşleminiz başarıyla tamamlanmıştır.</H2>
Else
<H2>Kredi kartınız onaylanmadı. Lütfen tekrar deneyiniz.</H2>
End If
%>
</body>
</html>
<% Set payw = Nothing %>
Bu sanal POS sistemini kullanabilmek için sunucunuzda vpost bileşeni kurulu olmalı.