<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="3dodemepaymec.aspx.vb" Inherits="._3dodemepaymec" %>
<%@ Import Namespace="ASPNetPortal" %>
Ödeme Sayfası
3D Ödeme Sayfası
<%
' Pop-up nasıl açılıp kapanacağını elvan biliyi :)) onları yazmadim
Dim anahtar As String = Session("Key3D") ' 3d Secure Key olacak güvenlik anahtarı
Dim siteno As String = Session("GetwayUserName") ' MerchantId kullandik.
Dim banka As String = Session("GetwayId") ' İşlem yapılan banka numarası
Dim siparisno As String = Request.Form("SiparisNo") ' İşlem sipariş numarası
Dim tutar As String = Request.Form("Tutar") ' Ödeme tutarı
Dim taksit As String = Request.Form("Taksit") ' Taksit adeti ( Tek çekim ise sadece 0 yazılır )
Dim sonuckodu As String = Request.Form("SonucKodu") ' Ödeme Sonuç Kodu
Dim errormsg As String = Request.Form("ErrorMsg") ' Hata Mesajı
Dim PaymecSecureKeyBack As String = Request.Form("PaymecSecureKey") ' SHA1 HASH imzası
Session("SonucKodu") = errormsg
Session("SonucAciklamasi") = errormsg
' Hash leme yapacağız.
Dim PaymecSecureKey As String = vpos2.EncryptSHA1(siteno + banka + siparisno + tutar + taksit)
'Dim PaymecSecureKey As String = b64_sha1(anahtar & siteno & banka & siparisno & tutar & taksit)
Dim ToSendMail As String = _portalsettings.Email
If ConfigurationManager.AppSettings("SmtpMailOrders") <> "" Then
ToSendMail = ConfigurationManager.AppSettings("SmtpMailOrders")
End If
'If PaymecSecureKeyBack = PaymecSecureKey Then
If sonuckodu = "1" Then
Session("SonucKodu") = sonuckodu
Response.Write("TEBRİKLER ! ")
Response.Write("Ödemeniz tamamlandı. ")
Response.Write("Sipariş No : " & siparisno & " ")
Dim sb As New StringBuilder()
sb.AppendLine("")
Response.Write(sb.ToString())
Else
Session("SonucKodu") = errormsg
Response.Write("HATA ! ")
Response.Write("Ödeme tamamlanamadı. ")
Response.Write("Hata Mesajı : " & errormsg & " ")
Dim OkStatus As String = "1234"
If Not ConfigurationManager.AppSettings("Pay3dOkStatus") Is Nothing Then
OkStatus = ConfigurationManager.AppSettings("Pay3dOkStatus")
End If
Dim _portalSettings As PortalSettings
_portalSettings = CType(HttpContext.Current.Items("PortalSettings"), PortalSettings)
Dim tmpOrder As ASPNetPortal.TempOrder
Dim UserId As String = ""
Dim UserName As String = ""
Dim mail As New webmail
If Session("TempOrder") Is Nothing Then
tmpOrder = New ASPNetPortal.TempOrder
Else
tmpOrder = Session("TempOrder")
End If
Try
If HttpContext.Current.User.Identity.IsAuthenticated() Then
UserId = Context.User.Identity.Name.Split("|")(0)
If IsNumeric(UserId) Then
Dim ua As New ASPNetPortal.UsersDB
Dim dr As SqlDataReader
dr = ua.GetUserIndirim(UserId)
dr.Read()
UserName = ChkNullString(dr(3))
dr.Close()
End If
End If
' log error
Dim py As New PaymentsDB
py.AddPayment(tmpOrder, UserId, "
Banka 3D mesajı :" & errormsg)
If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then
mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Onayı Alınamadı(3D)", "Kabul Edilecek işlem sonuçları(3D): " & OkStatus & "
İşlem Sonucu : " & sonuckodu & "
Banka:" & tmpOrder.BankInfo.BankName & "
Taksit:" & tmpOrder.BankInfo.Taksit & "UserId:" & UserId & "
UserName:" & UserName & "Toplam:" & tmpOrder.Pricess.KargoDahilCreditCardToplamTL & " TL
Teslimat Adı: " & tmpOrder.ShippingInfo.RecipientName & "
Teslimat Tel: " & tmpOrder.ShippingInfo.PhoneNo & "
Teslmat Gsm: " & tmpOrder.ShippingInfo.MobilePhone & "
Fatura Adı:" & tmpOrder.BillingInfo.CompanyName & "
Banka 3D mesajı :" & errormsg)
End If
Dim sb2 As New StringBuilder()
sb2.AppendLine("")
Response.Write(sb2.ToString())
Catch
' log error
Dim py As New PaymentsDB
py.AddPayment(tmpOrder, UserId, "
Banka 3D mesajı :" & errormsg)
If Not ConfigurationManager.AppSettings("SendFailedPayments") = "False" Then
mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Onayı Alınamadı(3D)", "Kabul Edilecek işlem sonuçları(3D): " & OkStatus & "
İşlem Sonucu : " & sonuckodu & "
Banka 3D mesajı :" & errormsg)
End If
Dim sb2 As New StringBuilder()
sb2.AppendLine("")
Response.Write(sb2.ToString())
End Try
Dim sb As New StringBuilder()
sb.AppendLine("")
Response.Write(sb.ToString())
End If
%>