ASP/DHTML Image Preloader

dhtml

Tutorials & Code Snips: Graphics & Charts: Images\\

This ASP Script recurses through a directory tree and loads images into a DHTML preloader.

First off, big thanks to Brian from Script Asylum for letting me use his DHTML site preloader. This
version will be even less work, because all you do is tell the ASP to drill down through a directory
structure looking for images, and it will place all the image names into an array, and off it goes.
The setup for this is incredibly simple. First off, open Preloader.asp, and change the following variables:
- boolRecurse: Tell the script to drill down through subdirectories within the folder you choose
(True/False)
- strVirtualRoot: The folder that contains all the images

<%
boolRecurse = True ' Recurse through subdirectories? True/False
strVirtualRoot = "../../Images" ' Directory
strRootFolder = Server.MapPath(strVirtualRoot) ' Grab the directory
intSize = 0

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strRootFolder)

strOutput = TraverseFolder(objFolder, strVirtualRoot, boolRecurse)
strOutput = mid(strOutput, 1, Len(strOutput)-2)

Set objFSO = Nothing
Set objFolder = Nothing

Function TraverseFolder(objFolder, strVirtualRoot, boolRecurse)
strOutput = ""

arrImages = Array("gif", "jpg", "png", "jpeg")

'Only process directories that do NOT start with
'an underscore.
    If Not Left(objFolder.Name, 1) = "_" then
          Dim objFile, strPath, strFileName, strFileSize, strExtension
          
          'Iterate through each file in the folder
          For Each objFile in objFolder.Files
              ' Obtain the extension of the current file
              strPath = objFile.Path
              strFileName = objFile.Name
              intFileSize = objFile.Size
              strExtension = Ucase(Right(strPath, Len(strPath) - InStrRev(strPath, ".")))
              

              ' See if file is an image
              For x = LBound(arrImages) to UBound(arrImages)
                    If strExtension = Ucase(arrImages(x)) then
                        strOutput = strOutput & "'" & strVirtualRoot & "/" & strFileName & "', "
                        intSize = intSize + intFileSize
                    End If
              Next
          Next

          If boolRecurse then
              'Recurse through the folder's subdirectories
              For Each objSubFolder in objFolder.SubFolders
                    strOutput = strOutput & TraverseFolder(objSubFolder, strVirtualRoot & "/" &
objSubFolder.Name, boolRecurse)
              Next
          End If
          Traverse

时间: 2016-02-05

ASP/DHTML Image Preloader的相关文章

加快DHTML的一组技巧

Mark DavisMicrosoft Corporation摘要:本文说明了某些 DHTML 功能对性能的重大影响,并提供了一些提高 DHTML 页面性能的技巧.目录简介成批处理 DHTML 更改使用 innerText使用 DOM 添加单个元素扩展 SELECT 元素中的选项用 DOM 更新表编写一次,使用多次请勿过多使用动态属性数据绑定很有效不要在 document 对象中设置 expando 属性避免切换类和样式规则查找父项之前,先折叠文本范围其他资料 简介动态 HTML (DHTML)

DHTML+XML+ASP+CSS=树形目录

asp+|css|dhtml|xml|css|dhtml|xml 树形目录显示程序 问题描述: 在我们项目中常常会出现自关联的数据表,如果我们从整体看去,整个表就呈现为一个树形数据结构(对于复杂的情况,它可能变成一个图).当我们对这个表进行显示,编辑时,如果不采用好的表现形式,会显得很笨拙,为此,我们开发这样的树形结构的程序.在上一版本中,我们使用的是递归算法来实现,在我们对这个算法评测时发现,对于拥有成千上万条记录的数据库就不再能胜任了,所以在新的算法版本中,我们使用了XML技术,动态的发现数

巧用ASP技术保护DHTML源代码(转)

dhtml|源代码 巧用ASP技术保护DHTML源代码2001-8-18  动网先锋   DHTML使得我们能够开发出功能强大的Web应用客户端,它具有跨浏览器兼容.可交互和可移植等特点.它的缺点是用户能够直接查看JavaScript代码.本文介绍如何运用ASP技术保护DHTML代码,防止有人窃取你的DHTML代码. 传统保护技术 众所周知,Web本质上是一种不安全的媒介.当用户访问Web应用或者打开Web页面时,所有客户端的代码(HTML,JavaScript源文件以及CSS样式)一般都要下载

Protecting Your DHTML Using ASP

dhtml Protecting Your DHTML Using ASP        by Jean - Luc David    CATEGORIES:  Site Design, Scripting    ARTICLE TYPE: Tutorial Reader Comments         ABSTRACT     Article Rating       Useful          Innovative          Informative        100 res

巧用ASP技术保护DHTML源代码

dhtml|源代码 DHTML使得我们能够开发出功能强大的Web应用客户端,它具有跨浏览器兼容.可交互和可移植等特点.它的缺点是用户能够直接查看JavaScript代码.本文介绍如何运用ASP技术保护DHTML代码,防止有人窃取你的DHTML代码. 传统保护技术 众所周知,Web本质上是一种不安全的媒介.当用户访问Web应用或者打开Web页面时,所有客户端的代码(HTML,JavaScript源文件以及CSS样式)一般都要下载到客户端缓冲区.用户只需点击一下"查看源文件"就可以查看.分

ASP.NET立即上手教程(6)

表单验证服务器控件 验证介绍 网络形成框架包括一套易用而功能强大的用于验证的服务器控件,用来检查输入表单的错误,并且在必要的时候,向用户显示提示信息.将验证控件添加到设计圈套表格,就像添加其他服务器控件一样.验证控件有不同的验证类型,例如范围检查或者模式匹配,添加一个RequiredFieldValidator 控件可以保证用户不能跳过某一个要求输入内容的字段.你可以对一个输入控件组合若干个验证控件.例如,你可能要求某一字段不能为空,并且必须输入某一个范围的值.验证控件与服务器控件的有限子集协同

AJAX在ASP.NET中的简单应用

介绍 本文介绍了使用AJAX和ASP.NET编写web应用程序的一个简单方法.同时,讨论了使用AJAX的好处和不足.为了举例说明,本文给出了相应的JavaScript代码和用C#.NET编写的ASP.NET代码. 为什么使用AJAX 也许大多数人已经知道AJAX的意思是异步JavaScript和XML(Asynchronous JavaScript and XML).据我所知,这项技术最初是由Microsoft在1999年提出来的,也就是我们所熟知的"使用远程调用(remote calls)的D

DHTML的初步入门

dhtml 跟各位说了那么多CSS的东西....  现在跟各位分享一些DHTML的东西...  ......................................  DHTML是由script+DOM+CSS+HTML所组成...  DOM指的是document object model...  DHTML开始有些对象的影子....  譬如CSS的各种性质,script的事件,再加上DOM的概念...  CSS的性质我之前讲了一些..  script以vbscript为例...  较常

DHTML Scriptlet

dhtml DHTML Scriptlet  什么是 DHTML scriptlet 呢??  就是将一些含有DHTML 描述指令集的HTML网页,  我们可以将之崁入其它的网页中  如下范例,  亦可至 http://image99.asp-in-taiwan.com.tw/study/s002.asp 看结果!!  其中 s002.asp 为主网页  s002_b.htm 为描述指令网页  PS: 限用 IE5 喔...  ---s002.asp---  <html>  <head&