用ASP+CSS实现随机背景

用ASP+CSS实现随机背景2008-04-05随机背景--当你每次进入该页面时，从已指定的图片文件夹中，随机选取一个图片作为背景显示。这里介绍的方法是用ASP+CSS来实现的。

ASP代码

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:2emauto;
}