Implementieren Sie einen zufälligen Hintergrund mit ASP+CSS

Zufälliger Hintergrund – Immer wenn Sie diese Seite aufrufen, wird ein Bild zufällig aus dem angegebenen Bildordner ausgewählt, um es als Hintergrund anzuzeigen. Die hier vorgestellte Methode wird mit ASP+CSS implementiert.

ASP – Aus ASP101

Hier ist ein Zitat:
 Const IMGS_DIR = "/images"
 „Legen Sie die Adresse des Bildordners fest und zeigen Sie alle Bilder im Ordner nach dem Zufallsprinzip an.“
 Dimmen Sie objFSO, objFolderObject, objFileCollection, objFile
 Dimmen Sie intFileNumberToUse, intFileLooper
 Dimmen Sie objImageFileToUse
 Dimmen Sie strImageSrcText
 Setze objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Setze objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
 Setze objFSO = Nichts
 Legen Sie objFileCollection = objFolderObject.Files fest
 Setze objFolderObject = Nothing
 Randomize()
 intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
 intFileLooper = 1
 Für jede objFile in objFileCollection
 Wenn intFileLooper = intFileNumberToUse, dann
 Setze objImageFileToUse = objFile
 Ausgang für
 Ende wenn
 intFileLooper = intFileLooper + 1
 Nächste
 Setze objFileCollection = Nothing
 strImageSrcText = IMGS_DIR & objImageFileToUse.Name
 Set objImageFileToUse = Nothing

CSS

Hier ist der Referenzausschnitt:
 #pic{
 Breite: 400px;
 Höhe: 300px;
 Hintergrund: url(<%= strImageSrcText %>) no-repeat;
 Rand: 2em auto;
 }

Der obige Code muss dem Header-Bereich hinzugefügt werden und kann nicht in einer externen CSS-Datei platziert werden.