Реализация случайного фона с помощью ASP+CSS

Случайный фон — всякий раз, когда вы заходите на эту страницу, изображение будет случайным образом выбрано из указанной папки с изображениями и будет отображаться в качестве фона. Представленный здесь метод реализован с использованием ASP+CSS.

ASP — из ASP101

Вот цитата:
 Const IMGS_DIR = "/изображения"
 'Установить адрес папки с изображениями и произвольно отображать любое изображение в папке
 Dim objFSO, objFolderObject, objFileCollection, objFile
 Dim intFileNumberToUse, intFileLooper
 Тусклый объект objImageFileToUse
 Тусклый стримажесрктекст
 Установите objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Установите objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
 Установить objFSO = Ничего
 Установите objFileCollection = objFolderObject.Files
 Установить objFolderObject = Ничего
 Рандомизировать()
 intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
 intFileLooper = 1
 Для каждого objFile в objFileCollection
 Если intFileLooper = intFileNumberToUse Тогда
 Установите objImageFileToUse = objFile
 Выход для
 Конец, если
 intFileLooper = intFileLooper + 1
 Следующий
 Установить objFileCollection = Ничего
 strImageSrcText = IMGS_DIR & objImageFileToUse.Name
 Set objImageFileToUse = Nothing

CSS

Вот фрагмент ссылки:
 #картинка{
 ширина: 400 пикселей;
 высота: 300 пикселей;
 фон: url(<%= strImageSrcText %>) no-repeat;
 маржа: 2em авто;
 }

Приведенный выше код должен быть добавлен в область заголовка и не может быть помещен во внешний файл CSS.