Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Asp / Asp.NET
  • Bu Konuda
Şimdi Ara

cookie üyelik girişi

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir (1 Mobil) - 1 Masaüstü, 1 Mobil
5 sn
6
Cevap
0
Favori
1.318
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • arkadaşlar
    <%
    Set Conn = server.CreateObject("Adodb.connection")
    Set Rcs = server.CreateObject("Adodb.Recordset")
    Conn.Open dbpath
    if Request.QueryString("uc")=1 then
    session("bayiadi")=""
    session("AdiSoyadi")=""
    session("Kullanicitipi")=""
    session("bayikodu")
    session("son")=""
    end if
    if Request.Form("gonder")="GÖNDER" or request.form("bayiadi")<>"" then

    bayiadi=Request.Form("bayiadi")
    sifre=Request.Form("sifre")
    bayikodu=request.Form("bayikodu")
    ssql="select * from UYE where bayiadi='"& bayiadi &"' And bayikodu='"& bayikodu &"' And sifre='"& sifre &"'"
    if rcs.State=1 then
    rcs.Close
    end if
    Rcs.Open ssql,conn,3
    if Rcs.RecordCount=0 then%>
    <script language="Javascript">
    alert ("Bayi Adınız, Kodunuz veya Şifrenizi Yanlış Girdiniz Lütfen Tekrar Deneyiniz")
    </script>
    <%else%>
    <%
    session("bayiadi")=bayiadi
    session("AdiSoyadi")=rcs.Fields("Ad") & " " & rcs.Fields("Soyad")
    session("Kullanicitipi")=rcs.Fields("Kullanicitipi ")
    session("son")=son
    end if
    end if

    %>
    bu şekilde üyelik giriş kısmım var buna cookie nasıl bağlanır yada şöyle söyleyeyim üye daha önceden girdi bayiadını bayikodunu şifresini kaydedecek bir gün sonra girdiğinde şifre falan sormayacak direk girecek lütfen yardım edin beni hatırla butonuna gerek de yok her gireni kaydetsin







  • <%
    Set Conn = server.CreateObject("Adodb.connection")
    Set Rcs = server.CreateObject("Adodb.Recordset")
    Conn.Open dbpath
    if Request.QueryString("uc")=1 then
    session("bayiadi")=""
    session("AdiSoyadi")=""
    session("Kullanicitipi")=""
    session("bayikodu")
    session("son")=""
    end if
    if Request.Form("gonder")="GÖNDER" or request.form("bayiadi")<>"" then

    bayiadi=Request.Form("bayiadi")
    sifre=Request.Form("sifre")
    bayikodu=request.Form("bayikodu")
    ssql="select * from UYE where bayiadi='"& bayiadi &"' And bayikodu='"& bayikodu &"' And sifre='"& sifre &"'"
    if rcs.State=1 then
    rcs.Close
    end if
    Rcs.Open ssql,conn,3
    if Rcs.RecordCount=0 then%>
    <script language="Javascript">
    alert ("Bayi Adınız, Kodunuz veya Şifrenizi Yanlış Girdiniz Lütfen Tekrar Deneyiniz")
    </script>
    <%else%>
    <%

    session("bayiadi")=bayiadi
    session("AdiSoyadi")=rcs.Fields("Ad") & " " & rcs.Fields("Soyad")
    session("Kullanicitipi")=rcs.Fields("Kullanicitipi ")
    session("son")=son

    ' beni hatırla diye bir checkbox olduğunu varsayarak
    if request.form("hatirla") = "1" then
    response.cookies("bayi")("cookies") = true
    response.cookies("bayi")("id") = rcs.fields("id")
    response.cookies("bayi").expires = now()+3 ' 3 gün geçerli cookie
    end if

    end if
    end if

    %>

    <%

    'sayfanın başına
    if session("bayi") <> true or request.cookie("bayi")("cookies") <> true then response.redirect "giris.asp" ' eğer her ikisinin durumu false ise giriş sayfasına yönlen değil ise sayfayı gösterir.

    'Birde burada hangisi ile girdiğine göre işlem yaptır örneğin session

    if session("bayi") = true then
    Set bayi = baglanti.execute("SELECT * FROM bayi WHERE id="&session("id"))
    else
    Set bayi = baglanti.execute("SELECT * FROM bayi WHERE id="&request.cookies("bayi")("id"))
    end if
    response.write "Hoşgeldin "&bayi("bayiadi")


    %>

    Sana fikir verdim, senin işleyişinin ne olduğunu bilmediğim için kendine pay çıkar.




  • hocam yazdığın şekilde yapıyorum çalıştıramıyorum sanırım kısır döngüye giriyor sayfa çok geç açılıyor benim üye giriş kısmım default.asp de üye giriş yaptığında yine default.asp de işlemlerini görüyor herhangibir sayfaya yönlenmiyor yukarıda ki giriş.asp yerine default.asp yazıyorum söylediğim gibi oluyor yardım ettiğin bana cevap yazdıgın için çok teşekkür ederim bu kodlardan başka birşey yok sanırım o zaman bunları sayfa içinde her yere koyup deneyeceğim başka bir yol varsa söylersen sevinirim
  • şu şekilde değiştir dene kardeş

    if session("bayi") <> request.cookies("bayi")("cookies") <> true then response.redirect "default.asp?q=giris"

    if session("bayi") = true then
    Set bayi = baglanti.execute("SELECT * FROM bayi WHERE id="&session("id"))
    else
    Set bayi = baglanti.execute("SELECT * FROM bayi WHERE id="&request.cookies("bayi")("id"))
    end if
    response.write "Hoşgeldin "&bayi("bayiadi")
  • if session("bayi") <> request.cookies("bayi")("cookies") <> true then response.redirect "default.asp?q=giris"

    bunun altına end if lazım mı? end if hatası alıyorum en if ekliyorum o zamanda yine aynı hatayı alıyorum baya bi bekliyor ondan sonra sayfa görüntülenemiyor

    çok ilginç 3 gündür bu üye hatırlama olayını gerçekleştiremiyorum herşey için tekrar teşekkür ediyorum bana zaman ayırıyorsun allah razı olsun
  • Sana bir örnek hazırladım, kolay gelsin.

    <%
    Set baglanti = Server.CreateObject("Adodb.Connection")
    baglanti.provider = "Microsoft.Jet.Oledb.4.0"
    baglanti.open Server.Mappath("Burak.mdb")

    with response
    select case request("q")
    case ""
    if session("bayi") <> request.cookies("bayi")("cookies") <> true then response.redirect "default.asp?q=giris" ' her ikisinin durumu false ise giriş sayfasına yönlen değil ise sayfayı gösterir.

    if session("bayi") = true then
    Set bayi = baglanti.execute("SELECT * FROM bayi WHERE id="&session("id"))
    geldim = "session la tura devam"
    else
    Set bayi = baglanti.execute("SELECT * FROM bayi WHERE id="&request.cookies("bayi")("id"))
    geldim = "cookies le tura devam"
    end if

    .write "Hoşgeldin "&bayi("bayiadi") & "<br>"
    .write "geldim : <b>"&geldim&"</b>"
    .write "<br><a href='?q=cikis'>Çıkış</a>"
    case "giris"
    .write "<form action='?q=kontrol' method='post'>" & vbCrlf
    .write "Bayi Adı <input type='text' name='kullanici'><br>" & vbCrlf
    .write "Şifre : <input type='password' name='sifre'><br>" & vbCrlf
    .write "Beni Hatırla <input type='checkbox' name='hatirla' value='1'><br>" & vbCrlf
    .write "<input type='submit' value='Giriş'>" & vbCrlf
    .write "</form>" & vbCrlf

    case "kontrol"
    Set gelen = baglanti.execute("SELECT id, bayiadi, bkullanici, bsifre FROM bayi WHERE bkullanici='"&request.form("kullanici")&"' AND bsifre='"&request.form("sifre")&"'")

    if gelen.eof then
    .write "kullanıcı ve ya şifre yanlış"
    else
    session("bayi") = true
    session("id") = gelen("id")
    session.timeout = 1 ' 1 dakikalık sessionla yaşa

    if request.form("hatirla") = "1" then
    response.cookies("bayi")("cookies") = true
    response.cookies("bayi")("id") = gelen("id")
    response.cookies("bayi").expires = now()+3 ' 3 gün geçerli cookie
    end if
    response.redirect "default.asp"
    end if

    case "cikis"
    session.Abandon()
    response.cookies("bayi") = ""
    response.redirect "default.asp"
    end select
    end with

    %>


    http://www.kvbilisim.com/ASP01ornek.rar

    Allah cümlemizden razı olsun.




    • Yapay Zeka’dan İlgili Konular
    Xbox live gold üyelik hakkında
    9 yıl önce açıldı
    Facebook hesap şifresi GİRİŞ yapamıyor
    2 yıl önce açıldı
    iptv üyelik önerisi
    geçen ay önce açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız