Sadece Belirli Kişilerin Görebileceği Sayfa Yapmak

[AdmiN]

Sadece Belirli Kişilerin Görebileceği Sayfa Yapmak:
Bazen sitemizde sadece yetkili kişilerin girebileceği sayfalar yapmak isteriz.Aşağıda yönetici, moderatör ve sadece üyelerin girebileceği sayfalar hazırlamak için gerekli kodları göreceksiniz.


A) Sadece Yöneticinin Girebileceği Sayfa Yapmak:
Sayfa açıldığığında sorgulama yapılır.Eğer giren kişi yönetici ise sayfa içeriği görüntülenir.Eğer yönetici değilse sayfa içeriği gösterilmez.Sadece üst kısım ve alt kısım görünür.

Kod: [Seç]


<%
'***********************************************************************
'** Copyright (C) 2001 - 2003 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
CurPageType = "Sayfa Başlığı"
CurPageInfoChk = "1"
function CurPageInfo ()
strOnlineQueryString = ChkActUsrUrl(Request.QueryString)
PageName = "Sayfa Başlığı"
PageAction = "Görüntüleniyor<br>"
PageLocation = "sayfa.asp"
CurPageInfo = PageAction & " " & "<a href=" & PageLocation & ">" & PageName & "</a>"

end function
%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" -->

<% if (mlev = 4) or (lcase(strNoCookies) = "1") then%>  ---> Sorgulama satırı.


BU KISMA SAYFANIN İÇERİĞİNİ OLUŞTURAN KODLAR EKLENİR.

<%end if%>

<!-- #INCLUDE FILE="inc_footer.asp" -->
 



B) Hata Mesajı Gösteren ve Sadece Yöneticinin Girebileceği Sayfa Yapmak:
Sayfa açıldığığında sorgulama yapılır.Eğer giren kişi yönetici ise sayfa içeriği görüntülenir.Eğer yönetici değilse sayfa içeriği yerine bir hata mesajı gösterilir.Sayfada üst kısım, alt kısım ve hata mesajı görünür.

Kod: [Seç]

   
 
<%
'***********************************************************************
'** Copyright (C) 2001 - 2003 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
CurPageType = "Sayfa Başlığı"
CurPageInfoChk = "1"
function CurPageInfo ()
strOnlineQueryString = ChkActUsrUrl(Request.QueryString)
PageName = "Sayfa Başlığı"
PageAction = "Görüntüleniyor<br>"
PageLocation = "sayfa.asp"
CurPageInfo = PageAction & " " & "<a href=" & PageLocation & ">" & PageName & "</a>"

end function
%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" -->

<% if (mlev = 4) or (lcase(strNoCookies) = "1") then%>


BU KISMA SAYFANIN İÇERİĞİNİ OLUŞTURAN KODLAR EKLENİR.
<%else%>
BU SAYFAYI SADECE YÖNETİCİ GÖREBİLİR.

<%end if%>

<!-- #INCLUDE FILE="inc_footer.asp" -->
 




C) Sadece Yönetici ve Moderatörün Girebileceği Sayfa Yapmak:
Sayfa açıldığığında sorgulama yapılır.Eğer giren kişi yönetici veya moderatör ise sayfa içeriği görüntülenir.Eğer yönetici veya moderatör değilse sayfa içeriği yerine sadece üst kısım ve alt kısım görünür.

Kod: [Seç]

     
 
<%
'***********************************************************************
'** Copyright (C) 2001 - 2003 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
CurPageType = "Sayfa Başlığı"
CurPageInfoChk = "1"
function CurPageInfo ()
strOnlineQueryString = ChkActUsrUrl(Request.QueryString)
PageName = "Sayfa Başlığı"
PageAction = "Görüntüleniyor<br>"
PageLocation = "sayfa.asp"
CurPageInfo = PageAction & " " & "<a href=" & PageLocation & ">" & PageName & "</a>"

end function
%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" -->

<% if (mlev = 3) or (mlev = 4) or (lcase(strNoCookies) = "1") then %>


BU KISMA SAYFANIN İÇERİĞİNİ OLUŞTURAN KODLAR EKLENİR.

<%end if%>

<!-- #INCLUDE FILE="inc_footer.asp" -->
 




D) Sadece Üyelerin Girebileceği Sayfa Yapmak:
Sayfa açıldığığında sorgulama yapılır.Eğer giren kişi üye ise sayfa içeriği görüntülenir.Eğer üye değilse sayfa içeriği gösterilmez.

Kod: [Seç]


<%
'***********************************************************************
'** Copyright (C) 2001 - 2003 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
CurPageType = "Sayfa Başlığı"
CurPageInfoChk = "1"
function CurPageInfo ()
strOnlineQueryString = ChkActUsrUrl(Request.QueryString)
PageName = "Sayfa Başlığı"
PageAction = "Görüntüleniyor<br>"
PageLocation = "sayfa.asp"
CurPageInfo = PageAction & " " & "<a href=" & PageLocation & ">" & PageName & "</a>"

end function
%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" -->

 <% if not strDBNTUserName = "" Then %>


BU KISMA SAYFANIN İÇERİĞİNİ OLUŞTURAN KODLAR EKLENİR.

<%end if%>

<!-- #INCLUDE FILE="inc_footer.asp" -->
 


Şimdi Sorgulama Kodlarını Tekrarlayalım:


-Sadece yöneticilerin girebileceği sayfa yapmak Yçin

     
 
<% if (mlev = 4) or (lcase(strNoCookies) = "1") then%>

<%end if%>
 



-Sadece moderatörlerin girebileceği sayfa yapmak Yçin

 
 
<% if (mlev = 3) or (lcase(strNoCookies) = "1") then %>

<%end if%>
 



-Sadece yönetici ve moderatörlerin girebileceği sayfa yapmak Yçin

 
 
<% if (mlev = 3) or (mlev = 4) or (lcase(strNoCookies) = "1") then %>

<%end if%>
 



-Sadece üyelerin girebileceği sayfa yapmak Yçin

 
 
  <% if not strDBNTUserName = "" Then %>

<%end if%>

[dewawa222]

üye olmayanlar nasıl bir hata mesajı görüyorlar ve o hata mesajını istediğimiz gibi değiştirebilirmiyiz?

[burajan]

Kod: [Seç]

<% if not strDBNTUserName = "" Then %>
Buraya kodlar
<% else %>
Üye olmayanların göreceği uyarı mesajı
<%end if%>Yukarıdaki else değerini koyarak istediğin bir mesajı çıkartabilirsin.

[reallegendone]

Hocam üye olmayanların girememesi ve uyarı mesajı alması için FHOME.ASP dosyasına hangi kodları ve neresine ekleyecem? Zahmet olacak ama cevaplarsanız sevinirim.

[burajan]

<!--#INCLUDE FILE="inc_top.asp" --> bu kodu bul altına şu kodu ekle:
<% if not strDBNTUserName = "" Then %>

<!--#INCLUDE FILE="inc_footer.asp" --> kodu bul üstüne şu kodu ekle:
<% else %>
Üye olmayanların göreceği uyarı mesajı
<%end if%>

Ben denemedim ama normalde bu şekilde olması gerekiyor. Not: fhome.asp dosyasına bu kodları eklemen forum konularına ulaşılmasını engellemez. Bu nedenle forumu açarken üyelere özel açmak daha iyi olur. Eğer böyle birşey düşünüyorsan

[AYAS]

hocam bu kodları hankı dosyaya eklememiz gerekli sadece uyelerin gormesi icin

[burajan]

Hangi sayfaya girmelerini engellemek istiyorsan o sayfaya.

[AYAS]

mesela galeriye ekleyecem ama galerinin hanki dosyasina hepsinemi

[burajan]

Sitendeki galeri sayfalarını gezerken adres çubuğunda hangi sayfaları ziyaretçilere kapatmak istiyorsan o sayfalara ekle. Mesela adres çubuğunda gözüken adres www.siteadi.com/pic_add_form.asp sayfası ise ve bu sayfayı ziyaretçilere kapatmak istiyorsan pic_add_form.asp dosyasında gerekli kodlamaları giriyorsun.

[AYAS]

ekliyorum ama buseferde sayfa goruntulenmiyor