Implement random background with ASP + CSS

Random background Effects: each time you enter the page, an image is randomly selected from the specified image folder for background display. The method described here is implemented using ASP + CSS.

The following is a reference clip:

Const imgs_dir = "/images" ': sets the address of the image folder and randomly displays any image in the folder.

Dim objfso, objfolderobject, objfilecollection, objfile dim intfilenumbertouse, intfilelow.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 intfileloaders = 1 for each objfile in objfilecollection if intfileloaders = effecthen set names = objfile exit for end if intfileloaders = intfileloaders + 1 next set objfilecollection = nothing directories = imgs_dir & others. name set objimagefiletouse = nothingcss
The following is a reference clip: # PIC {width: 400px; Height: 300px; Background: URL () No-Repeat; margin: 2em auto ;}

The above code must be added to the header area and cannot be placed in an external CSS file.