Lorenzo Pascucci & Valvitalba
a- a+

Visualizzare gli ultimi 5 post inseriti

Con questo piccolo mod è possibile visualizzare in qualsiasi pagina asp gli ultimi post inseriti nel forum. 

Iniziamo creando una pagina che chiameremo last.asp; adesso nella 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 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
%>

Come potete vedere il testo è evidenziato in rosso e in 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 per evidenziare 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 del database, e i due link alla pagina link.asp, passiamo alla configurazione della pagina dove verranno visualizzati gli ultimi 5 post inseriti.

Apriamo la suddetta pagina e inseriamo questo include:

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

in seguito inseriamo questo codice nel punto in cui vogliamo che 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 ultimi 5 post, ma proprio nel codice qui sopra, è possibile cambiare il numero nella penultima riga, ovvero basta cambiare il numero in:

<%=getlast_topic(5)%>



Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Lorenzo
Hai qualche domanda da fare?