相关文章
结合多年网赚,用实例教你在百度贴吧进行有效宣传中...
网站设计让浏览者记住你的主页
网站制作Robots Meta标签及其用法
网页设计Jakob Nielsen：十大严重的网站设计错误
北京网页设计2007流行网站导航设计欣赏
北京网站设计网页自动转向代码
网站设计浅谈在网页上显示日期的两种方法
北京网站制作彻底弄懂CSS盒子模式之三
北京网页设计用FireWorks 三帧轻松打造酷 Banner
企通互联关于网站品质
品牌理念
北京网站建设最佳合作伙伴
北京网站建设专家企通互联
竭诚为您提供网站建设服务!
友好连接
文章搜索
你的位置：首页 >> 网页设计 >> 北京网站设计用ASP+CSS实现网页随机背景
北京网站设计用ASP+CSS实现网页随机背景
随机背景--当你每次进入该页面时，从已指定的图片文件夹中，随机选取一个图片作为背景显示。这里介绍的方法是用ASP+CSS来实现的。 中国站.长.站
ASP源代码：
Const IMGS_DIR = "/images" 网站设计 Chinaz~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 网站制作
www.qitongnet.comstrImageSrcText = IMGS_DIR & objImageFileToUse.Name 网站设计
企通互联 Set objImageFileToUse = Nothing Chinaz.com
#pic{ 北京网站设计北京网站设计
width: 400px; 网站建设
height: 300px; 网站制作
background: url() no-repeat; 网页设计
margin: 2em auto; 企通互联
} Www_Chinaz_com
上面代码要加在head区，不能放在外部 北京网站制作CSS文件里。
Www^Chinaz^com
CSS源代码：