Tekil Mesaj gösterimi - Profesyonel Ücretsiz E-Ticaret Altyapısı - Proticaret.Org

Konu Profesyonel Ücretsiz E-Ticaret Altyapısı - Proticaret.Org

14-02-2013, 15:18:19

#518

LadyArch3r

Kimlik doğrulama veya yönetimden onay bekliyor.

Promist adlı üyeden alıntı: mesajı görüntüle

İnternet explorer 10 da aldığınız hatanın resmini çekip info@proticaret.org adresimize mail atar mısınız?

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 09:37:14 -->-> Daha önceki mesaj 09:26:30 --

Merhabalar;

Kök-dizin/store/banks3d/3dodemeyk.aspx

İçerisinde

İd veya name değeri userjokervadaa olan input nesnesinin value alan değerini 1 ile değiştirin ve kaydediniz.

userjokervadaa değeri ne yazıkki yok

normal bir input da bulamadım galiba aspx ile yapılan bir input var.

Alıntı

<%@ page language="VB" AutoEventWireup="true" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server" id="head1">
<title>Ödeme Sayfası</title>

<script type="text/javascript">

//var eci;
//var cavv;
var md;
var bankdata;
//var xid;
//var mdstatus;
//var mdErrorMsg;

//var maskedpan;

function HideFrameOk()
{
window.parent.$find('ModalPopupExtender1').hide();

window.parent.document.getElementById(window.paren t.window['ParentClientId'] + "_md").value=md;
window.parent.document.getElementById(window.paren t.window['ParentClientId'] + "_bankdata").value=bankdata;
window.parent.ConfirmPayment();
//window.parent.document.getElementById("OrderStep3d 1_eci").value=eci;
// window.parent.document.getElementById("OrderStep3d 1_cavv").value=cavv;
//window.parent.document.getElementById("OrderStep3d 1_xid").value=xid;

// var panel = window.parent.document.getElementById('OrderStep3d 1_Panel1');
// var frm = window.parent.document.getElementById("frame3d");
// var btnOk = window.parent.document.getElementById("OrderStep3d 1_btnOk");
// frm.width = 0;
// frm.height = 0;
// panel.style.visibility = 'hidden';
// panel.style.width = '0px';
// panel.style.height = '0px';
// btnOk.click();
//window.parent.ConfirmPayment();

//window.parent.document.write(document.getElementBy Id('pan').value);
}
function HideFrameErr()
{
window.parent.$find('ModalPopupExtender1').hide();
window.parent.document.getElementById(window.paren t.window['ParentClientId'] + "_md").value=0;
window.parent.document.getElementById(window.paren t.window['ParentClientId'] + "_bankdata").value=0;
window.parent.CancelPayment();
// var panel = window.parent.document.getElementById('OrderStep3d 1_Panel1');

//* var btnClose = window.parent.document.getElementById("OrderStep3d 1_btnClose");
//
// window.parent.document.getElementById("OrderStep3d 1_mdstatus").value = mdstatus;
// window.parent.document.getElementById("OrderStep3d 1_mdErrorMsg").value=mdErrorMsg;
// window.parent.document.getElementById("OrderStep3d 1_xid").value=xid;
// window.parent.document.getElementById("OrderStep3d 1_eci").value=eci;
// window.parent.document.getElementById("OrderStep3d 1_cavv").value=cavv;
// window.parent.document.getElementById("OrderStep3d 1_md").value=md;
//* window.parent.document.getElementById("OrderStep3d 1_maskedpan").value=maskedpan;

// hmdstatus.value ;
// hmdErrorMsg.value ;
// hxid.value ;
// heci.value ;
// hcavv.value ;
// hmd.value ;
// hmaskedpan.value ;
//
// frm.width = 0;
// frm.height = 0;
// panel.style.visibility = 'hidden';
// panel.style.width = '0px';
// panel.style.height = '0px';
// btnClose.click();

}
</script>
</head>
<body>
<h1>3D Ödeme Sayfası</h1>
<%

If Not Me.FindControl("head1") Is Nothing Then
Dim head As Control = Me.FindControl("head1")
Dim l As New Literal
l.Text = "<link rel=""Stylesheet"" type=""text/css"" href=""" & getcss() & """ />"
head.Controls.Add(l)
End If

'Dim mdstatus As String

Dim ToSendMail As String = _portalsettings.Email
If ConfigurationManager.AppSettings("SmtpMailOrders") <> "" Then
ToSendMail = ConfigurationManager.AppSettings("SmtpMailOrders")
End If

Dim res As String = ""
Dim e As IEnumerator = Request.Form.GetEnumerator()
While e.MoveNext
Dim xkey As String = e.Current
Dim xval As String = Request.Form.Get(xkey)
res &= xkey & " : " & xval & "<br/>"
End While

If Request.Form.Get("MerchantPacket") <> "" Then
'dönen data
Dim MerchantPacket As String = Request.Form.Get("MerchantPacket")
Dim BankPacket As String = Request.Form.Get("BankPacket")
Dim sign As String = Request.Form.Get("sign")

'işlem sonucunu doğrula
Dim data As New StringBuilder
data.Append("xmldata=<?xml version=""1.0"" encoding=""ISO-8859-9""?>")
data.Append("<posnetRequest>")
data.Append("<mid>" & Session("GetwayUserName") & "</mid>")
data.Append("<tid>" & Session("GetwayPassword") & "</tid>")
data.Append("<oosResolveMerchantData>")
data.Append("<bankData>" & BankPacket & "</bankData>")
data.Append("<merchantData>" & MerchantPacket & "</merchantData>")
data.Append("<sign>" & sign & "</sign>")
data.Append("</oosResolveMerchantData>")
data.Append("</posnetRequest>")

Dim encoding1 As New ASCIIEncoding
Dim buffer1 As Byte() = encoding1.GetBytes(data.ToString)

Dim request1 As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(Session("BankGe twayAddress")), System.Net.HttpWebRequest)
request1.Method = "POST"
request1.ContentType = "application/x-www-form-urlencoded"
request1.ContentLength = buffer1.Length
request1.KeepAlive = True
Dim stream1 As IO.Stream = request1.GetRequestStream
stream1.Write(buffer1, 0, buffer1.Length)
stream1.Close()

Dim reader3 As New IO.StreamReader(request1.GetResponse.GetResponseSt ream)
Dim resx As String = reader3.ReadToEnd
reader3.Close()

Dim OkStatus As String = "1234"
If Not ConfigurationManager.AppSettings("Pay3dOkStatus") Is Nothing Then
OkStatus = ConfigurationManager.AppSettings("Pay3dOkStatus")
End If

Dim mdstatus As String = ""
Dim mderror As String = ""
Dim mail As New webmail
If (Not resx Is Nothing) Then
Dim document1 As New XmlDocument
document1.InnerXml = resx
Dim node1 As XmlNode = document1.SelectSingleNode("/posnetResponse")

Dim tmpOrder As ASPNetPortal.TempOrder
If Session("TempOrder") Is Nothing Then
tmpOrder = New ASPNetPortal.TempOrder
Else
tmpOrder = Session("TempOrder")
End If
Dim UserId As String = ""
Dim UserName As String = ""

If (Not node1.Item("approved") Is Nothing) Then

mdstatus = node1.Item("oosResolveMerchantDataResponse").Item( "mdStatus").InnerText
mderror = node1.Item("oosResolveMerchantDataResponse").Item( "mdErrorMessage").InnerText
If node1.Item("approved").InnerText = "1" And OkStatus.Contains(mdstatus) Then
Dim sb As New StringBuilder()
sb.AppendLine("<script type=""text/javascript"">")
sb.AppendLine("md='" & mdstatus & "';")
sb.AppendLine("bankdata='" & BankPacket & "';")
sb.AppendLine("HideFrameOk();")
sb.AppendLine("</script>")
Response.Write(sb.ToString())
Else

Response.Write("<div class='Global_HataMesaji'> <h5>3D Doğrulama İşlemi Başarısız</h5><br/>")
Response.Write("Hata Kodu:" & mdstatus & "<br/>")
Response.Write("Hata Mesajı:" & mderror & "<br/></div>")

Dim _portalSettings As PortalSettings
_portalSettings = CType(HttpContext.Current.Items("PortalSettings"), PortalSettings)

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, "<br/> Banka 3D mesajı :" & res)

If Not ConfigurationManager.AppSettings("SendFailedPaymen ts") = "False" Then
mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Onayı Alınamadı(3D)", "Kabul Edilecek işlem sonuçları(3D): " & OkStatus & "<br/>İşlem Sonucu : " & mdstatus & "<br/>Banka:" & tmpOrder.BankInfo.BankName & "<br/>Taksit:" & tmpOrder.BankInfo.Taksit & "UserId:" & UserId & "<br/> UserName:" & UserName & "Toplam:" & tmpOrder.Pricess.BankaToplamTutar & " TL<br/>Teslimat Adı: " & tmpOrder.ShippingInfo.RecipientName & "<br/>Teslimat Tel: " & tmpOrder.ShippingInfo.PhoneNo & "<br/>Teslmat Gsm: " & tmpOrder.ShippingInfo.MobilePhone & "<br/>Fatura Adı:" & tmpOrder.BillingInfo.CompanyName & "<br/> Banka 3D XML mesajı :" & resx)
End If
Catch
' log error
Dim py As New PaymentsDB
py.AddPayment(tmpOrder, UserId, "<br/> Banka 3D mesajı :" & res)

If Not ConfigurationManager.AppSettings("SendFailedPaymen ts") = "False" Then
mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Onayı Alınamadı(3D)", "Kabul Edilecek işlem sonuçları(3D): " & OkStatus & "<br/>İşlem Sonucu : " & mdstatus & "<br/>Banka 3D XML Mesajı :" & resx)
End If
End Try

Dim sb As New StringBuilder()
sb.AppendLine("<script type=""text/javascript"">")
sb.AppendLine("HideFrameErr();")
sb.AppendLine("</script>")
Response.Write(sb.ToString())

End If
Else
' log error
Dim py As New PaymentsDB
py.AddPayment(tmpOrder, UserId, "<br/> Banka 3D mesajı :" & res)

If Not ConfigurationManager.AppSettings("SendFailedPaymen ts") = "False" Then
mail.SendMail(_portalsettings.Email, ToSendMail, "Ödeme Onayı Alınamadı(3D)", "Kabul Edilecek işlem sonuçları(3D): " & OkStatus & "<br/>İşlem Sonucu : " & mdstatus & "<br/>Banka 3D XML Mesajı :" & resx)
End If
End If
End If
Else
'Bağlantı Hatası
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, "<br/> Banka 3D mesajı :" & res)

If Not ConfigurationManager.AppSettings("SendFailedPaymen ts") = "False" Then
mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Alınamadı(Bağlantı hatası 3D)", "Banka:" & tmpOrder.BankInfo.BankName & "<br/>UserId:" & UserId & "<br/> UserName:" & UserName & "Toplam:" & tmpOrder.Pricess.BankaToplamTutar & " TL<br/>Hata:Sistem Hatası<br/>Hata Açıklaması:Banka ile bağlanı kurulamıyor(3D), Lütfen banka bilgilerini kontrol ediniz<br/>Teslimat Adı: " & tmpOrder.ShippingInfo.RecipientName & "<br/>Teslimat Tel: " & tmpOrder.ShippingInfo.PhoneNo & "<br/>Teslmat Gsm: " & tmpOrder.ShippingInfo.MobilePhone & "<br/>Fatura Adı:" & tmpOrder.BillingInfo.CompanyName)
End If
Catch
' log error
Dim py As New PaymentsDB
py.AddPayment(tmpOrder, UserId, "<br/> Banka 3D mesajı :" & res)

If Not ConfigurationManager.AppSettings("SendFailedPaymen ts") = "False" Then
mail.SendMail(_portalSettings.Email, ToSendMail, "Ödeme Alınamadı(Bağlantı hatası 3D)", " Banka ile bağlanı kurulamıyor(3D), Lütfen banka bilgilerini kontrol ediniz ")
End If
End Try

Response.Write("<div class='Global_HataMesaji'> <h5>Sistem Hatası</h5><br/>")
Response.Write("Banka ile bağlantı kurulamıyor")

End If

%>
<%-- <%
Dim e As IEnumerator = Request.Form.GetEnumerator()
While e.MoveNext
Dim xkey As String = e.Current
Dim xval As String = Request.Form.Get(xkey)
Response.Write(xkey & " : " + xval + "<br/>")
End While

%>--%>

<div style=" text-align:center"><a href="javascript:HideFrameErr()" class="Global_Normal_Link" id="LinkButton1" >Kapat</a> </div>

</body>
</html>

Acaba hangi değer ?