收藏 分站 简化版 股指 预订
日历 地图 计算器 行情 电脑
影视 携程 导购 WAP 排行
首页 软件 源码 网络 窍门 笑话 知识 公告 注册 登录 用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

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


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

    最佳1024*768浏览
    闽ICP备05000814号-1
    YJCMS V1.7 Build 17.1.11

    本空间由力天互联提供