雨天IT技术网

当前位置: 网站首页 > 编程开发 > ASP >

用ASP+CSS实现网页随机背景

时间:2017-01-07 19:31来源:网络 作者:雨天 点击:
随机背景--当你每次进入该页面时,从已指定的图片文件夹中,随机选取一个图片作为背景显示。这里介绍的方法是用ASP+CSS来实现的。 ASP--来自ASP101 以下是引用片段: Const IMGS_DIR = /images 设定图片文件夹的地址,随机显示该文件夹内任一张图片 Dim objF

随机背景--当你每次进入该页面时,从已指定的图片文件夹中,随机选取一个图片作为背景显示。这里介绍的方法是用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文件里

(责任编辑:雨天)
织梦二维码生成器
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
栏目列表
推荐内容