用ASP+CSS實現隨機背景

隨機背景--當你每次進入該頁面時，從已指定的圖片資料夾中，隨機選取一個圖片作為背景顯示。這裡介紹的方法是用ASP+CSS來實現的。

ASP--來自ASP101

以下是引用片段：
 Const IMGS_DIR = "/images"
 '設定圖片資料夾的位址，隨機顯示該資料夾內任一張圖片
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))
 Set objFSO = Nothing
 Set objFileCollection = objFolderObject.Files
 Set objFolderObject = Nothing
 Randomize()
 intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
 intFileLooper = 1
 For Each objFile in objFileCollection
 If intFileLooper = intFileNumberToUse Then
 Set objImageFileToUse = objFile
 Exit For
 End If
 intFileLooper = intFileLooper + 1
 Next
 Set objFileCollection = Nothing
 strImageSrcText = IMGS_DIR & objImageFileToUse.Name
 Set objImageFileToUse = Nothing

CSS

以下是引用片段：
 #pic{
 width: 400px;
 height: 300px;
 background: url(<%= strImageSrcText %>) no-repeat;
 margin: 2em auto;
 }

上面程式碼要加在header區，不能放在外部CSS檔案裡。