Using ASP+CSS to realize random background

Random background-When you go to the page, randomly select a picture from the designated picture folder to display as a background. The method described here is implemented with ASP+CSS.

ASP code

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 Code

#pic{
　　width:400px;
　　height:300px;
　　background:url(<%=strImageSrcText%>)no-repeat;
　　margin:2emauto;
}