Filoweb.it

Caricare un'immagine random da una directory


FB TW Pinterest whatsapp RSS FEED News letter
ASP
Caricare un'immagine random da una directory


<% Const IMGS_DIR = " /gallery/GALLERIA/thumbnails/"

Dim objFSO, objFolderObject, objFileCollection, objFile

Dim intFileNumberToUse, intFileLooper

Dim objImageFileToUse

Dim strImageSrcText

Set objFSO = Server.CreateObject(" Scripting.FileSystemObject" )

Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))

Set objFSO = Nothing

Set objFileCollection = objFolderObject.Files

Set objFolderObject = Nothing

Randomize()

intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1

intFileLooper = 1

For Each objFile in objFileCollection

If intFileLooper = intFileNumberToUse Then

Set objImageFileToUse = objFile

Exit For

End If

intFileLooper = intFileLooper + 1

Next

Set objFileCollection = Nothing

strImageSrcText = IMGS_DIR & objImageFileToUse.Name

Set objImageFileToUse = Nothing

%>
FB TW Pinterest whatsapp RSS FEED News letter

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito filoweb.it sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito filoweb.it.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ASP, Titolo:Caricare un'immagine random da una directory. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it