ASP+CSSでランダム背景を実装する

ランダムな背景 -- このページにアクセスすると、指定した画像フォルダーから画像がランダムに選択され、背景として表示されます。今回紹介する方法はASP+CSSを利用して実装します。

ASP -- ASP101 より

以下は引用です。
 Const IMGS_DIR = "/画像"
 '画像フォルダのアドレスを設定し、フォルダ内の任意の画像をランダムに表示します
Dim objFSO、objFolderObject、objFileCollection、objFile
 Dim intFileNumberToUse、intFileLooper
 Dim objImageFileToUse
 Dim strImageSrcText
 Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
 objFSO = なしを設定します
objFileCollection = objFolderObject.Files を設定します。
 objFolderObject = なしを設定します
ランダム化()
 intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
 intFileLooper = 1
 objFileCollection 内の各 objFile について
intFileLooper = intFileNumberToUse の場合
objImageFileToUse = objFile を設定します
出口
終了の場合
intFileLooper = intFileLooper + 1
次
objFileCollection = なしを設定します
strImageSrcText = IMGS_DIR & objImageFileToUse.Name
 Set objImageFileToUse = Nothing

CSS

リファレンス スニペットは次のとおりです。
 #写真{
幅: 400ピクセル;
高さ: 300ピクセル;
背景: url(<%= strImageSrcText %>) 繰り返しなし;
マージン: 2em 自動;

上記のコードはヘッダー領域に追加する必要があり、外部 CSS ファイルに配置することはできません

。