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.
<%
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>
"Bu Konuya Teşekkür Edenler":
AdmiN, burajan
