Implementazione del codice
Questo tutorial è valido solo per la versione 2.0 di AspNuke.
Per implementare il modulo, usiamo la tecnica dei moduli aggiuntivi, usando il tutorial di Romolo.
Quindi, creiamo una pagina ASP nuova, che chiameremo FOTORANDOM.ASP, naturalmente sempre con il buon vecchio NOTEPAD, e scriviamoci all'interno questo codice:
<%
Sub DisplayPhoto()
' IMPORTANTISSIMO!! inserite sempre nel vostro nuovo blocco la riga Sub Display() per poi richiamare il file nell'xml
CreateTopTable "Immagini", GetTranslation("LANG_LISTEN_TO_PHOTO")
Dim oCn, oRs, rSQL, idMIN, idMAX, idSELECT, iPath
on error resume next
Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT min(iID) as MIN, max(iID) as MAX FROM images where iValid = 1"
Set oRs = DBRecordSet(oCn, rSQL)
idMIN = Server.URLEncode(oRs("MIN"))
idMAX = Server.URLEncode(oRs("MAX"))
oRs.Close
set oRs = Nothing
Randomize
idSELECT = Int((idMAX-idMIN) * Rnd) + idMIN
rSQL = "SELECT * FROM images where iValid = 1 and iID >= " & idSELECT
Set oRs = DBRecordSet(oCn, rSQL)
iPath = oRs("iSourceSmall")
Response.Write " <table border=""0"" width=""100%"">" & vbCRLF
Response.Write " <td><center>" & vbCRLF
if iPath <> "" then
Response.Write "<a href= " & GLOBAL_SITE_PATH & "images.asp?id=" & idSELECT & "><p align=""center""><img src=""" & iPath & """ border=""2"" width=""120"" alt=""Immagini di repertorio"" hspace=""3""></a>"
Response.Write "<br><font class=""small"">" & oRs("iTitle") & "(" & oRs("iHits") & ")</p>"
End if
Response.Write " </center></td>" & vbCRLF
Response.Write " </table>" & vbCRLF
oRs.Close
set oRs = Nothing
oCn.Close
set oCn = Nothing
CreateBottomTable ""
End Sub
%>
salviamo in /public/dynblock, e procediamo, eseguiamo le modifiche necessarie premendo il bottone Modifica Traduzioni, inserendo:
LANG_BLOCK_DISPLAY_X (dove X è il numero del blocco che andiamo ad aggiungere)
DisplayPhoto()
LANG_BLOCK_X (dove X è come sopra)
fotorandom (nome della pagina asp)
LANG_LISTEN_TO_PHOTO
Foto Random (Titolo del blocco).
Premendo il bottone amministrazione - crea blocchi, controlliamo che vi sia la stringa appropriata, del tipo:
<!--#include virtual="/public/dynblock/fotorandom.asp"-->.
Ora, premiamo su Blocchi Grafici e, con ripristina, facciamo in modo di poter vedere il nuovo blocco, sistemiamo i blocchi a destra e a sinistra, confermiamo ed usciamo dall'amministrazione.
Il blocco sarà visibile nella posizione scelta se, nel DB vi sono memorizzate delle immagini ( cartella IMGS ).
Il codice presentato, è funzionale sia per DB MySql che per DB Access.
Ciauzz DJ
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,1328125 secondi.
![[lo]](/smileys/coucou.gif)
