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

[burajan]

Doğru kodları ekliyorsan ve doğru yere ekliyorsan herhangi bir sorun olmaması gerekir.

[burajan]

Bir zamanlar benim kendi sitemde kullandığım kod vardı. Bu kodu burada paylaşmak istiyorum. Ziyaretçilere uyarı çıkarmak istediğiniz sayfalara şu kodu ekleyin:

Kod: [Seç]

<%
if (strNoCookies = 1) or (strDBNTUserName = "") then
Response.Redirect("uyelikuyarisi.asp")
end if
%>Not: <!-- #INCLUDE FILE="inc_top.asp" --> kodunun altına eklenecektir.
daha sonra uyelikuyarisi.asp adında bir sayfa oluşturun ve uyarınızı bu sayfa içine yazın.

[assatanata]

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 %>


<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Copyright (C) 2004-2005 Tom Nance (SkyDogg) All Rights Reserved
'<> Events Suite Copyright (C) 2004-2005 Ken Smiley 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.info 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.info
'<>
'<> Email: maxweb@maxwebportal.info
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'***********************************************************************
'** Copyright (C) 2001 - 2004 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 = "Resimler"
CurPageInfoChk = "1"
function CurPageInfo ()
strOnlineQueryString = ChkActUsrUrl(Request.QueryString)
PageName = "Resimleri<b"
PageAction = "İnceliyor<br>"
PageLocation = "pic.asp"
CurPageInfo = PageAction & " " & "<a href=" & PageLocation & ">" & PageName & "</a>"

end function
%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" --><br>
<%
strSql = "select * from PIC_CATEGORIES order by cat_name"
dim rsCategories
set rsCategories = server.CreateObject("adodb.recordset")
rsCategories.Open strSql, my_Conn
%>
<table border="0" wIDth="99%" align="center">
<tr>
<td wIDth="180" valign="top"><!-- #include file=pic_menu.asp --></td>
<td wIDth="75%" valign="top">
<%mwpThemeTitle= "Resimler"
mwpThemeBlock_open()%>
  <tr>
    <td bgcolor="<%= strForumCellColor %>" wIDth="100%">
      <table border="0" cellpadding=6 cellspacing=0 wIDth="100%">
        <tr>
        <%
Do while NOT rsCategories.EOF
ColNum = 1
Do while ColNum < 3
%>
          <td ALIGN=LEFT VALIGN=top WIDTH="50%"><img src="images/icons/icon_folder_new_topic.gif" border=0><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>"><b><a href="pic_showsub.asp?cat_ID=<%=rsCategories("cat_ID")%>&cat=<%= ChkString(rsCategories("cat_name"), "urlpath") %>"><%= ChkString(rsCategories("cat_name"), "display") %></a></b></font><br>
<%
parent_ID = rsCategories("cat_ID")

subsql = "SELECT * FROM PIC_SUBCATEGORIES where cat_ID=" & parent_ID & " order by subcat_name"
     
set rssubcat = my_Conn.Execute(subsql)
'count = rssubcat.RecordCount
'count = 1
do while not rssubcat.EOF 'and count<=3
%><img src="images/icons/icon_bar.gif" border=0><img src="images/icons/icon_bookmark.gif" border=0>
  <font face="<%= strDefaultFontFace %>" size="<%= strFooterFontSize %>" color="<%=strDefaultFontColor%>">
  <a href="pic_showall.asp?cat_ID=<%=rssubcat("subcat_ID")%>&parent_ID=<%=rsCategories("cat_ID")%>&parent_name=<%= ChkString(rsCategories("cat_name"), "urlpath") %>&sub_name=<%= ChkString(rssubcat("subcat_name"), "urlpath") %>"><%= ChkString(rssubcat("subcat_name"), "display") %>
<%
sqlcount = "SELECT count(PIC_ID) FROM PIC where category =" & rsSubcat("subcat_ID") & " and show = 1"
Set RScounts = my_Conn.Execute(sqlcount)

rcounts = RScounts(0)
if rcounts <> 0 then
Response.Write "&nbsp;(" & rcounts & ")"
end if
Response.Write "</a></font><br>"

rssubcat.movenext
'count = count + 1
loop
%>
          </td>

<%
if NOT rsCategories.EOF then
rsCategories.MoveNext
end if

ColNum = ColNum + 1

if NOT rsCategories.EOF then
%>

          <td ALIGN=LEFT VALIGN=top WIDTH="50%"><img src="images/icons/icon_folder_new_topic.gif" border=0><font face="<%= strDefaultFontFace %>" copyright="m+a+x+w+e+b+p+o+r+t+a+l" size="<%= strDefaultFontSize %>"><b><a href="pic_showsub.asp?cat_ID=<%=rsCategories("cat_ID")%>&cat=<%= ChkString(rsCategories("cat_name"), "urlpath") %>"><%= ChkString(rsCategories("cat_name"), "display") %></a></b></font><br>
<%
parent_ID = rsCategories("cat_ID")
subsql = "SELECT * FROM PIC_SUBCATEGORIES where cat_ID=" & parent_ID & " order by subcat_name"
     
set rssubcat = my_Conn.Execute(subsql)
'count = rssubcat.RecordCount
'count = 1
do while not rssubcat.EOF 'and count<=3
%><img src="images/icons/icon_bar.gif" border=0><img src="images/icons/icon_bookmark.gif" border=0>
  <font face="<%= strDefaultFontFace %>" size="<%= strFooterFontSize %>">
  <a href="pic_showall.asp?cat_ID=<%=rssubcat("subcat_ID")%>&parent_ID=<%=rsCategories("cat_ID")%>&parent_name=<%= ChkString(rsCategories("cat_name"), "urlpath") %>&sub_name=<%= ChkString(rssubcat("subcat_name"), "urlpath") %>"><%= ChkString(rssubcat("subcat_name"), "display") %>
<%
sqlcount = "SELECT count(PIC_ID) FROM PIC where category =" & rsSubcat("subcat_ID") & " and show = 1"
Set RScounts = my_Conn.Execute(sqlcount)

rcounts = RScounts(0)
if rcounts <> 0 then
Response.Write " (" & rcounts & ")"
end if
Response.Write "</a></font><br>"

rssubcat.movenext
'count = count + 1
loop
%>
          </td>
<%
end if
ColNum = ColNum + 1
Loop
%>
</tr>
<%
if NOT rsCategories.EOF then 
rsCategories.MoveNext 
end if
Loop
%>
      </table>
<%mwpThemeBlock_close()%>

</td>
<td wIDth="25%" valign="top">
<!-- #include file=inc_pic3.asp --></td>
</tr>
</table>
<% rsCategories.close
set rsCategories = nothing%>
<br>
<!-- #INCLUDE FILE="pic_affiliates.asp" -->
<!-- #INCLUDE FILE="inc_footer.asp" -->


<%end if%>

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

.................................

galerime sadece üyelerin girmesi için bunları yaptım...

ama sayfa görüntülenemedi..nere hata yaptım acaba...yardımcı olursanız sevinirim...

[burajan]

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
"
   PageLocation = "sayfa.asp"
   CurPageInfo = PageAction & " " & "<a href=" & PageLocation & ">" & PageName & "[/url]"

end function
%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" -->
Bu koddan iki tane ekleme yapmışsın dolayısıyla bundan hata verebilir. Bu benim gösterdiğim kodu silip, üyeler için kodu diğer inc_top kodunun altına eklersen problemin çözülecektir.