分站 简化版 股指 日历 影视
携程 地图 计算器 行情 电脑
空位 空位 空位 空位 空位
首页 软件 编程 网络 窍门 笑话 知识 公告 注册 登录 用QQ登录本站
全部 综合数码金融娱乐服务报刊政府机构 推荐 申请 友情  
您现在的位置:首页 >> ASP >> 内容

教你用ASP+CSS实现网页随机背景

内容摘要:随机背景--当你每次进入该页面时,从已指定的图片文件夹中,随机选取一个图片作为背景显示。这里介绍的方法是用ASP+CSS来实现的。   ASP源代码:以下是引用片段:  Const IMGS_DIR = '/images'   '设定图片文件夹的地址,随机显示该文件夹内任一张图片   Dim objFSO, objFolderObject, objFileC......

  

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

  版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


发布日期:2017-8-31 发布时间:9:16:40 点击:12 
  • 上一篇:减轻负担,asp防止网页刷新代码
  • 下一篇:状态栏显示站长QQ和电子邮件地址
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2017

    YJCMS V2.2 Build 17.09.12(MSSQL)
    闽ICP备05000814号-1
    本空间由景安网络(VPS)提供

    创宇云安全提供加速防护