Terapkan latar belakang acak dengan ASP+CSS

Latar belakang acak--Setiap kali Anda memasuki halaman ini, sebuah gambar akan dipilih secara acak dari folder gambar yang ditentukan untuk ditampilkan sebagai latar belakang. Metode yang diperkenalkan di sini diimplementasikan menggunakan ASP+CSS.

ASP--Dari ASP101

Berikut kutipannya:
 Konstan IMGS_DIR = "/gambar"
 'Tetapkan alamat folder gambar dan tampilkan secara acak gambar apa pun di folder tersebut
 Redupkan objFSO, objFolderObject, objFileCollection, objFile
 Redupkan intFileNumberToUse, intFileLooper
 Redupkan objImageFileToUse
 Redupkan strImageSrcText
 Setel objFSO = Server.CreateObject("Scripting.FileSystemObject")
 Setel objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
 Setel objFSO = Tidak Ada
 Setel objFileCollection = objFolderObject.Files
 Setel objFolderObject = Tidak Ada
 Acak()
 intFileNumberToUse = Int(objFileCollection.Hitungan * Rnd) + 1
 intFileLooper = 1
 Untuk Setiap objFile di objFileCollection
 Jika intFileLooper = intFileNumberToUse Lalu
 Setel objImageFileToUse = objFile
 Keluar Untuk
 Akhiri Jika
 intFileLooper = intFileLooper + 1
 Berikutnya
 Setel objFileCollection = Tidak Ada
 strImageSrcText = IMGS_DIR & objImageFileToUse.Nama
 Setel objImageFileToUse = Nothing

CSS

Berikut cuplikan referensinya:
 #gambar{
 lebar: 400 piksel;
 tinggi: 300 piksel;
 latar belakang: url(<%= strImageSrcText %>) tanpa pengulangan;
 margin: 2em otomatis;
 }

Kode di atas harus ditambahkan ke area header dan tidak dapat ditempatkan di file CSS eksternal.