相关文章
博客之后 播客能否再创网络奇迹
企通互联模版管理
北京网站设计随时更换模版、广告等，无须重新生成整站，共享出来供讨论
北京网站建设HTML标记大全参考手册
北京网页设计浅谈在网页上显示日期的两种方法
网站制作增强网站的可访问性
网站制作Dreamweaver CS3 Beta界面功能大曝光
网页设计动态文字的认识与使用
北京网站制作FLASH MX 2004视频教程:诞生鸡(下)
北京网站制作Flash视频教程：1.19 手形工具
品牌理念
北京网站建设最佳合作伙伴
北京网站建设专家企通互联
竭诚为您提供网站建设服务!
友好连接
文章搜索
你的位置：首页 >> 网站制作 >> 北京网页设计北京网站设计用ASP+CSS实现随机背景
北京网页设计北京网站设计用ASP+CSS实现随机背景
作者： 北京网站建设 日期：2008-03-27 06:03:34 来源： http://www.qitongnet.com
随机背景--当你每次进入该页面时，从已指定的图片 北京网站设计文件夹中，随机选取一个图片作为背景显示。这里介绍的方法是用ASP+CSS来实现的。
ASP--来自ASP101
| 以下是引用片段：北京网站制作 Const IMGS_DIR = "/images" 北京网站制作 www.qitongnet.com '设定图片文件夹的地址，随机显示该文件夹内任一张图片 网站设计 网站制作 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文件里。