با سلام
اگه از درگاه پرداخت payline یا zarinpal استفاده کنم ،
میتونم بلافاصله بعد از هر پرداختی گزارش پرداخت ها رو در db سایت خودم ذخیره کنم ؟
سلام بله میتونید
api رو ارائه میدهند
من از payline استفاده کردم این امکان رو داشت
خوبه پس - تشکر
خیلی ساده میتونید مقادیر رو بعد پرداخت بدست بیارید و اتوماتیک در دیتا بیس ذخیره کنید
کمی ب دستور دقت کنید متوجه میشید من دقیقا همین کارو کردم
فرستنده 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
هیچ کاربری تا کنون از این پست تشکر نکرده است
با ما تماس بگیرید تا در این مسیر همراهتان باشیم :)