UzmanWeb.Net Forum

Üyeye Özel Menü Yapmak (Okunma sayısı 7670 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

burajan

* Temmuz 31, 2007, 21:03:43 ÖS
Burada yazacağım işlemler ile sitenize güzel bir üyeye özel menü oluşturabilirsiniz. Uzun zaman önce yapmıştım bunu. İstek gelince yayınlayayım, arkadaşlarımız yararlansın dedim  ;D

fp_custom.asp dosyasını açıp aşağıdaki kodları ekleyin:
Kod: [Seç]
<% function uyemenu()
if not strDBNTUserName = "" then
spThemeTitle= "Size Özel"
    spThemeBlock1_open(intSkin) %>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td align="left" valign="middle">
<center><b><%=strDBNTUserName%></b><br><%
'Get member info
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_TITLE, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_POSTS, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_GOLD, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_REP, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_RTOTAL, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_PAGE_VIEWS, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_PMSTATUS, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strUserMemberID
set rsMem = my_Conn.Execute (strSql)
flag_PMstatus = rsMem("M_PMSTATUS")
' - Get Avatar Settings from DB
strSql = "SELECT " & strTablePrefix & "AVATAR2.A_WSIZE"
strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_HSIZE"
strSql = strSql & ", " & strTablePrefix & "AVATAR2.A_BORDER"
strSql = strSql & " FROM " & strTablePrefix & "AVATAR2"
set rsav = my_Conn.Execute (strSql) %>
        <img src="<%= rsMem("M_AVATAR_URL") %>" align="absmiddle" width=<%= rsav("A_WSIZE") %> height=<%= rsav("A_HSIZE") %> border=<%= rsav("A_BORDER") %> hspace="0" />
        <%
        set rsav = nothing
        response.Write("<hr>")
 %></center>
<div class="menu">
<% if intMyMax or intIsSuperAdmin then %>
<a href="javascript:;" onclick="mymax();" class="nav_menuItem">- Sayfa Düzeni<br></a>
<% end if %>
<a href="cp_main.asp" class="nav_menuItem">- Kontrol Paneli<br></a>
<a href="cp_main.asp?cmd=5" class="nav_menuItem">- Kişisel Ayarlar<br></a>
<a href="cp_main.asp" class="nav_menuItem">- Profilimi İncele<br></a>
<a href="cp_main.asp?cmd=9" class="nav_menuItem">- Profilimi Düzenle<br></a>
<a href="cp_main.asp?cmd=1" class="nav_menuItem">- Avatar Düzenle<br></a>
<a href="members.asp" class="nav_menuItem">- Üye Listesi<br></a>
<a href="statistics.asp" class="nav_menuItem">- Site İstatistikleri<br /></a>
<% if hasAccess(1) then %>
<a href="site_monitor.asp" class="nav_menuItem" target="_search">- Site Monitörü<br></a>
<% end if %>
</div>
<hr>
<div class="menu">
<% if chkApp("forums","USERS") then %>
<a href="forum_active_topics.asp">- <%= txtActvTopics %>&nbsp;<%= cntActiveTopics() %><br /></a>
<% End If %>
<a href="active_users.asp" class="nav_menuItem">- Aktif Kullanıcılar<br></a>
<% if chkApp("PM","USERS") then %>
<a href="pm.asp" class="nav_menuItem">- Özel Mesaj<br></a>
<% end if %>
<% if intBookmarks then %>
<a href="cp_main.asp?cmd=7" class="nav_menuItem">- Takip Ettiklerim<br></a>
<% end if
  if intSubscriptions then %>
<a href="cp_main.asp?cmd=6" class="nav_menuItem">- Aboneliklerim<br></a>
<% end if %>
<a href="cp_main.asp?cmd=4" class="nav_menuItem">- Yanıtladığım Konular<br></a>
<% if hasAccess(1) and chkApp("forums","USERS") then %>
<a href="forum_report_post_moderate.asp" class="nav_menuItem">- Raporlar<br></a>
<% end if
  if hasAccess(1) then %>
<a href="admin_home.asp" class="nav_menuItem">- Yönetici Paneli<br></a>
<% end if %>
</div>
        </td>
      </tr>
    </table>
<% spThemeBlock1_close(intSkin)
end if
end function
%>

Bu dosyayı kaydedip, sitenizdeki ile değiştirin.
Daha sonra sitenizin yönetim paneline girerek yeni bir blok ekleme sayfasına gelin ve şu aşağıdaki bilgileri sırasıyla girin:
Blok adı: Üye Menüsü
Fonksiyon: uyemenu()
Blok açıklaması: Üyeye Özel Menüyü Gösterir
Aktif: Evet
Sütun Yeri: Her iki yana


Daha sonra bunu yönetim panelinizden ana sayfa düzeni için aktif edin.
Not: Skyportalın kendisinde ziyaretçiler için giriş bloğu bulunduğundan dolayı bunu tekrar yapmaya gerek duymadım. O blok sadece ziyaretçilere çıkıyordu. Bu blokta sadece üyelere çıkıyor. Örnek resmini ekten görebilirsiniz. Güle güle kullanın.
Kayıtlı
Kişisel İnternet Sitem => http://www.buraksimsek.com.tr

skyquakes

#1 * Ağustos 01, 2007, 04:54:17 ÖÖ
güzel işler çıkarıyorsun yine :"3
Kayıtlı
her şey bir tutam mavi uğrunaydı;
   biraz gökyüzünden,
            biraz denizden,
                biraz da kalbimizden...
bir tutam mavi içindi her şey...

burajan

#2 * Ağustos 01, 2007, 15:48:33 ÖS
güzel işler çıkarıyorsun yine :"3
;) Eyvallah, elimden geldikçe
Kayıtlı
Kişisel İnternet Sitem => http://www.buraksimsek.com.tr

burajan

#3 * Temmuz 03, 2008, 00:33:56 ÖÖ
Arkadaşlar, bu yukarıda anlattığım menüyü modül haline getirmiştim. Ve bugünde yeni bir sürümünü yayınladım. Bu sürümle birlikte menü modülünün kurulması daha kolay hale getirildi.
Skyportal Üye Menüsü Modülü v1.1 İndirmek İçin Tıklayın
Kayıtlı
Kişisel İnternet Sitem => http://www.buraksimsek.com.tr