Yeni modül ve Yeni konuların Ana Menüde verilmesi

[AdmiN]

Bület arkadaşımız bekleyen görevler üzerine 2 yazı hazırlamıştı. Şimdi de eklediğimiz modüle yeni bir konu eklendiğinde Ana Sayfadaki menüde bize yeni uyarısının nasıl verileceğini anlatalım..

Siir modülünü eklediğimizi varsayalım. default_menu.asp sayfasını açıyoruz.

eCnt = getCount("Event_ID","PORTAL_EVENTS","Pending = 0 AND DATE_ADDED > '" & Session(strCookieURL & "last_here_date") & "' AND PRIVATE = 0")
aCnt = getCount("ARTICLE_ID","ARTICLE","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")
dlCnt = getCount("DL_ID","DL","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")
pCnt = getCount("PIC_ID","PIC","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")
clCnt = getCount("CLASSIFIED_ID","CLASSIFIED","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")
linkCnt = getCount("LINK_ID","LINKS","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")
totalCnt = aCnt + dlCnt + pCnt + clCnt + linkCnt

yukarıdaki kodları bulalım (line 110). Buraya gerekli eklentiyi açacağız. Bu bölümde her satırın başında eCnt şeklinde bir kod var. Cnt önüne bir harf girmeniz gerekli. Şiir bölümü için bu harfi "s" olarak belirleyelim ve sCnt olarak bu atamayı yapalım. Şimdi aşağıdaki satırı dikkatlice inceleyin.

sCnt = getCount("SIIR_ID","SIIR","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")

Bu kodu ekledikten sonra
totalCnt = aCnt + dlCnt + pCnt + clCnt + linkCnt
satırını bulup aşağdaki gibi düzenleyelim

totalCnt = aCnt + dlCnt + pCnt + clCnt + linkCnt + sCnt

Bu değişikliklerle bir sorgulama oluşturduk. Şimdi sıra yeni konu ID numaraları için linkleri bağlamaya geldi.

If eCnt = 0 Then eUrl = "events.asp" else eUrl = "event_new.asp" end if
If aCnt = 0 Then aUrl = "article.asp" else aUrl = "article_new.asp" end if
If dlCnt = 0 Then dlUrl = "dl.asp" else dlUrl = "dl_new.asp" end if
If pCnt = 0 Then pUrl = "pic.asp" else pUrl = "pic_new.asp" end if
If clCnt = 0 Then clUrl = "classified.asp" else clUrl = "classified_new.asp" end if
If linkCnt = 0 Then linkUrl = "links.asp" else linkUrl = "links_new.asp" end if

Yukardaki kodları buluyoruz. Hemen altına şu bağlantıyı ekliyoruz
If sCnt = 0 Then sUrl = "siir.asp" else sUrl = "siir_new.asp" end if

Bağlantı içerisinde önceden belirlediğimiz "s" komutu bizim için çok önemli... Buna dikkat etmeniz gerekli. Çünkü bu komut sayesinde aktif bir konu varsa yeni eklenen konuya, yoksa doğrudan içerik sayfasına link atıyoruz..

Ve son nokta. Menüde börünecek olan linkler ve yeni ikonunun yerleştirmesi. Bu kodları (v2.0 ve üzeri) güvenlik için herhangi bir modüler yapı altına gömeceğiz. Örneğin <% if instr(strModules,":4:") then %> (Makaleler) altına. Aşağdaki kodu bulalım.

<a href="<%= aUrl %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">- Makaleler </font><% If aCnt <> 0 Then %><img src="images/new.gif" border="0"><% End If %>
[/url]

Hemen altına şunları ekleyelim. "s" komutu devam ediyor...

<a href="<%= sUrl %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">- Şiirler </font><% If sCnt <> 0 Then %><img src="images/new.gif" border="0"><% End If %>
[/url]

Genel yapı aşağdaki gibi olacak.
1. BÖLÜM

eCnt = getCount("Event_ID","PORTAL_EVENTS","Pending = 0 AND DATE_ADDED > '" & Session(strCookieURL & "last_here_date") & "' AND PRIVATE = 0")
aCnt = getCount("ARTICLE_ID","ARTICLE","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")
dlCnt = getCount("DL_ID","DL","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")
pCnt = getCount("PIC_ID","PIC","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")
clCnt = getCount("CLASSIFIED_ID","CLASSIFIED","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")
linkCnt = getCount("LINK_ID","LINKS","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")
sCnt = getCount("SIIR_ID","SIIR","POST_DATE > '" & Session(strCookieURL & "last_here_date") & "' AND show = 1")
totalCnt = aCnt + dlCnt + pCnt + clCnt + linkCnt + sCnt

2. BÖLÜM

If eCnt = 0 Then eUrl = "events.asp" else eUrl = "event_new.asp" end if
If aCnt = 0 Then aUrl = "article.asp" else aUrl = "article_new.asp" end if
If dlCnt = 0 Then dlUrl = "dl.asp" else dlUrl = "dl_new.asp" end if
If pCnt = 0 Then pUrl = "pic.asp" else pUrl = "pic_new.asp" end if
If clCnt = 0 Then clUrl = "classified.asp" else clUrl = "classified_new.asp" end if
If linkCnt = 0 Then linkUrl = "links.asp" else linkUrl = "links_new.asp" end if
If sCnt = 0 Then sUrl = "siir.asp" else sUrl = "siir_new.asp" end if

3. BÖLÜM

<% if instr(strModules,":4:") then %>
<a href="<%= aUrl %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">- Makaleler </font><% If aCnt <> 0 Then %><img src="images/new.gif" border="0"><% End If %>
[/url]
<a href="<%= sUrl %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">- Şiirler </font><% If sCnt <> 0 Then %><img src="images/new.gif" border="0"><% End If %>
[/url]
<% End If %>


Yazan: bilgi