Forum

Forumlar
Yazılım
Yazılım Genel
asp de kullanıcı ye...
 
Bildirimler
Hepsini Temizle

asp de kullanıcı yetkilendirme nasıl yapabilirim?

 
Yazılım Genel
Son Cevaplar gön: anadova 13 yıl önce
7 Yazılar
3 Üyeler
0 Reactions
573 Görüntüleme
RSS
 anadova
(@anadova)
Gönderiler: 10
Eminent Member
Konu başlatıcı
 

merhaba arkadaşlar,

asp konusunda fazla deneyimim bulunmamakta ama deneme yanılma yoluyla kod yapılarını az çok anlamış gibiyim. Çalıştığım şirkette kalite sistemimiz için yapacak olduğum sistemde ise sorununu çözemediğim bir nokta mevcut. Bu konuda yardımlarınızı önemle rica edeceğim sizden !

Sistemi ilk önce kabataslak açıklamak isterim,

Veritabanından dbase.mdb 'in içerisinde üyeler adında bir tablo mevcut.

k.adi şifre eposta lokasyon

banlama admin kalitesistemgirdi insankaynaklari arge
b 12345 [email protected] e

0 1 0 0 1



üye giriş yaptıktan sonra default.asp sayfasında kalitesistemgirdi, insankaynaklari ve arge linkleri var ve üye bu linklerden örneğin kalitesistemgirdi ye tıkladığında kalitesistemgirdi.asp sayfasına gidiyor veya arge linkine tıkladığında arge.asp sayfasına gidiyor.

Giriş yapan b kullanıcı adlı üye kalitesistemgirdi linkine tıkladığında kalitesistemgirdi.asp sayfasına gelince sayfaya yetkisi varsa girebilsin eğer yoksa giremesin istiyorum.

bunun için de veri tabanımdaki üyeler tablosunda kalitesistemgirdi sutununda yetkileme için 0 ve 1 ifadelerini verdim.
0 girebilemesini
1 ise girememesini ifade etmekte,

bir türlü kod sistemini internetten bulamadım, kodlama konusunda yardımcı olabilecek arkadaş var mı acaba çok çok rica ediyorum.

ilginiz için şimdiden teşekkür ederim.

 
Gönderildi : 12/02/2012 20:07

 Mehmet YAYLA
(@mehmetyayla)
Gönderiler: 550
Honorable Member
 

değerli kardeşim ;

Mesajla msn yazarsan belki kod konusunda yardımcı olurum lakin,  http://www.aspkodlari.com/aspde-if-else-kullanimi.html  bu linkte if else kullanımı mevcut. 

çok basitçe halledeceğini düşünüyorum. 

 
Gönderildi : 13/02/2012 01:16

 anadova
(@anadova)
Gönderiler: 10
Eminent Member
Konu başlatıcı
 

İlginize çok teşekkür ederim ilk önce, msn adresimi mail olarak size forumdan gönderdim.

 
Gönderildi : 13/02/2012 02:17

 Fatih Aytekin
(@FatihAytekin)
Gönderiler: 47
Trusted Member
 

Şu şekilde yapabilirsin. 

kalitesistemgirdi.asp sayfasında db ile bağlantı yaparsın daha sonra sql sorgusuyla o bölümdeki yetkiyi çekersin ama burda her kullanıcıya bir id vermeliydin birde giriş sisteminde o idyi bir cookie yada bir session'a atayıp sorgu yapacaksın mesela: 

<%

strSQL = "SELECT kalitesistemgirdi FROM uyeler WHERE UserID = " & strUserID & ""

 rsSorgu.Open strSQL,baglantiadi, 1, 3

strGirisYapabilirmi= rsSorgu("kalitesistemgirdi")

rsSorgu.Close

 

If strGirisYapabilirmi = 1 then

Ulaşacağı Bilgiler

 Else

Response.Write("Bu Bölüme Giriş Yetkiniz Bulunmamaktadır") 

End If 

%> 

 strUserID yi giriş yapan üyenin IDsini atayacaksın sonrasını kodlara bakınca anlarsın zaten.

 
Gönderildi : 13/02/2012 20:03

 anadova
(@anadova)
Gönderiler: 10
Eminent Member
Konu başlatıcı
 

Fatih Bey ilginiz için teşekkür ederim ,asp konusunda yeni olduğum için araştırma halindeyim, ama çapalarım sonucunda çok farklı şeyler öğrenme arzusu var içimde inşallah kısa bir zaman içerisinde bu asp konusunu çözeceğim...

 benim sistemimde aşağıdaki gibi asp dosyaları var, göndermiş olduğunuz kodları ilişkilendirme işlemini beraber yapma şansımız varmı acaba sizden rica etsem? neyi ne tarafa tam koyacağımı anlamış değilim.

İlginiz için tekrardan çok teşekkür ediyorum size.Saygılarımla,

 

 

.:  1. DB.ASP dosyası var ve içindeki kodlar aşağıdaki gibi,


<%
set baglanti = Server.CreateObject("ADODB.Connection")
veriyolu = "Provider = Microsoft.Jet.OLEDB.4.0;data source = "&Server.MapPath("dbase.mdb")&";"
baglanti.open(veriyolu)
%>

 .: 2. TANI.ASP 

<!--#include file = "db.asp"-->
<%
kadi = request.form("kadi")
sifre = request.form("sifre")

set tani = Server.CreateObject("ADODB.Recordset")
tani.open "SELECT * FROM uyeler WHERE kadi = '"&kadi&"' and sifre = '"&sifre&"'",baglanti

if not tani.eof then
if tani("ban") = "1" then
response.redirect "engel.asp"
end if

if not tani("admin") = "1" then
session("uyegirisi") = True
session("kadi") = kadi
response.redirect "default.asp"
else 
session("uyegirisi") = True
session("yonetim") = True
session("kadi") = kadi
response.redirect "default.asp"
end if

else

response.redirect "default.asp"

end if

%>


.: 3. DEFAULT.ASP

<!--#include file = "db.asp"-->
<html>

<head>
<meta http-equiv="Content-Language" content="tr">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">

</head><body link="#FF0000" vlink="#FF0000" alink="#FF0000" bgcolor="#FEF3FA">
<%
if session("uyegirisi") = True Then
%>

<!-- Oturum Açılmışsa -->
<title>Intranet Sistemi</title>
<div align="center">
<center>
<table border="0" width="800" id="table1" cellspacing="0" cellpadding="0" height="400">
<tr>
<td align="left" valign="top" width="700" height="25" style="border-left: 1px dotted #4B6F50; border-right: 1px dotted #4B6F50; border-bottom: 1px dotted #4B6F50">
<p align="center">
<font color="#000000" size="2" face="Calibri">
Sayın </font> 
<font color="#FF0000" size="3" face="Calibri">
&nbsp;<%=session("kadi")%>
</font>
<font color="#000000" size="2" face="Calibri">
&nbsp;Hoş Geldiniz.
</font>
</td>
<td align="center" width="100" height="25" style="border-right: 1px dotted #4B6F50; border-bottom: 1px dotted #4B6F50">
<p align="right">
<a href="kapat.asp" style="text-decoration: none">
<font color="#999999" face="Tahoma" style="font-size: 7pt">
Oturumu Kapat
</font>
<img border="0" src="IMG/cikis.gif" width="14" height="14"><font color="#999999" face="Tahoma" style="font-size: 8pt">
</font></a></font></b></td>
</tr>
<tr>

<% if session("uyegirisi") = True Then

set profil = Server.CreateObject("ADODB.Recordset")
profil.open "SELECT * FROM uyeler WHERE kadi = '"&session("kadi")&"'",baglanti

if not profil.eof then
%>

<div align="center">
<center>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100" id="AutoNumber1">
<tr>
<td width="100" colspan="2" style="border: 1px dotted #E2E2E2" align="center"><b>
<font color="#FF0000" size="1" face="calibri">KULLANICI PROFİLİ</font></b></td>
</tr>

<tr>
<td width="50" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" size="1" face="Tahoma">&nbsp;Dahilisi :</font></b></td>
<td width="50" align="left" style="border: 1px dotted #E2E2E2">
<input type = "text" size="8" name="telefon" style="font-size: 7pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("telefon")%>"></td>
</tr>
<tr>
<td width="50" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" size="1" face="Tahoma">&nbsp;Lokasyon :</font></b></td>
<td width="50" align="left" style="border: 1px dotted #E2E2E2">
<input type = "text" size="8" name="lokasyon" style="font-size: 7pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("lokasyon")%>"></td>
</tr>
<tr>
<td width="50" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" size="1" face="Tahoma">&nbsp;Departman :</font></b></td>
<td width="50" align="left" style="border: 1px dotted #E2E2E2">
<input type = "text" size="8" name="departman" style="font-size: 7pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("departman")%>"></td>
</tr>
<tr>
<td width="50" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" size="1" face="Tahoma">&nbsp;Ünvan :</font></b></td>
<td width="50" align="left" style="border: 1px dotted #E2E2E2">
<input type = "text" size="8" name="unvan" style="font-size: 7pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("unvan")%>"></td>
</tr>
<tr>
<td width="100" colspan="2" style="border: 1px dotted #E2E2E2" align="center">
<a onclick="javascript:window.open('profil.asp','','s crollbars=yes resizable=no width=300 height=460 top=50 left=50');return false;" style="text-decoration: none" href="http://www.cozumpark.com/forums/AddPost.aspx?PostID=310371#">
<b>
<font color="#999999" size="1" face="calibri">ŞİFRE DEĞİŞTİR</font></b></a></td>
</tr><br>
<tr>
<td width="100" colspan="2" style="border: 1px dotted #E2E2E2" align="center">

<%
if session("yonetim") = True Then
response.write "<a href=""admin.asp"" style=""text-decoration: none""><b><font color=""#999999"" face = ""calibri"" style=""font-size: 8pt"">YÖNETİCİ PANELİ</font></B></a>"
end if
%>

</td>
</tr>
<tr>
<td width="100" colspan="2" style="border: 1px dotted #E2E2E2" align="center">

</td>
</tr>
<tr>
<td width="100" colspan="2" style="border: 1px dotted #E2E2E2" align="center">

</td>
</tr>

</table>
<p><br>
&nbsp;</p>

</center>
</div>
<p>
<%
else
response.redirect "default.asp"
end if
%>
<%
else
response.redirect "default.asp"
end if
%>

</td>
</tr>
</table>
</center>
</div>


<%
else
%>
<%
set oturumac = Server.CreateObject("ADODB.Recordset")
oturumac.open "SELECT * FROM uyeler order by id desc",baglanti,1,3
%>


<!-- Oturum Açılmamışsa -->
<title>Kullanıcı Girişi</title>
<div align="center">
<center>
<table border="0" style="border-collapse: collapse" bordercolor="#111111" width="300" height="100" id="AutoNumber0">
<tr>
<td width="49%" align="right" style="border: 0px dotted #E2E2E2">
<p align="center">
<img border="0" src="IMG/agac.png" width="100" height="97"></td>
<td width="50%" align="right" style="border: 0px dotted #E2E2E2">
<p align="center">
<b><font face="Tahoma" style="font-size: 7pt" color="#990000"><br>
INTRANET SISTEMI</font></b></td>
</tr>
</table>
<table border="0" style="border-collapse: collapse" bordercolor="#111111" width="300" height="100" id="AutoNumber1" background="IMG/FORM_BG.gif">
<tr>
<td width="150" height="21" align="center" style="border: 0px dotted #E2E2E2">
<p align="center">&nbsp;</td>
<td width="150" height="21" align="center" style="border: 0px dotted #E2E2E2">
&nbsp;</td>
</tr>
<form method="POST" action="tani.asp">
<tr>
<td width="150" height="21" align="right" style="border: 0px dotted #E2E2E2">
<b><font color="#FF0000" size="2" face="Tahoma">&nbsp;Kullanıcı Adı :</font></b></td>
<td width="150" height="21" style="border: 0px dotted #E2E2E2" align="center">
&nbsp;<input type="text" id="email1" size="18" name="kadi" style="color: #FFFFFF; font-size: 8pt; font-family: tahoma; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" ></td>
</tr>
<tr>
<td width="150" height="21" align="right" style="border: 0px dotted #E2E2E2">
<b><font color="#FF0000" size="2" face="Tahoma">&nbsp;Şifre :</font></b></td>
<td width="150" height="21" style="border: 0px dotted #E2E2E2" align="center">
&nbsp;<input type="password" id="email2" size="18" name="sifre" style="font-size: 8pt; color: #FFFFFF; font-family: tahoma; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" ></td>
</tr>
<tr>
<td width="150" height="37" style="border: 0px dotted #E2E2E2" align="center">&nbsp;</td>
<td width="150" height="37" style="border: 0px dotted #E2E2E2" align="center">&nbsp;<input type = "submit" name = "gonder0" value = "Oturum Aç" style="color: #FFFFFF; font-size: 8pt; font-family: Tahoma; font-weight: bold; border: 1px solid #FF0000; background-color: #990000"></td>
</tr>
</form>
</table>
</center>
</div>


<%
end if
%>


<p align="center"><b><font face="Tahoma" style="font-size: 7pt" color="#990000">
Bilgi Sistemleri | </font></b><font size="1">©</font><b><font face="Tahoma" style="font-size: 7pt" color="#990000">
</font><font face="Tahoma" color="#990000" style="font-size: 6pt">2012</font><font face="Tahoma" style="font-size: 7pt" color="#990000"><br>
</font></b></p>
</body>
</html>

.: 4. PROFİL ASP

<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>Profil'iniz</title>
</head>

<body>


<!--#include file = "db.asp"-->
<% if session("uyegirisi") = True Then

set profil = Server.CreateObject("ADODB.Recordset")
profil.open "SELECT * FROM uyeler WHERE kadi = '"&session("kadi")&"'",baglanti

if not profil.eof then
%>

<div align="center">
<center>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="250" height="425" id="AutoNumber1">
<tr>
<td width="100%" colspan="2" align="center" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" size="2" face="Tahoma">Kullanıcı Bilgileri</font></b></td>
</tr>
<form method="POST" action="guncelle.asp">
<tr>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" face="calibri" style="font-size: 9pt">&nbsp;Kullanıcı Adınız : </font></b></td>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2">&nbsp;<input type = "text" size="15" name="kadi" disabled style="font-size: 9pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("kadi")%>"></td>
</tr>
<tr>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" face="calibri" style="font-size: 9pt">&nbsp;Şifreniz : </font></b></td>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2">&nbsp;<input type = "password" size="15" name="sifre" style="font-size: 8pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("sifre")%>"></td>
</tr>
<tr>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" face="calibri" style="font-size: 9pt">&nbsp;Adınız : </font></b></td>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2">&nbsp;<input type = "text" size="15" name="ad" style="font-size: 8pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("ad")%>"></td>
</tr>
<tr>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" face="calibri" style="font-size: 9pt">&nbsp;Soyadınız : </font></b></td>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2">&nbsp;<input type = "text" size="15" name="soyad" style="font-size: 8pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("soyad")%>"></td>
</tr>
<tr>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" face="calibri" style="font-size: 9pt">&nbsp;E-Posta Adresiniz : </font></b></td>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2">&nbsp;<input type = "text" size="15" name="eposta" style="font-size: 8pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("eposta")%>"></td>
</tr>
<tr>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" face="calibri" style="font-size: 9pt">&nbsp;Telefon Numaranız :</font></b></td>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2">&nbsp;<input type = "text" size="15" name="telefon" style="font-size: 8pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("telefon")%>"></td>
</tr>
<tr>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" face="calibri" style="font-size: 9pt">&nbsp;Lokasyon :</font></b></td>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2">&nbsp;<input type = "text" size="15" name="lokasyon" style="font-size: 8pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("lokasyon")%>"></td>
</tr>
<tr>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" face="calibri" style="font-size: 9pt">&nbsp;Departman :</font></b></td>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2">&nbsp;<input type = "text" size="15" name="departman" style="font-size: 8pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("departman")%>"></td>
</tr>
<tr>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2"><b>
<font color="#FF0000" face="calibri" style="font-size: 9pt">&nbsp;Ünvan :</font></b></td>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2">&nbsp;<input type = "text" size="15" name="unvan" style="font-size: 8pt; color: #FFFFFF; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000" value="<%=profil("unvan")%>"></td>
</tr>
<tr>
<td width="50%" align="left" style="border: 1px dotted #E2E2E2">&nbsp;</td>
<td width="50%" align="center" style="border: 1px dotted #E2E2E2">
&nbsp;&nbsp;&nbsp;
<input type = "submit" name = "gonder" value = "Güncelle" style="color: #FFFFFF; font-size: 8pt; font-family: calibri; font-weight: bold; border: 1px solid #FF0000; background-color: #990000; "></td>
</tr>
</form>
<tr>
<td width="100%" align="left" style="border: 1px dotted #E2E2E2" colspan="2">
<p align="center"><b>
<font color="#990000" style="font-size: 8pt" face="calibri"><br>Kullanıcı Adınız En Az 4 , En Fazla 12 ;<br> Şifreniz En Az 6 , En Fazla 20 Karakter Olmalıdır .<br>
</font></b></td>
</tr>
</table>
</center>
</div>

<%
else
response.redirect "default.asp"
end if
%>


<%
else
response.redirect "default.asp"
end if
%>

</body>
</html>

.: 5. KALITESISTEMGIRDI.ASP

<center>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="25%" id="AutoNumber2">
<tr>
<td width="100%" colspan="2">
<p align="center">
<font color="#FF0000" face="Verdana" style="font-size: 8pt; font-weight: 700">KALITE SISTEM GIRDI DEPARTMANI ISO DOCUMANLARI</font></td>
</tr>
</table>
</center>

 

 

 
Gönderildi : 13/02/2012 20:48

 Fatih Aytekin
(@FatihAytekin)
Gönderiler: 47
Trusted Member
 
<!--#include file = "db.asp"-->
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<title>Kalite Sistemi/title>
</head>
<% if session("uyegirisi") = True Then %>
<%
  set rsSorgu = Server.CreateObject("ADODB.Recordset")
  rsSorgu.open "SELECT * FROM uyeler WHERE kadi = '"&session("kadi")&"'",baglanti,1,3
If rsSorgu("kalitesistemgirdi") = 1 then 
%>
<center>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="25%" id="AutoNumber2">
<tr>
<td width="100%" colspan="2">
<p align="center">
<font color="#FF0000" face="Verdana" style="font-size: 8pt; font-weight: 700">KALITE SISTEM GIRDI DEPARTMANI ISO DOCUMANLARI</font></td>
</tr>
</table>
</center>
<%
Else
Response.Write("Bu Bölüme Giriş Yetkiniz Bulunmamaktadır")
End If
  rsSorgu.Close
Else
Response.Write("Lütfen Üye Girişi Yapınız")
End If
%>
<body>
</body>
</html>
 
 
bu şekilde halledebilirsin sanırım kodları denemedim ama olur 
 
Gönderildi : 14/02/2012 13:24

 anadova
(@anadova)
Gönderiler: 10
Eminent Member
Konu başlatıcı
 

Aynen Fatih Bey  şu an çalışmaktadır.İlginiz için çok teşekkür ediyorum sizide yordum çok saolun.

 
Gönderildi : 14/02/2012 19:49

Forum Jump:
  Önceki Konu
Sonraki Konu  
Paylaş: