Foruma google reklamı ekleyin

[burajan]

İki farklı yere google reklamı ekleyebilirsiniz.


Ekte bulunan 1. resim için:

forum.asp dosyasını açınız ve aşağıdaki kodu bulunuz (yaklaşık 355. satır):

Kod: [Seç]

<table width="100%" border="0" cellspacing="1" cellpadding="5">
      <tr>
        <td align="center" <%= mwpThemeBlock_subTitleCell %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">&nbsp;</font></b></td>
        <td align="center" <%= mwpThemeBlock_subTitleCell %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">&nbsp;</font></b></td>
        <td align="center" <%= mwpThemeBlock_subTitleCell %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Konular</font></b></td>
        <td align="center" <%= mwpThemeBlock_subTitleCell %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Konuyu Açan</font></b></td>
        <td align="center" <%= mwpThemeBlock_subTitleCell %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Cevaplar</font></b></td>
        <td align="center" <%= mwpThemeBlock_subTitleCell %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Okunma</font></b></td>
        <td align="center" <%= mwpThemeBlock_subTitleCell %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Son Gönderenler</font></b></td>
<% if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then %>
        <td align="center" <%= mwpThemeBlock_subTitleCell %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% call ForumAdminOptions() %></font></b></td>
<% end if %>
      </tr>
Bulduğunuz bu kodun altına aşağıdaki kodu ekleyiniz:

Kod: [Seç]

      <tr>
        <td colspan="8" bgcolor="<% =strForumCellColor %>" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Forumda Reklam Alanı Forumda Reklam Alanı Forumda Reklam Alanı</font></td>
      </tr>
İşlem tamam.


Ekte bulunan 2. resim için:

topic.asp dosyasını açınız ve aşağıdaki kodu bulunuz (yaklaşık 1230. satır):

Kod: [Seç]

    <table border="0" width="100%" cellspacing="1" cellpadding="4">
      <tr>
        <td align="center" <%= mwpThemeBlock_subTitleCell %> width="<% =strTopicWidthLeft %>" <% if lcase(strTopicNoWrapLeft) = "1" then Response.Write(" nowrap") %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">Yazar</font></b></td>
        <td align="center" <%= mwpThemeBlock_subTitleCell %> width="<% =strTopicWidthRight %>" <% if lcase(strTopicNoWrapRight) = "1" then Response.Write(" nowrap") %>><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><% if strShowTopicNav = "1" then Call Topic_nav() else Response.Write("Konu") end if%></font></b></td>
<% if (AdminAllowed = 1) then %>
        <td align=right <%= mwpThemeBlock_subTitleCell %> colspan=2 nowrap><% call AdminOptions() %></td>
<% else %>
        <td align=right <%= mwpThemeBlock_subTitleCell %> nowrap>&nbsp;</td>
<% end if %>
      </tr>
<%
if mypage = 1 then
Call GetFirst()
end if
 %>
Bulduğunuz bu kodun altına aşağıdaki kodu ekleyiniz:

Kod: [Seç]

<tr>
<td bgcolor="<% =strForumFirstCellColor %>" valign="top" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize-1 %>">
<font style="filter:glow(color:red,strength:4); width:100%;" color="white" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<b><acronym title="Reklam Robotu">Reklam Robotu</acronym></b></font>
Bu Bir Reklam Robotudur
</font></td>
        <td bgcolor="<% =strForumFirstCellColor %>" valign="top" <% if (AdminAllowed = 1) then %>colspan="3"<% else %>colspan="2"<% end if %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
Reklam kodlarınız buraya... Reklam kodlarınız buraya... Reklam kodlarınız buraya... Reklam kodlarınız buraya...
</font></td>
</tr>
İşlem tamam.

[aliuykun42]

çok güzel olmuşş

[bilgicagi]

Burak kardeşim askerdeyken bizde bir çalışma yaptık. Onuda ben paylaşmak istiyorum. Biraz teferruatlı gibi gözüksede benim gibi üye profili %99'u muhafazakar olan kardeşlerimizden oluşan sitede gerekli oluyor.

Öncelikle Veritabanında PORTAL_MEMBERS Tablosunda bir alan açın ismi "M_REKLAM" olsun. Sayı özelliğini verin ve default değer olarakta 1 rakamını atayın. Bu alanı oluşturduktan sonra tüm üyelerinizin M_REKLAM değerini 1 yapın.

inc_functions.asp içinde aşağıdaki kodu bulun ve hemen altına şu kodu ekleyin.

Kod: [Seç]

function getMemberID(fUser_Name)

'## Forum_SQL
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_NAME = '" & fUser_Name & "'"

Set rsGetMemberID = my_Conn.Execute(strSql)
getMemberID = -1

Set rsGetMemberID = my_Conn.Execute(strSql)
If Not rsGetMemberID Is Nothing Then
If Not ( rsGetMemberID.BOF and rsGetMemberID.EOF ) Then
getMemberID = rsGetMemberID("MEMBER_ID")
Else
getMemberID = 0 End If
Else
getMemberID = 0
End If


rsGetMemberID.close
set rsGetMemberID = nothing
end function
Bu kodun altına ekleyeceğiniz reklam kodu.

Kod: [Seç]

'*******************REKLAM**************************
function GetReklam()
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_REKLAM "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_NAME = " & "'"&strDBNTUserName &"'"

Set rsGetReklam = my_Conn.Execute(strSql)
If Not rsGetReklam  Is Nothing Then

If Not ( rsGetReklam.BOF and rsGetReklam.EOF ) Then
GetReklam= rsGetReklam("M_REKLAM")
Else
GetReklam = 1 End If
Else
GetReklam = 1

'If Not rsGetReklam  Is Nothing Then
'GetReklam = rsGetReklam("M_REKLAM")
'Else
'GetReklam = 1
End If


rsGetReklam.close
set rsGetReklam = nothing

end function

Şimdi geldik reklam kodlarımızı eklemeye.

inc_functions.asp içinde tavsiyem en alata gelin ve şu şekilde kodlar oluşturun. Ben bir örnek yapacağım siz istediğiniz kadar yapın.

Kod: [Seç]

<% Function Google468_60resimli %>
<script type="text/javascript"><!--
google_ad_client = "pub-8965836551393189";
/* 468x60, oluşturulma 27.12.2008 */
google_ad_slot = "2470608291";
google_ad_width = 468;
google_ad_height = 60;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
<% End Function %>

Daha sonra topic.asp içinde şu kodu kullanmalısınız. Reklam göstereceğiniz Burak kardeşimin gösterdiği yerlere..

Kod: [Seç]

<%if GetReklam()=1 then%><%Google468_60resimli%><% end if %>
Bu modülde şu önemli. M_REKLAM kodu değeri 1 olanlar sitede reklamı görebilirler. M_REKLAM kodunu "0" yaptığınız kişiler reklamları göremezler.

Bu ayarı siz üyelere kendileri yapsın diyede imkan verebilirsiniz bunun için Üye tercihlerinde de düzenleme gerekiyor. İhtiyaç dahilinde onuda yazarım.

[burajan]

Seninde çalışman güzel olmuş. Tebrik ederim

[bilgicagi]

Rica ederim.