Implementar plano de fundo aleatório com ASP+CSS

Fundo aleatório - Sempre que você entrar nesta página, uma imagem será selecionada aleatoriamente na pasta de imagens especificada para ser exibida como plano de fundo. O método apresentado aqui é implementado usando ASP+CSS.

ASP - Do ASP101

Aqui está uma citação:
 Const IMGS_DIR = "/imagens"
 'Defina o endereço da pasta de imagens e exiba aleatoriamente qualquer imagem na pasta
 Dim objFSO, objFolderObject, objFileCollection, objFile
 Dim intFileNumberToUse, intFileLooper
 Dim objImageFileToUse
 Dim strImageSrcText
 Definir objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Definir objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
 Definir objFSO = Nada
 Definir objFileCollection = objFolderObject.Files
 Definir objFolderObject = Nada
 Randomizar()
 intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
 intFileLooper = 1
 Para cada objFile em objFileCollection
 Se intFileLooper = intFileNumberToUse Então
 Definir objImageFileToUse = objFile
 Sair para
 Terminar se
 intFileLooper = intFileLooper + 1
 Próximo
 Definir objFileCollection = Nada
 strImageSrcText = IMGS_DIR & objImageFileToUse.Name
 Set objImageFileToUse = Nothing

CSS

Aqui está o trecho de referência:
 #foto{
 largura: 400px;
 altura: 300px;
 plano de fundo: url(<%= strImageSrcText %>) no-repeat;
 margem: 2em automático;
 }

O código acima deve ser adicionado à área do cabeçalho e não pode ser colocado em um arquivo CSS externo.