Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Asp / Asp.NET
  • Bu Konuda
Şimdi Ara

Vakıfbank Sanal Pos

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Bu Konudaki Kullanıcılar:
2 Misafir - 2 Masaüstü
5 sn
6
Cevap
0
Favori
4.714
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Arkadaşlar Asp ile kodlanmış bir alışveriş sitemiz var. Sitemize Vakıfbank tanımlı değildi. Şimdi vakıfbank ıda aldık ve bize kod gönderdiler. Ama ne kadar uğraştıysam entegre edemedim. Sistem hangi taksite tıklanırsa o bankanın dosyasını otamatik olarak seciyor. (vposvakif.asp)

    Bize gönderdiği kodlar.

    <html>
    <head>
    <meta http-equiv="Content-Language" content="tr">
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
    <title>VakıfBank VPos-724</title>
    </head>
    <body>

    <%

    Dim Donus
    Dim RequestMsg

    RequestMsg="V3 MESAJ FORMATINA UYGUN OLARAK MESAJ"

    Set x = Server.CreateObject("Msxml2.XMLHTTP")
    x.open "GET", "https://subesiz.vakifbank.com.tr/vpos724v3/?" & RequestMsg, False
    x.send

    Donus=x.responseText

    response.write("<p>Cevap:" & Donus)

    response.write("<p>Donus cevabi XML formatindadir.Parse edilerek dokumana uygun sekilde kullanilmalidir.")

    %>

    </body>
    </html>


    Talep mesajı bu şekilde olucakmış.

    HTTP GET methodu için aşağıdaki query string kullanılabilir:
    ?kullanici=0001&sifre=12345678&islem=PRO&uyeno=061234567&posno=04123456&kkno=0000000000000000&gectar=0000&cvc=000&tutar=000010000000&provno=000000&taksits=00&islemyeri=I&uyeref=UYEREF&vbref=0&khip=195.195.195.195&xcip=1111111111


    Örnek geri dönen cevap mesajı

    <Cevap><Msg>
    <Kod>00</Kod><Status>01</Status>
    <Tutar>999998</Tutar><ProvNo>793224</ProvNo>
    <PPuan>000000050000</PPuan><PPuanTL>000000050000</PPuanTL>
    <EPuan/><EPuanTL>000000000000</EPuanTL>
    <SPuan>000000075000</SPuan><SPuanTL>000000075000</SPuanTL>
    <HPuan>000000000000</HPuan><HPSatis>000000000000</HPSatis>
    <HBPuan>000000603353</HBPuan>
    <TaksitS>02</TaksitS>
    <Mesaj>ONAY KODU:793224</Mesaj>
    <VBRef>0DDF106A136A211645ECEF072D1077AA002A8D1E</VBRef><UyeRef>UYEREF123</UyeRef>
    <BKMKod>08</BKMKod>
    </Msg></Cevap>


    Ve bizim sistemde oLan çalışır durumdaki Yapıkredi örnek kod.

    <%

    Number = Trim(Number)
    Ay = Trim(Right(Ay,2))
    Yil = Trim(Right(Yil,2))
    Cvv2Val = Trim(Cvv2Val)
    total = Trim(total)
    gExpire = Ay & Yil

    '--------------------------------------------
    gServer = "https://www.posnet.ykb.com/PosnetWebService/XML"
    'gServer = "http://setmpos.ykb.com/PosnetWebService/XML" 'TEST
    '--------------------------------------------

    postdata = "<posnetRequest>" & vbNewLine
    postdata = postdata & " <mid>" & Name & "</mid>" & vbNewLine
    postdata = postdata & " <tid>" & Password & "</tid>" & vbNewLine
    postdata = postdata & " <sale>" & vbNewLine
    postdata = postdata & " <amount>" & total & "</amount>" & vbNewLine
    postdata = postdata & " <ccno>" & Number & "</ccno>" & vbNewLine
    postdata = postdata & " <currencyCode>YT</currencyCode>" & vbNewLine
    postdata = postdata & " <cvc>" &Cvv2Val& "</cvc>" & vbNewLine
    postdata = postdata & " <expDate>" &gExpire& "</expDate>" & vbNewLine
    postdata = postdata & " <orderID>" & OrderId & "</orderID>" & vbNewLine
    postdata = postdata & " <installment>" &taksit& "</installment>" & vbNewLine
    postdata = postdata & " </sale>" & vbNewLine
    postdata = postdata & "</posnetRequest>" & vbNewLine

    '------------------------------------
    postData = "?xmldata=" & Server.URLEncode(postData)
    '------------------------------------
    Set Xobj = Server.CreateObject("Msxml2.XMLHTTP")
    Xobj.Open "POST",gServer,false
    Xobj.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
    Xobj.Send postData
    result = Xobj.Responsetext

    'Set Xobj = CreateObject("SOFTWING.ASPtear")
    'Xobj.FollowRedirects=True
    'result = Xobj.Retrieve(gServer, 1, postData, "", "")

    Set Xobj = Nothing

    donenxml = result

    'Response.Write "<P>" & donenxml
    'Response.End

    '------------------------------------
    Set objXML = CreateObject("Microsoft.XMLDOM")
    objXML.async = false
    objXML.LoadXML donenxml

    approved = objXML.childNodes(1).childNodes(0).text
    respCode = objXML.childNodes(1).childNodes(1).text
    respText = objXML.childNodes(1).childNodes(2).text
    yourIP = objXML.childNodes(1).childNodes(3).text

    sonuc ="<B>İşlem Sonucu dönen değerler</B><P> "
    sonuc = sonuc & "approved :" & approved & "<BR>"
    sonuc = sonuc & "respCode :" & respCode & "<BR>"
    sonuc = sonuc & "respText :" & respText & "<BR>"
    sonuc = sonuc & "yourIP :" & yourIP & "<BR>"

    'response.write sonuc
    'response.End

    Set objXML=Nothing

    '------------------------------------

    If approved <> 0 Then

    k_sonuc="ok"

    Else

    k_sonuc="hata"
    hata = respCode &"<P>"& respText

    End If

    %>



    < Bu mesaj bu kişi tarafından değiştirildi samsunluesmer -- 11 Ekim 2008; 12:11:47 >







  • Bence son derece açık bri şekilde ifade edilmiş. Yapıkredi örneğinde post methodu, Vakıfbank'ta ise get methodu kullanılıyor. Vakıfbantan dönen tepki üstteki gibi mi yoksa o gerçekten örnek mi? Hata mesajı falan var mı?

    "Get" istek methodunda dikkat edilmesi gereken tek şey url'yi encode etmek. urlencode() methodunu kullanarak dene.
  • Vakıfbank dan dönen tepki örnekdir. Ama bu sekilde bir verinin gelmesi gerekiyormuş. Asp den anlamadığım için nasıl get methodu kullanıcamı da bilmiyorum. bu konuda yardımcı olabilirseniz çok sevinirim. saygılarımla..
  • oradaki donus değerini parse etmen yani işlemen gerekiyor.
    ASP de bu şekilde yapman gerekiyor.
    Biraz kodlar ile uğraşman gerekiyor.



    < Bu mesaj bu kişi tarafından değiştirildi attagun -- 12 Ekim 2008; 23:34:42 >
  • Arkadaşlar bildiklerinizi kod olarak yazarmısınız. gerçekden yardıma ihtiyacım var. anlamıyorum asp den.
  • Dreamveawer biliyorsan gelen bir xml i nasıl web sayfanda gösterebilirsin yada incelersin otomatik uygulaması var ama tabi bunun için bilen biri sana tarif etmeli yada lynda derslerinden uygun olanı indirip izlemelisin.
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız