相关文章
未来中国的40个时尚职业
网站制作制作三维表格效果
网页设计关于在HTML语言中使用影像地图
企通互联常用CSS元素div ul dl dt ol的简单解释
企通互联编写XHTML需要注意的问题以及和HTML的区别
北京网站建设用Dreamweaver批量做web网页
网站设计个人网页中必不可少的十五大Web API
网站制作站长请明确建站目标
网站建设网站改版方案的一些建议
网站制作VBScript教程 第十二课
品牌理念
北京网站建设最佳合作伙伴
北京网站建设专家企通互联
竭诚为您提供网站建设服务!
友好连接
文章搜索
你的位置：首页 >> 网页设计 >> 北京网站建设用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 北京网站设计
strImageSrcText = 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源代码：