繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP+CSS实现随机背景
- ASP
- 在ASP应用中验证用户身份(2)
- 在ASP应用中验证用户身份(3)
- 在ASP应用中验证用户身份(4)
- 在ASP应用中验证用户身份(5)
- 用ASP开发一个在线考试程序（一）
- 用ASP开发一个在线考试程序（二）
- 用ASP开发一个在线考试程序（三）
- 用ASP开发一个在线考试程序（四）
- 用表单来提交sql - 1
- 用表单来提交sql - 2
- 用表单来提交sql - 3
- 让您的主页支持各种浏览设备（ASP+篇)(上）
- 如何用ASP编写网站统计系统（一）
- 如何用ASP编写网站统计系统（二）
- 如何用ASP编写网站统计系统（三）
- 如何用ASP编写网站统计系统（四）
- 一个免费的邮件列表源程序(一)
- 一个免费的邮件列表源程序(二)
- 一个免费的邮件列表源程序(三)
- 用密码保护页面 (I)
用ASP+CSS实现随机背景
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 75 ::
收藏到网摘: n/a
随机背景--当你每次进入该页面时，从已指定的图片文件夹中，随机选取一个图片作为背景显示。这里介绍的方法是用ASP+CSS来实现的。
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) All
