设为主页
加入收藏
联系站长
网站首页 | 下载中心 | 站长工具 | CMS源码 | 建站素材 | 站长论坛 | 主机域名
网络编程 网页设计 图形图象 数 据 库 服 务 器 网络媒体 网络安全 热门技术 网络赚钱 业界新闻 引擎优化
您的位置:源码下载首页-> 文章中心-> 网络编程-> ASP专区-> 用ASP+CSS实现随机背景

ASP专区

ASP专区
PHP专区
JSP专区
NET专区
CGI专区
XML专区
其他相关

 本类阅读排行

·asp隐藏下载地址
·在VB里计算字符串的实际长度
·ASP无法更新ACCESS数据库解决方法
·ASP精确计算字符串长度函数
·ASP入门:Global.asa文件技巧用法
·用ASP+DLL实现WEB方式修改服务器时间
·ASP使用MySQL数据库全攻略
·用ASP打造一个小型的网页BBS系统
·教程/ASP 十天学会ASP之第一天
·用ASP编程实现网络内容快速查找

 精品推荐
用ASP+CSS实现随机背景

作者: | 来源:动态网站制作指南 | 加入时间:2007-4-20 | 浏览次数 】【

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


上一篇∶用ASP编写网络传呼机   下一篇∶ASP下载系统防盗链方法
关闭
相关文章 相关软件
广告合作 - 关于本站 - 网站帮助 - 下载声明 - 网站地图 - 联系我们
© CopyRight 2007, CODEWWW.COM, Inc. All Rights Reserved