• 主网站
    • 网站案例
    • 域名主机
    • 网站建设
    • 网站推广
    • 系统开发
    • 设计文章
    • 联系我们
    • 网站制作教程
    • ASP+CSS实现网页随机背景
    • 文字在网页上面的应用
    • 用CSS实现无图片圆角效果
    • 什么样是合理的网页设计
    • CSS样式表的优化与技巧
    • CSS样式表的命名规范
    • XHTML代码的基本应用
    • 内容自动添加到指定的JS
    • 一组常用的弹出窗口
    • 查看网站更新的代码
    • JS刷新页面
    • 突破IIS6上传文件尺寸限制
    • 批量处理数据库
    • 用ASP判断Email地址
    • 新闻内容分页
    • ASP邮件发送程序
    • 网页防盗代码
    • ASP时间代码
    • 开始→运行→命令集锦!
    • 会员登陆的检测代码
    • Win2003的远程桌面连接端口
    • 更改apache的默认页
    • 网站制作中常用的CSS
    • DOC下常见的端口
    • xp下安装sql2000企业版
    • Thumbs.db文件是什么
    • msn随outlook启动
    • js调用ASP程序
    • 常用的JS代码!
    • 在网站制作中flash背景透明
    • 如何制作网站??
    • 限制数据库文件大小的方法
    • MYSQL中对数据库的操作
    • 保护邮件地址防垃圾有巧招
    • 解决MSSQL占用过多内存
    • ASP+CSS实现网页随机背景 -- (网站制作教程)

    •     以XML样式显示

        随机背景--当你每次进入该页面时,从已指定的图片文件夹中,随机选取一个图片作为背景显示。这里介绍的方法是用ASP+CSS来实现的。

        ASP源代码:

        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

       

        #pic{
        width: 400px;
        height: 300px;
        background: url() no-repeat;
        margin: 2em auto;
        }

        上面代码要加在head区,不能放在外部CSS文件里。