Implémenter un arrière-plan aléatoire avec ASP+CSS

Arrière-plan aléatoire - Chaque fois que vous entrez dans cette page, une image sera sélectionnée au hasard dans le dossier d'images spécifié pour être affichée comme arrière-plan. La méthode présentée ici est implémentée en utilisant ASP+CSS.

ASP--De ASP101

Voici une citation :
 Const IMGS_DIR = "/images"
 'Définissez l'adresse du dossier d'images et affichez de manière aléatoire n'importe quelle image du dossier
 Dim objFSO, objFolderObject, objFileCollection, objFile
 Dim intFileNumberToUse, intFileLooper
 Dim objImageFileToUse
 Dim strImageSrcText
 Définir objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Définir objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
 Définir objFSO = Rien
 Définir objFileCollection = objFolderObject.Files
 Définir objFolderObject = Rien
 Randomiser()
 intFileNumberToUse = Int (objFileCollection.Count * Rnd) + 1
 intFileLooper = 1
 Pour chaque objFile dans objFileCollection
 Si intFileLooper = intFileNumberToUse Alors
 Définir objImageFileToUse = objFile
 Quitter pour
 Fin si
 intFileLooper = intFileLooper + 1
 Suivant
 Définir objFileCollection = Rien
 strImageSrcText = IMGS_DIR & objImageFileToUse.Name
 Set objImageFileToUse = Nothing

CSS

Voici l'extrait de référence :
 #photo{
 largeur : 400 px ;
 hauteur : 300px ;
 arrière-plan : url(<%= strImageSrcText %>) sans répétition ;
 marge : 2em auto ;
 }

Le code ci-dessus doit être ajouté à la zone d'en-tête et ne peut pas être placé dans un fichier CSS externe.