 |
baypetrol - süper üye ödeme bilgileri
<% if Session("durum") = "giris_yapmis" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("gallaxdmin\gallaxdmin.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
RsSql = "Select * from users where id=" & Session("ID")
RecSet.Open RsSql, Conn, 1, 3
Session("id") = RecSet("id")
Session("username") = RecSet("username")
%>
Süper Üyelik Ödeme İşlem
Sonucu
|
|---|
<%
KrediKartiNo = Request.Form("kartno")
If Len(KrediKartiNo) <> 16 Then
Response.Write "Hatalı Kart Numarası"
Response.End
End If
If IsNumeric(KrediKartiNo) = False Then
Response.Write "Hatalı Kart Numarası"
Response.End
End If
KrediKartiAdSoyad = Request.Form("fullname")
SKTarihi = Right(Request.Form("yil"),2)& "" & Request.Form("ay")
CVCNo = Request.Form("son3")
If IsNumeric(CVCNo) = False Then
Response.Write "Hatalı CVC Numarası"
Response.End
End If
urun = Request.Form("urun")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("gallaxdmin\gallaxdmin.mdb")
KDV = 0.18
If urun="3ay-450TL" Then
ToplamFiyat = 450 * (KDV+1)
UzatmaSuresi = 3
ElseIf urun="6ay-800TL" Then
ToplamFiyat = 800 * (KDV+1)
UzatmaSuresi = 6
ElseIf urun="12ay-1200TL" Then
ToplamFiyat = 1200 * (KDV+1)
UzatmaSuresi = 12
End If
'Çekilecek tutar yeni kuruş olarak belirtilmesi gerektiği için alttaki eklemeyi yaptım.
'yani toplam çekilecek fiyat 1416 TL ise bunu 141600 şeklinde göstermek gerekiyor..
'Ayrıca fiyat içinde kesinlikle nokta ya da virgül olmayacak. 53,22 TL çekilmesi gerekiyorsa 5322 şeklinde yazılmalı.
ToplamFiyat = ToplamFiyat & "00"
ParaBirimi = "YT" 'YT,US,EU olabilir
TaksitSayisi = "00" 'Peşin işlem için 00, Örn. 5 taksit için 05
Function SifirEkle(Sayi)
If Len(Sayi) < 2 Then
SifirEkle = "0" & Sayi
Else
SifirEkle = Sayi
End If
End Function
'Sanırım burada benzersiz bir sayı oluşturmak gerekiyor. En kolay yolu tarih ve saatten oluşturmak
'Benim yaptığım şöyle bir ID oluşturuyor. BayPetrol-20110509173253
'Örnek kodlardaki OrderID ise YKBTEST_0000110509170856
OrderID = "BayPetrol_"&Year(Now)&SifirEkle(Month(Now))&SifirEkle(Day(Now))&Replace(Time,":","")
'Dim objYKB
Set objYKB = Server.CreateObject("YKBPosnetActiveX.YKBPosnetClass")
'Üye işyeri numarası
UyeIsyeriNo="6700000067"
objYKB.SetMid (UyeIsyeriNo)
'Terminal numarası
TerminalNo="67100108"
objYKB.SetTid (TerminalNo)
'Posnet Server IP Adresi
'Test ortamı için 193.254.228.53
'Gerçek ortam için 193.254.228.100
objYKB.SetHostIP ("193.254.228.53")
'Şifreleme Anahtarı
'Test ortamı için 10,10,10,10,10,10,10,10
objYKB.SetEncKey ("10,10,10,10,10,10,10,10")
'Port Numarası
objYKB.SetPort (2222)
'dllresp.Text = objYKB.DoSaleTran(ccno, expireDate, cvc, orderid, amount, currencyCode, instNumber)
dllresp = objYKB.DoSaleTran(KrediKartiNo, SKTarihi, CVCNo, OrderID, ToplamFiyat, ParaBirimi, TaksitSayisi)
'Bağlantı hata kodları sayfası http://setmpos.ykb.com/PosnetF1/yardim_tr/hataKodlari/01_ilet.htm
'Sunucu hata kodları sayfası http://setmpos.ykb.com/PosnetF1/yardim_tr/hataKodlari/02_sunucu.htm
If 1=1 Then
If Left(dllresp,3) = "100" Then
If objYKB.GetApprovedCode = "1" Or objYKB.GetApprovedCode = "2" Then
'Onay Bilgisi
If Trim(objYKB.GetAuthcode) <> "" Then
AuthCode = objYKB.GetAuthcode 'Onay Kodu
End If
If Trim(objYKB.GetHostlogkey) <> "" Then
HostLogKey = objYKB.GetHostlogkey 'Referans Numarası
Response.Write "Referans Numarası: " & HostLogKey & "
"
End If
'Puan Bilgileri
TotalPoint = objYKB.GetTPPoint 'kullanılabilir toplam puan
TotalTLamt = objYKB.GetTPPointTL 'kullanılabilir toplam puan tutarı (kuruş olarak)
Point = objYKB.GetPoint 'Kazanılan toplam puan
TLAmount = objYKB.GetPointTL 'kazanılan toplam puan tutarı (kuruş olarak)
'Taksit Bilgileri
TAmt1 = objYKB.GetInstAmount 'taksit tutarı (kuruş olarak)
Tins1 = objYKB.GetInstNumber 'taksit sayısı
%>
|
<%
'Üye Tablosuna Kayıt
Set RecSet = Server.CreateObject("ADODB.Recordset")
RsSql = "Select * from users where id=" & Session("ID")
RecSet.Open RsSql, Conn, 1, 3
UyeDurum = RecSet("superuye")
If UyeDurum = "super" Then
TarihSon = RecSet("son_yenileme_tarihi")
Else
TarihSon = Now()
End If
TarihSon = DateAdd("m",+UzatmaSuresi,TarihSon)
RecSet("odeme_tarihi") = Now()
RecSet("son_yenileme_tarihi") = TarihSon
RecSet("referans_no") = HostLogKey
RecSet("onay_no") = AuthCode
RecSet("superuye") = "super"
RecSet.Update
RecSet.Close
%>
* Ödeme başarı ile gerçekleştirilmiştir. |
: |
 |
|
|
| Alınan Paket |
Ödenen Tutar (KDV Dahil) |
Referans No |
Onay No |
Süper Üye Başlangıç Tarihi |
Süper Üye Yenileme
Tarihi |
Fatura Bilgileri |
<%
'Uyarı Mesajı
If objYKB.GetApprovedCode = "2" Then
resptext = objYKB.GetResponseText
respcode = objYKB.GetResponseCode
End If
Else
'Hata mesajı
resptext = objYKB.GetResponseText
respcode = objYKB.GetResponseCode
End If
End If
End If
Response.Write resptext & "
"
Response.Write respcode & "
"
Response.Write objYKB.GetApprovedCode & "
"
%>
<%=urun%> |
<%=ToplamFiyat%> |
<%=HostLogKey%> |
<%=AuthCode%> |
<%=Now()%> |
<%=TarihSon%> |
Fatura Bilgileri Gir / Düzenle |
<%
else
response.Redirect("default.asp")
%>
<% end if %> |
|
<%
nolog = Request("nolog")
if nolog = "error" then
Response.Write "Kullanıcı adı veya şifre yanlış!"
elseif nolog = "notactive" then
Response.Write "Hesabınız henüz aktif değil!"
end if
%> |
|
 |
|
|
 |
|
|
 |
|
|
<% if Session("durum") = "giris_yapmis" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("gallaxdmin\gallaxdmin.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
RsSql = "Select * from users where id=" & Session("ID")
RecSet.Open RsSql, Conn, 1, 3
Session("id") = RecSet("id")
Session("username") = RecSet("username")
%>
<%else %>
<% end if %>
|
|
|
|
