مرجع تخصصی برنامه نویسان

انجمن تخصصی برنامه نویسان فارسی زبان

کاربر سایت

mehrdad_amiri

عضویت از 1393/12/25

راهنمایی _ درگاه پرداخت

  • دوشنبه 20 مهر 1394
  • 09:58
تشکر میکنم

با سلام 

 اگه از درگاه پرداخت payline یا zarinpal استفاده کنم ،

میتونم بلافاصله بعد از هر پرداختی  گزارش پرداخت ها رو در db سایت خودم ذخیره کنم ؟

 

پاسخ های این پرسش

تعداد پاسخ ها : 3 پاسخ
کاربر سایت

ایمان مدائنی

عضویت از 1392/01/20

  • دوشنبه 20 مهر 1394
  • 10:33

سلام بله میتونید

api رو ارائه میدهند

من از payline استفاده کردم این امکان رو داشت

کاربر سایت

mehrdad_amiri

عضویت از 1393/12/25

  • دوشنبه 20 مهر 1394
  • 10:39

خوبه پس - تشکر 

کاربر سایت

سید سادات

عضویت از 1394/02/22

  • سه شنبه 21 مهر 1394
  • 01:16

خیلی ساده میتونید مقادیر رو بعد پرداخت بدست بیارید و اتوماتیک در دیتا بیس ذخیره کنید

 

کمی ب دستور دقت کنید متوجه میشید من دقیقا همین کارو کردم

 

فرستنده 
    Protected Sub ImageButton11_Click(sender As Object, e As ImageClickEventArgs) Handles ImageButton11.Click




        Dim id As String
        id = IdText.Text
        Session("id") = id
        'Response.Redirect("IntroPageDL.aspx?")


        'Dim price As String
        'price = PriceText.Text
        'Session("price") = price
        'Response.Redirect("IntroPageDL.aspx?")

        'Dim name As String
        'name = NameText.Text
        'Session("name") = name
        'Response.Redirect("IntroPageDL.aspx?")



        Dim file0 As String
        file0 = FileText.Text
        Session("file0") = file0

        Dim Toman As Integer
        Toman = PriceText.Text



        If PriceText.Text = "0" Then
            Response.Redirect("ReadyToDownloadFile.aspx")
        Else
         

            'Dim ID As String
            'ID = TextBox1.Text
            'Response.Redirect("Default2.aspx?recordID=" & ID & "")
            '//////////////////////////////////////////////////////////////////////////PayLINE. fagat in dastorat kafiye ////////////

            Try
                Dim Pay As New PayLine()
                Dim amount As Double

                amount = Convert.ToInt32(Toman)

                Dim result As String = Pay.Send("http://payline.ir/payment/gateway-send", "13173-b7e48-caad2-8a851-e64c95b3742813481544ada547b6", amount, "http://www.vmsadr.ir/ReadyToDownloadFile.aspx?orderid=" & id & "")
                If Integer.Parse(result) > 0 Then
                    Response.Redirect("http://payline.ir/payment/gateway-" & result)

                Else
                    'if -1 or -2 or -3 or -4 
                    'Can use swich case For Reports

                    Response.Write("Not Valid")
                End If
            Catch
                Response.Write("Not Response")
            End Try
            '//////////////////////////////////////////////////////////////////////////PayLINE. fagat in dastorat kafiye ////////////


        End If










    End Sub

 

گیرنده

 

 


    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim file0 As String
        file0 = CType(Session("file0"), String)
        FileText.Text = file0

        Dim id As String = Request.QueryString("orderid")

        TextBox2.Text = id

   
        Try

            Dim files As String = (CType(DataList2.Controls(0).FindControl("Label10"), Label).Text)
            FileText.Text = files
        Catch
        End Try



        HyperLink1.NavigateUrl = "~/Upload/" + FileText.Text


    End Sub

 

کاربرانی که از این پست تشکر کرده اند

هیچ کاربری تا کنون از این پست تشکر نکرده است

اگر نیاز به یک مشاور در زمینه طراحی سایت ، برنامه نویسی و بازاریابی الکترونیکی دارید

با ما تماس بگیرید تا در این مسیر همراهتان باشیم :)