folder Tahribat.com Forumları
linefolder C#, Asp.Net, .Net Core
linefolder ASP Kodları ASP.NET‘E Çevirebilecek Var Mı?(Akbanksanalpos)



ASP Kodları ASP.NET‘E Çevirebilecek Var Mı?(Akbanksanalpos)

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    cemnet
    cemnet's avatar
    Kayıt Tarihi: 18/Eylül/2007
    Erkek

    Kodlar burda arkadaşlar. Belki elinizde direk asp.net c# halide vardır. paylaşırsanız çok makbule geçecek.

     

     

    <%

    Uyisno="xxxxxxx"

    Sifre="xxxxxx"

    ClientId="xxxxxxx"

     

    Dim sayi ,sayi2

    Randomize 

    sayi = int((Rnd * 9999999999 )+1 ) 

     

    Randomize 

    sayi2 = int((Rnd * 9999999999 )+1 ) 

     

    d="HZLSPRS-" & sayi  & " - " & sayi2

     

       Set SrvHTTPS = Server.CreateObject("MSXML2.ServerXMLHTTP")

       Set XMLSend = Server.CreateObject("MSXML2.DOMDocument")

       Set XMLReceive = Server.CreateObject("MSXML2.DOMDocument")

     

    Set sendroot = XMLSend.createElement("CC5Request")

    Set e1 = XMLSend.createElement("Name")

    e1.text= Uyisno    

    sendroot.appendChild(e1)

    Set e1 = XMLSend.createElement("Password")

    e1.text= Sifre    

    sendroot.appendChild(e1)

    Set e1 = XMLSend.createElement("ClientId")

    e1.text= ClientId        

    sendroot.appendChild(e1)

    Set e1 = XMLSend.createElement("Mode")

    e1.text= "P"              

    sendroot.appendChild(e1)

    Set e1 = XMLSend.createElement("OrderId")

    e1.text=d

    sendroot.appendChild(e1)

    Set e1 = XMLSend.createElement("Type")

    e1.text= "Auth"        

    sendroot.appendChild(e1)

    Set e1 = XMLSend.createElement("Number")

    e1.text= KART_NO 'KREDİ KARTI NUMARASI

    sendroot.appendChild(e1)

    Set e1 = XMLSend.createElement("Expires")

    e1.text= KART_AY & "/" &  KART_YIL'KREDİ KARTI  AY YIL 

    'Request.Form("CC_MONTH") & "/" &  Request.Form("CC_YEAR")      //MM YY formatinda son kullanma tarihi

    sendroot.appendChild(e1)

    Set e1 = XMLSend.createElement("Cvv2Val")

    e1.text= KART_CV2'KREDİ KARTI CVC NUMARASI

    sendroot.appendChild(e1)

    Set e1 = XMLSend.createElement("Total")

    e1.text= CEKILECEK_TUTAR 'ÇEKİLECEK TUTAR  örn : 85 - 95 - 150 gibi

    sendroot.appendChild(e1)

    Set e1 = XMLSend.createElement("Currency")

    e1.text= "949"          

    sendroot.appendChild(e1)

    Set e1 = XMLSend.createElement("UserId")

    e1.text= Request.Form("ID")

    sendroot.appendChild(e1)

      Set e1 = XMLSend.createElement("email")

      e1.text= lCase(Request.Form("CC_EMAIL"))

      sendroot.appendChild(e1)

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

      Set sendbillto = XMLSend.createElement("BillTo")

     

    Set b1 = XMLSend.createElement("Name")

      b1.text=KART_SAHIBI'KREDİ KARTI SAHİBİ

      sendbillto.appendChild(b1)

     

      Set b1 = XMLSend.createElement("Street2")

      b1.text= "IP = "&Request.ServerVariables("REMOTE_ADDR")

      sendbillto.appendChild(b1)

      Set b1 = XMLSend.createElement("Street3")

      b1.text= "IP = "&Request.ServerVariables("REMOTE_ADDR")

      sendbillto.appendChild(b1)

      Set b1 = XMLSend.createElement("City")

      b1.text= Request.Form("CC_ADR3")

      sendbillto.appendChild(b1)

       Set b1 = XMLSend.createElement("TelVoice")

       b1.text= Request.Form("CC_TEL")   

      sendbillto.appendChild(b1)

      sendroot.appendChild(sendbillto)

     

    XMLSend.documentElement=sendroot

    XMLSend.async = false

    XMLSend.resolveExternals = false

     

     

     SrvHTTPS.open "POST","https://www.sanalakpos.com/servlet/cc5ApiServer",false

       SrvHTTPS.setRequestHeader "Content-Type","application/x-www-form-urlencoded"

       SrvHTTPS.send "DATA="+XMLSend.xml

     

       Set XMLReceive = SrvHTTPS.responseXML

       

    res = XMLReceive.selectSingleNode("/CC5Response/Response").text

    ErrorMsg = XMLReceive.selectSingleNode("/CC5Response/ErrMsg").text

     

     

    SONUCUN=res

    HATADETAYI=ErrorMsg

     

    If trim(SONUCUN)="Approved" then

    'İŞLEM ONAYLANDI

    end if

    %>

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SpArK
    SpArK's avatar
    Kayıt Tarihi: 17/Temmuz/2005
    Erkek

    http://msdn.microsoft.com/en-us/library/dddsc60w(VS.71).aspx

     

    iyi okumalar ^_^

     

    http://www.netcoole.com/asp2aspx.htm

    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SharpShooter
    SharpShooter's avatar
    Banlanmış Üye
    Kayıt Tarihi: 10/Temmuz/2008
    Erkek

    http://www.cenksari.com/Yazi/AspNet-Sanal-pos-entegrasyonu-Epayment.aspx

    burada vb ile yapmış çalışır mı bilmem :)

    biraz araştırırsan c# ile de bulursun.

    - xx yerde hata var. - ya aslında kod şöyle sanıyor olabilir bla bla bla - olm kendine gel kodlar düşünmez - ...
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    cemnet
    cemnet's avatar
    Kayıt Tarihi: 18/Eylül/2007
    Erkek

    aldım ordaki örnek kodları çalışırsa vb çevirmesi kolay en azından alttaki gibi bir site var :)

     

    http://www.developerfusion.com/tools/convert/csharp-to-vb/

    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DrEgHoT
    DrEgHoT's avatar
    Kayıt Tarihi: 12/Eylül/2007
    Erkek

    garanti hariç 5 tane bankanın sanal pos örneği var bende asp.net c# ile yapılmış şuan iş yerindeyim akşama eve gidince gönderebilirim istersen.

    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    cemnet
    cemnet's avatar
    Kayıt Tarihi: 18/Eylül/2007
    Erkek

    teşekkürler @DrEgHoT bulmuştum örnek kodları

    Reply With Quote Alıntı yap
Toplam Hit: 1449 Toplam Mesaj: 6