UzmanWeb.Net Forum

Forumda En Çok Cevaplananlar bloğu (Okunma sayısı 4719 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

massive

* Mart 24, 2008, 20: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>

adnancelik

#1 * Nisan 01, 2008, 07:47:11 ÖÖ
Bu dosyayı nereye ekleyeceğiz acaba?
Kayıtlı

AdmiN

#2 * Nisan 01, 2008, 08:01:29 ÖÖ
Default.asp içine include edebilirsin.
Kayıtlı

aliuykun42

#3 * Ağustos 25, 2008, 07:14:54 ÖÖ
ınc yaptım blokalarda kaymada oldu ...
Kayıtlı

burajan

#4 * Ağustos 25, 2008, 07:26:46 ÖÖ
aliuykun42, ekteki dosyayı dene bakalım.
Kayıtlı
Kişisel İnternet Sitem => http://www.buraksimsek.com.tr

aliuykun42

#5 * Eylül 21, 2008, 03:30:53 ÖÖ
şimdi biraz karışma var gibi linki vereyim bakın isterseniz.
http://www.aksehirliyizbiz.com/forum/ddefault.asp
en  altta
Kayıtlı

aliuykun42

#6 * Eylül 23, 2008, 11:04:19 ÖÖ
bundada düzenleme yapıldı mı
Son Düzenleme: Eylül 23, 2008, 11:20:20 ÖÖ Gönderen: aliuykun42
Kayıtlı

AdmiN

#7 * Eylül 23, 2008, 18:38:17 ÖS
Buradaki dosyayı düzenlemiştim.Onu deneyebilirsin.
Kayıtlı

kavalu

#8 * Eylül 28, 2009, 00:47:52 ÖÖ
Üyeler bu bloğu göremediler. Yardımlarınız için şimdiden teşekürler.
Kayıtlı

AdmiN

#9 * Eylül 28, 2009, 05:09:16 ÖÖ
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>
Kayıtlı