Gönderen: 17-Kasım-2007 Saat 13:55 | Kayıtlı IP

bu kod niye çalışmadı arkadaşlar yetki bir de olsa sıfırda olsa hep bu yazı çıkıyor niye kodda bi eksiklik varmı

BURASI SADECE ADMİNDE GÖRÜNÜR..İĞERLERİNE GÖRÜNMEZ

Kod: <% Dim baglan Dim hocam Set baglan = Server.CreateObject("ADODB.Connection") baglan.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("uyeler.mdb") %> <% Set hocam = Server.CreateObject ("ADODB.RecordSet" )  sql="select * From uyelerim " hocam.Open sql,baglan,1,3 %> <% Session("yetki") = hocam("yetki")      %>            <% if session("yetki")="1" then %>      BURASI SADECE ADMİNDE GÖRÜNÜR..İĞERLERİNE GÖRÜNMEZ      <% end if %>      <% if session("yetki" )="0" then %>      BURASI SADECE Maderatörlere GÖRÜNÜR..İĞERLERİNE GÖRÜNMEZ      <% end if %>

Gönderen: 17-Kasım-2007 Saat 15:21 | Kayıtlı IP

sen admin olarak giriş yapıyormusun

Gönderen: 27-Aralık-2007 Saat 10:17 | Kayıtlı IP

sql sorgulamanda hata var.

ilk olarak; hangi oturum acmis kullaniciya sorgu yaptiracagini belirtmemissin.

eger belirtmezsen, db ilk gelen kaydi kaale alip hep ayni ekrani getirmeye devam edecektir. eger dogru bir cevap almak istiyorsan oturum acmis olan uyeye gore yetki atmaasi yapmak zorundasin. yetki atamalarini session ile yapacaksan eger, bunu uyenin, sisteme login oldugunda yapmalisin

ornek olarak vermek gerekirse;

login.asp:
<%
Dim iKullaniciAdi, iSifre, rsCtrl
iKullaniciAdi = Request.Form("fKullaniciAdi") 'formdan gelen kullanici adi
iSifre = Request.Form("fSifre") 'formdan gelen kullanici sifresi

'kullanici kayitlarinin bulundugu tabloya baglan
Set rsCtrl = Server.CreateObject ("ADODB.RecordSet" )
rsCtrl.Open("Select * From Uyelierim Where UserName = '" & iKullaniciAdi & "'"),baglan, 1, 3
If (Not rsCtrl.EOF) Then 'eger kullanici kaydi varsa sifre kontrolune gec
     If (rsCtrl("Password") = iSifre) Then 'sifre kontrolu
        Session("U") = iKullaniciAdi
        Session("Y") = rsCtrl("Yetki")
        'baska atanacak sessionlar varsa devam eder.

        response.red irect("default.asp")
     Else
          Response.Write("kullanici sifresi gecersiz")
     End If
Else
Response.Write("bu isimde bir kullanici kaydi yok")
End If
rsCtrl.Close
Set rsCtrl = Nothing
%>

ilgilisayfa.asp:

<%
If (Session("Y") = 1 Then 'eger oturumu acik uyenin yetkisi adminse
    Response.Write("burasi sadece adminlere ozel alandir")

ElseIf (Session("Y") = 2 Then 'eger oturumu acik uyenin yetkisi modsa
    Response.Write("burasi sadece moderatorlere ozel alandir")

else 'eger her ikisinide karsilamiyorsa hata mesaji veya sayfanin diger kisimlari gelsin
    Response.Write("burasi genel kullanim icindir")

End If
%>