• Programmazione » Snitz » Snitz Forums: Mod Ultimi 5 Articoli

Con questo piccolo mod è possibile visualizzare inqualsiasi pagina asp gli ultimi post inseriti nelforum. 

Iniziamo creando una pagina che chiameremo last.asp; adessonella pagina inseriamo questo codice:

<%ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../mdb-database/forum.mdb")function getlast_topics(numdays)set tConn= Server.CreateObject("ADODB.Connection")tConn.Open ConnStringstrSql = "SELECT TOP "&numdays&" T_AUTHOR,T_LAST_POST,T_LAST_POSTER,T_DATE, T_SUBJECT,TOPIC_ID,FORUM_ID,CAT_ID from FORUM_TOPICS order by T_LAST_POST DESC"CColor=strForumCellColorset rss = tConn.Execute (strSql)do until rss.eoftID=rss("TOPIC_ID")tPOSTER=rss("T_LAST_POSTER")tDATE=rss("T_DATE")tSUBJECT=rss("T_SUBJECT")strlast =strlast&"<tr><td onMouseOver=""this.style.background='#333333';"" onMouseOut=""this.style.background='#000000';"" style=""cursor: hand"" bgcolor=""#000000"" onClick=""window.location.href='/forum/link.asp?TOPIC_ID="&tID&"'"" height=""18"" class=""button"">" &vbcrlfstrlast =strlast&"<div align=""left"" class=""button (unavailable)""><fontface=""Veranda, Arial, Helvetica, san-serif"" size=""1""><a href=""/forum/link.asp?TOPIC_ID="&tID&""" class=""button (unavailable)""><small>"&tSUBJECT&"</small></a></font></div>"&vbcrlfstrlast =strlast&"</td></tr>"&vbcrlfrss.movenextlooprss.closeset rss=nothingtConn.closeset tConn=nothinggetlast_topics=strlastend function%>

Come potete vedere il testo è evidenziato in rosso ein blu in alcune parti: le parti in rosso vanno modificate,corrispondono a link relativi al forum e al database.

Le parti in blu invece vanno messe su un'unica riga;c'è un'unica eccezione: tra &vbcrlf e strlast bisogna andare a capo;nel codice è stata lasciata una riga vuota perevidenziare il punto in cui andare a capo.

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../mdb-database/forum.mdb") function getlast_topics(numdays) set tConn= Server.CreateObject("ADODB.Connection") tConn.Open ConnString strSql = "SELECT TOP "&numdays&" T_AUTHOR,T_LAST_POST,T_LAST_POSTER,T_DATE, T_SUBJECT,TOPIC_ID,FORUM_ID,CAT_ID from FORUM_TOPICS order by T_LAST_POST DESC" CColor=strForumCellColor set rss = tConn.Execute (strSql) do until rss.eof tID=rss("TOPIC_ID") tPOSTER=rss("T_LAST_POSTER") tDATE=rss("T_DATE") tSUBJECT=rss("T_SUBJECT") strlast =strlast&"<tr><td onMouseOver=""this.style.background='#333333';"" onMouseOut=""this.style.background='#000000';"" style=""cursor: hand"" bgcolor=""#000000"" onClick=""window.location.href='/forum/link.asp?TOPIC_ID="&tID&"'"" height=""18"" class=""button"">" &vbcrlf strlast =strlast&"<div align=""left"" class=""button (unavailable)""><font face=""Veranda, Arial, Helvetica, san-serif"" size=""1""><a href=""/forum/link.asp?TOPIC_ID="&tID&""" class=""button (unavailable)""><small>"&tSUBJECT&"</small></a></font></div>"&vbcrlf strlast =strlast&"</td></tr>"&vbcrlf rss.movenext loop rss.close set rss=nothing tConn.close set tConn=nothing getlast_topics=strlast end function

Per non sbagliare, copiate il codice sopra da questo box:(è lo stesso)

Dopo aver modificato l'indirizzo deldatabase, e i due link alla pagina link.asp, passiamoalla configurazione della pagina dove verranno visualizzatigli ultimi 5 post inseriti.

Apriamo la suddetta pagina e inseriamo questoinclude:

<!--#include file="last.asp" --> 

in seguito inseriamo questo codice nel punto in cui vogliamoche vengano visualizzati i post:

    <table width="100%" cellspacing="1" cellpadding="0" border="0" bgcolor="#660000"> <'% =getlast_topics(5) %'> </table>

Abbiamo realizzato l'esempio per visualizzare gli ultimi5 post, ma proprio nel codice qui sopra, è possibilecambiare il numero nella penultima riga, ovvero bastacambiare il numero in:

<%=getlast_topic(5)%>