Fondo aleatorio: cada vez que ingresa a esta página, se seleccionará aleatoriamente una imagen de la carpeta de imágenes especificada para mostrarla como fondo. El método presentado aquí se implementa utilizando ASP+CSS.
Aquí hay una cita: Const IMGS_DIR = "/imágenes" 'Establece la dirección de la carpeta de imágenes y muestra aleatoriamente cualquier imagen en la carpeta Dim objFSO, objFolderObject, objFileCollection, objFile Dim intFileNumberToUse, intFileLooper Dim objImageFileToUse Dim strImageSrcText Establecer objFSO = Server.CreateObject("Scripting.FileSystemObject") Establecer objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Establecer objFSO = Nada Establecer objFileCollection = objFolderObject.Files Establecer objFolderObject = Nada Aleatorizar() intNúmeroArchivoToUse = Int(objFileCollection.Count * Rnd) + 1 intFileLooper = 1 Para cada objFile en objFileCollection Si intFileLooper = intFileNumberToUse Entonces Establecer objImageFileToUse = objFile Salir por Terminar si intFileLooper = intFileLooper + 1 Próximo Establecer objFileCollection = Nada strImageSrcText = IMGS_DIR & objImageFileToUse.Nombre Set objImageFileToUse = Nothing |
Aquí está el fragmento de referencia: #foto{ ancho: 400px; altura: 300 píxeles; fondo: url(<%= strImageSrcText %>) sin repetición; margen: 2em automático; } |
El código anterior debe agregarse al área del encabezado y no puede colocarse en un archivo CSS externo.