Gönderen Konu: Forumda En Çok Cevaplananlar bloğu  (Okunma sayısı 2379 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı massive

  • İleti: 66
  • Puan: 3
  • Cinsiyet: Bay
    • KPSS Hazırlık
Forumda En Çok Cevaplananlar bloğu
« : Mart 24, 2008, 12:43:06 ÖS »
Forumda en çok cevaplanan konuları gösterir. ben 10 olarak ayarladım. Siz sayıyı isteğe göre ayarlarsınız. Zip olarak ekten indirebilirsiniz. Veya kodları kopyalayıp blok yapabilirsiniz.

Kod: [Seç]
<%
mwpThemeTitle= "En Çok Cevaplanan 10 Konu"
mwpThemeBlock_open()%>


<%if strDBNTUserName = "" then
doNotLoggedInForm
else

dim intRepliedTopics

intRepliedTopics = 10 ' number of top read topics to display
%>



<% if (mlev = 4 or mlev = 3) then%>

    <%=displayRepliedTopics%>
 
<%
end if
mwpThemeBlock_close()%>

<%
function displayRepliedTopics()
dim rs
set rs = server.CreateObject("adodb.recordset")

strSql = "SELECT TOP " & intRepliedTopics & " TOPIC_ID, T_SUBJECT, T_REPLIES FROM " & strTablePrefix & "TOPICS ORDER BY T_REPLIES DESC"
rs.Open strSql, my_Conn
%>
<table border="0" cellpadding="0" cellspacing="5" width="100%">
<tr>
<td valign="middle" width="10%"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><b>No.</b></font></td>
<td valign="middle" align="left"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><b>Konu Başlığı</b></font></td>
<td valign="middle" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><b>Yanıt Sayısı</b></font></td>
</tr>
<%
dim intCounter
intCounter = 1
do while not rs.EOF and intCounter < intRepliedTopics + 1%>
<tr>
<td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><%= intCounter%>.</font></td>
<td align="left"><a href="link.asp?TOPIC_ID=<%=rs("TOPIC_ID")%>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><%= rs("T_SUBJECT")%></a></font></td>
<td align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><%= rs("T_REPLIES")%></font></td>
</tr>
<%
intCounter = intCounter + 1
rs.movenext
loop
rs.Close
set rs = nothing
end function
end if
%>
</div></table>
Konuyu Paylaş:
  delicious  facebook  twitter  google

Çevrimdışı adnancelik

  • İleti: 180
  • Puan: 1
-Forumda En Çok Cevaplananlar bloğu
« Yanıtla #1 : Mart 31, 2008, 22:47:11 ÖS »
Bu dosyayı nereye ekleyeceğiz acaba?

Çevrimiçi AdmiN

  • Genel Sorumlu
  • Administrator
  • *
  • İleti: 7976
  • Puan: 750
  • Cinsiyet: Bay
  • ~|| Bilginin Gücü ||~
    • Kişisel Web Sitem
-Forumda En Çok Cevaplananlar bloğu
« Yanıtla #2 : Mart 31, 2008, 23:01:29 ÖS »
Default.asp içine include edebilirsin.

Çevrimdışı aliuykun42

  • İleti: 148
  • Puan: 42
-Forumda En Çok Cevaplananlar bloğu
« Yanıtla #3 : Ağustos 24, 2008, 22:14:54 ÖS »
ınc yaptım blokalarda kaymada oldu ...

Çevrimdışı burajan

  • Web Programcısı
  • Administrator
  • *
  • İleti: 5109
  • Puan: 334
  • Cinsiyet: Bay
  • Web Programcısı
    • Burak ŞİMŞEK - Kişisel İnternet Sitesi
-Forumda En Çok Cevaplananlar bloğu
« Yanıtla #4 : Ağustos 24, 2008, 22:26:46 ÖS »
aliuykun42, ekteki dosyayı dene bakalım.
Kişisel İnternet Sitem => buraksimsek.com.tr - http://www.buraksimsek.com.tr

Lütfen özel mesaj ile destek istemeyiniz. Önce forumda arama yapınız daha sonra forumda ilgili bölüme konu açınız.

Çevrimdışı aliuykun42

  • İleti: 148
  • Puan: 42
-Forumda En Çok Cevaplananlar bloğu
« Yanıtla #5 : Eylül 20, 2008, 18:30:53 ÖS »
şimdi biraz karışma var gibi linki vereyim bakın isterseniz.
http://www.aksehirliyizbiz.com/forum/ddefault.asp
en  altta

Çevrimdışı aliuykun42

  • İleti: 148
  • Puan: 42
-Forumda En Çok Cevaplananlar bloğu
« Yanıtla #6 : Eylül 23, 2008, 02:04:19 ÖÖ »
bundada düzenleme yapıldı mı
« Son Düzenleme: Eylül 23, 2008, 02:20:20 ÖÖ Gönderen: aliuykun42 »

Çevrimiçi AdmiN

  • Genel Sorumlu
  • Administrator
  • *
  • İleti: 7976
  • Puan: 750
  • Cinsiyet: Bay
  • ~|| Bilginin Gücü ||~
    • Kişisel Web Sitem
-Forumda En Çok Cevaplananlar bloğu
« Yanıtla #7 : Eylül 23, 2008, 09:38:17 ÖÖ »
Buradaki dosyayı düzenlemiştim.Onu deneyebilirsin.

Çevrimdışı kavalu

  • İleti: 16
  • Puan: 0
-Forumda En Çok Cevaplananlar bloğu
« Yanıtla #8 : Eylül 27, 2009, 15:47:52 ÖS »
Üyeler bu bloğu göremediler. Yardımlarınız için şimdiden teşekürler.

Çevrimiçi AdmiN

  • Genel Sorumlu
  • Administrator
  • *
  • İleti: 7976
  • Puan: 750
  • Cinsiyet: Bay
  • ~|| Bilginin Gücü ||~
    • Kişisel Web Sitem
-Forumda En Çok Cevaplananlar bloğu
« Yanıtla #9 : Eylül 27, 2009, 20:09:16 ÖS »
Hem ziyaretçiler hem de üyelerin görebilmesi için bu kodları kullanabilirsiniz.Normalde moderatör ve yöneticiler görecek şekilde ayarlanmış.


Kod: [Seç]
<%
mwpThemeTitle= "En Çok Cevaplanan 10 Konu"
mwpThemeBlock_open()%>


<%
dim intRepliedTopics

intRepliedTopics = 10 ' number of top read topics to display
%>
    <%=displayRepliedTopics%>
 
<%
mwpThemeBlock_close()%>

<%
function displayRepliedTopics()
dim rs
set rs = server.CreateObject("adodb.recordset")

strSql = "SELECT TOP " & intRepliedTopics & " TOPIC_ID, T_SUBJECT, T_REPLIES FROM " & strTablePrefix & "TOPICS ORDER BY T_REPLIES DESC"
rs.Open strSql, my_Conn
%>
<table border="0" cellpadding="0" cellspacing="5" width="100%">
<tr>
<td valign="middle" width="10%"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><b>No.</b></font></td>
<td valign="middle" align="left"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><b>Konu Başlığı</b></font></td>
<td valign="middle" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><b>Yanıt Sayısı</b></font></td>
</tr>
<%
dim intCounter
intCounter = 1
do while not rs.EOF and intCounter < intRepliedTopics + 1%>
<tr>
<td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><%= intCounter%>.</font></td>
<td align="left"><a href="link.asp?TOPIC_ID=<%=rs("TOPIC_ID")%>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><%= rs("T_SUBJECT")%></a></font></td>
<td align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strDefaultFontColor %>"><%= rs("T_REPLIES")%></font></td>
</tr>
<%
intCounter = intCounter + 1
rs.movenext
loop
rs.Close
set rs = nothing
end function
%>
</div></table>

 

Benzer Konular

  Konu / Başlatan Yanıt Son İleti
0 Yanıt
1052 Gösterim
Son İleti Şubat 17, 2007, 22:36:53 ÖS
Gönderen: tekniker
3 Yanıt
2102 Gösterim
Son İleti Şubat 12, 2008, 16:15:50 ÖS
Gönderen: massive
7 Yanıt
3539 Gösterim
Son İleti Eylül 14, 2008, 02:15:34 ÖÖ
Gönderen: umut07
10 Yanıt
2752 Gösterim
Son İleti Eylül 28, 2009, 19:22:17 ÖS
Gönderen: AdmiN
16 Yanıt
2248 Gösterim
Son İleti Ağustos 29, 2008, 00:02:29 ÖÖ
Gönderen: AdmiN