Forumda En Çok Cevaplananlar bloğu

[massive]

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>


[adnancelik]

Bu dosyayı nereye ekleyeceğiz acaba?

[AdmiN]

Default.asp içine include edebilirsin.

[aliuykun42]

ınc yaptım blokalarda kaymada oldu ...

[burajan]

aliuykun42, ekteki dosyayı dene bakalım.

[aliuykun42]

şimdi biraz karışma var gibi linki vereyim bakın isterseniz.
http://www.aksehirliyizbiz.com/forum/ddefault.asp
en  altta

[aliuykun42]

bundada düzenleme yapıldı mı

[AdmiN]

Buradaki dosyayı düzenlemiştim.Onu deneyebilirsin.

[kavalu]

Üyeler bu bloğu göremediler. Yardımlarınız için şimdiden teşekürler.

[AdmiN]

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>