ASP+CSS实现随机背景技巧

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

ASP--来自ASP101

以下是引用片段：SUH中国设计秀
Const IMGS_DIR = "/images"  SUH中国设计秀
 '设定图片文件夹的地址，随机显示该文件夹内任一张图片 SUH中国设计秀
Dim objfso, objFolderObject, objFileCollection, objFile SUH中国设计秀
Dim intFileNumberToUse, intFileLooper SUH中国设计秀
Dim objImageFileToUse SUH中国设计秀
Dim strImageSrcText SUH中国设计秀
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") SUH中国设计秀
Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) SUH中国设计秀
Set objFSO = Nothing SUH中国设计秀
Set objFileCollection = objFolderObject.Files SUH中国设计秀
Set objFolderObject = Nothing SUH中国设计秀
Randomize() SUH中国设计秀
intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 SUH中国设计秀
intFileLooper = 1 SUH中国设计秀
For Each objFile in objFileCollection SUH中国设计秀
If intFileLooper = intFileNumberToUse Then SUH中国设计秀
Set objImageFileToUse = objFile SUH中国设计秀
Exit For SUH中国设计秀
End If SUH中国设计秀
intFileLooper = intFileLooper + 1 SUH中国设计秀
Next SUH中国设计秀
Set objFileCollection = Nothing SUH中国设计秀
strImageSrcText = IMGS_DIR & objImageFileToUse.Name SUH中国设计秀
Set objImageFileToUse = Nothing

css

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

上面代码要加在header区，不能放在外部css文件里。SUH中国设计秀