2024年6月20日发(作者：)

第２５卷第５期　

２０１２年ｌ０月　

濮阳职业技术学院学报　

Ｊｏｕｒｎａｌ　ｏｆ　Ｐｕｙａｎｇ　Ｖｏｃａｔｉｏｎａｌ　ａｎｄ　Ｔｅｃｈｎｉｃａｌ　Ｃｏｌｌｅｇｅ　

Ｖｏ１．２５　Ｎｏ．５　

０ｃｔ．２０１　２　

用ＡＳＰ实现网络照片发布　

苗英恺　

（濮阳职业技术学院实训中心．河南濮阳４５７０００）　

摘　要：本文用ＡＳＰ程序实现了照片在线浏览、下载等功能，对于需要将大量照片在局域网上发布的单位或部门提供了技术支　

持　

关键词：ＡＳＰ编程：照片：网络发布　

中圈分类号：ＴＰ３１１　文献标识码：Ａ　文章编号：１６７２—９１６１（２０１２）０５—０１５０—０３　

学校教育技术中心保存有大量学校各种活动的　

一

对应起来。　

浏览照片之前首先要有缩略图文件．这是必须　

照片，各系、部每次需要时，都要派人到教育技术中　

心来查询、挑选、拷贝，十分麻烦。如果能将这些照片　

的。如果不使用缩略图，网络直接传输原照片，然后　

在ＩＥ浏览器中缩小显示，速度会慢得难以忍受。　

程序实现的方框图如图１所示。　

在校园网上发布出来，各系、部就随时都可以浏览、　

检索、下载　

为此，笔者首先想到利用　Ｐ服务器进行发　

布，但是这种方法只能先将文件夹下载到本机后才　

能进行浏览，不能在线浏览。有的文件夹有上千张照　

片，体积非常庞大，即使在校园局域网内下载。也要　

耗费很长时间。若发现下载的文件夹中根本没有所　

需要的照片，更是令人大失所望。　

于是。笔者设想。能不能用ＡＳＰ程序实现照片　

在线浏览、下载等功能呢？经过精心的编制和调试，　

乍成要扣开的文件夹的缩　

略图文件夹路　字符书　

上　

调刚ａｓｐ文件系统细　

及ｊｐｅｇ组　｛：　

终于实现了所需要的各种功能。　

一

Ｊｒ　

扫描要打开的文件夹　的　

、

功能需求　

子文件夹，显示其　标和　

名字，　建立链接。　

该程序要求不使用数据库，在不改变原硬盘文　

件存放位置的前提下，在ＩＥ浏览器里直接显示照片　

缩略图和子文件夹。单击缩略图可显示出原照片文　

件，单击子文件夹图标，可显示子文件夹的内容。　

二、功能实现　

Ｊｒ　

扫描要打开的文什夹卜的　

照片文件，十成缩略　，显　

示，许建立链接。　

该源程序放在服务器上．其存放路径为当前路　

径．．当前路径下有两个文件夹，一个文件夹名为“照　

片”，存放全部要发布的照片原文件；另一个文件夹　

ｌ　

Ｉ注销绀什Ｉ　

名为“ｓｍａｌｌ一照片”，存放所有照片的缩略图。缩略图　

文件和缩略文件夹名字均采用“ｓｍａｌｌ＿”前缀＋原名　

图１　程序实现方框图　

的形式，这样可以使原图片文件与其缩略图文件一　

收稿日期：２０１２－０５—０７　

作者简介：苗英恺（１９７２一），男，濮阳职业技术学院实训中心副教授，教育技术学硕士，研究方向为计算机辅助教学。　

１５０—　

功能实现的关键技术有三个方面：①生成原照　

片的缩略图；②扫描并显示一个文件夹中所存放内　

容；③点击子文件夹图标后程序重载入，以显示其内　

容。　

程序中利用ａｓｐｊｐｅｇ组件可生成一个图片文件　

的缩略图。Ａｓｐｊｐｅｇ组件是一款功能强大的基于ＭＳ　

ＩＩＳ环境的图片处理组件，要在服务器端单独安装后　

才能使用。　

利用Ｆｏｒ　Ｅａｃｈ循环和Ｆｏｌｄｅｒ对象的ＳｕｂＦｏｌｄｅｒｓ　

属性．对文件夹中的所有子文件夹进行扫描；利用　

Ｆｏｒ　Ｅａｃｈ循环和Ｆｏｌｄｅｒ对象的Ｆｉｌｅｓ属性，扫描文件　

夹中的所有图片文件。　

利用Ｒｅｑｕｅｓｔ．ＱｕｅｒｙＳｔｒｉｎｇ方法，获取到用户要　

打开的子文件夹路径和名字，通过程序的重载人，显　

示子文件夹的内容。　

三、程序清单　

源程序文件命名为ｚｐｆｂ．ａｓｐ，清单如下：　

＜ｈｔｍｌ＞　

＜ｈｅａｄ＞　

＜ｔｉｔｌｅ＞照片浏览＜／ｔｉｔｌｅ＞　

＜ｓｔｙｌｅ　ｔｙｐｅ＝”ｔｅｘｔ／ｃｓｓ”＞　

＜！一一　

．

ｓｔｙｌｅ４｛　

ｆｏｎｔ－ｓｉｚｅ：ｌ　ＯＯｐｘ；　

ｃｏｌｏｒ＂＃００００９９；　

）　

－－

＞　

＜／ｓｔｙｌｅ＞　

＜／ｈｅａｄ＞　

＜ｂｏｄｙ＞　

＜％Ｓｅｒｖｅｒ．ＳｃｒｉｐｔＴｉｍｅＯｕｔ＝１　００００％＞７／指　

定脚本在结束前最大可运行多长时间。　

＜ｓｃｒｉｐｔ　ｌａｎｇｕａｇｅ＝”ｊａｖａｓｃｒｉｐｔ”ｒｕｎａｔ＝”ｓｅｒｖ－　

ｅｒ”＞　

ｆｕｎｃｔｉｏｎ　ＧＧ２ＵＴＦ８（ｓｔｒ）　

｛ｒｅｔｕｒｎ　ｅｎｃ０ｄｅＵＲＩＣ０ｍｐ０ｎｅｎｔ（ｓｔｒ））　

＜／ｓｃｒｉｐｔ＞　

＜％　

ｄｉｍ　ｃｕｒｒｅｎｔＰａｔｈ，ｓｔｒＤｉｒ，ｂａｃｋＳｔｒＤｉｒ　

ｃｕｒｒｅｎｔＰａｔｈ＝Ｓｅｒｖｅｒ．ＭａｐＰａｔｈ（”．”１　

Ｉｆ　Ｒｅｑｕｅｓｔ．ＱｕｅｒｙＳｔｒｉｎｇ（”ｓｔｒＤｉｒ”１－…’Ｔｈｅｎ　

ｓｔｒＤｉｒ＝Ｓｅｒｖｅｒ．ＭａｐＰａｔｈ（”照片”１　

Ｅｌｓｅ　

ｓｔｒＤｉｒ＝ｃｕｒｒｅｎｔＰａｔｈ＆Ｒｅｑｕｅｓｔ．ＱｕｅｒｙＳｔｒｉｎｇ（”　

ｓｔｒＤｉｒ”）　

Ｅｎｄ　Ｉｆ　

ｂａｃｋＳｔｒＤｉｒ＝Ｍｉｄ（ｓｔｒＤｉｒ，ｌｅｎ（ｃｕｒｒｅｎｔＰａｔｈ）＋１）　

ｂａｃｋＳｔｒＤｉｒ＝ｒｅｐｌａｃｅ　（ｂａｃｋＳｔｒＤｉｒ，＂　”　

＼ｓｍａ１１

一

”），／／生成缩略图文件夹路径字符串。　

％＞　

＜ｃｅｎｔｅｒ＞　

＜％　

Ｄｉｍ　ｍｙ　Ｆｉｌｅ　Ｏｂｊｅｃｔ，ｍｙ　Ｆｏｌｄｅｒ，Ｓｍａｌｌ　Ｆｏｌｄ—　

ｅｒ，Ｉｔｅｍ，Ｆｉｌｅ　Ｅｘｔｎ，Ｉｔｅｍｌ　

Ｄｉｍ　Ｊｐｅｇ　／／声明变量　

Ｓｅｔ　ｍｙＦｉｌｅＯｂｊｅｃｔ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（”　

Ｓｃｒｉｐｔｉｎｇ．ＦｉｌｅＳｙｓｔｅｍ０ｂｊｅｃｔ”）　

Ｓｅｔ　ｍｙＦｏｌｄｅｒ＝ｍｙＦｉｌｅＯｂｊｅｃｔ．ＧｅｔＦｏｌｄｅｒ　

（ｓｔｒＤｉｒ）　

Ｓｅｔ　Ｊｐｅｇ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ　ｆＩＩＰｅｒｓｉｔｓ．　

Ｊｐｅｇ”）＂／／ＮＮ　ｊｐｇｅ组件。　

ＳｍａｌｌＦｏｌｄｅｒ＝ｃｕｒｒｅｎｔＰａｔｈ＆ｂａｃｋＳｔｒＤｉｒ　

Ｉｆ　ｍｙＦｉｌｅＯｂｊｅｃｔ．ＦｏｌｄｅｒＥｘｉｓｔｓ（ＳｍａｌｌＦｏｌｄｅｒ）＝　

ＦＡＬＳＥ　Ｔｈｅｎ　

ｍｙＦｉｌｅＯｂｊｅｃｔ．ＣｒｅａｔｅＦｏｌｄｅｒ　ＳｍａｌｌＦｏｌｄｅｒ　

Ｅｎｄ　Ｉｆ　

Ｄｉｍ　ｎｕｍＦｏｌｄｅｒ，ｎｕｍＦｉｌｅ　

ｎｕｍＦｏｌｄｅｒ＝０　

ｎｕｍＦｉｌｅ＝Ｏ　

Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ”＜Ｔａｂｌｅ　ｓｔｙｌｅ＝＇ｗｏｒｄ—ｂｒｅａｋ：　

ｂｒｅａｋ－ａｌｌ　＞＜ｔｒ　ａｌｉｇｎ＝ｃｅｎｔｅｒ　ｖａｌｉｇｎ＝ｔｏｐ＞’’　

Ｆｏｒ　Ｅａｃｈ　Ｉｔｅｍ　Ｉｎ　ｍｙＦｏｌｄｅｒ．ＳｕｂＦｏｌｄｅｒｓ　７／显示　

要打开的文件夹下所有子文件夹图标和名字，并对　

其进行计数。　

ｎｕｍＦｏｌｄｅｒ＝ｎｕｍＦｏｌｄｅｒ＋１　

Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ”＜ｔｈ　ｗｉｄｔｈ＝１　３３＞＜ａ　ｈｒｅｆ＝　？　

ｓｔｒＤｉｒ＝”＆Ｍｉｄ（ｈｅｍ，ｌｅｎ（ｃｕｒｒｅｎｔＰａｔｈ）＋１）＆”　ｔａｒｇｅｔ＝　

＿

ｂｌａｎｋ＞”＆”＜Ｉｍｇ　ａｌｔ＝　点击打开　ｓｒｃ＝．／ｆｏｌｄｅｒ．ｊｐｇ＞＜　

ｈ４＞”＆Ｉｔｅｍ．Ｎａｍｅ＆”＜ｂｒ＞＜ｂｒ＞＜／ａ＞＜，ｔｈ＞”　＂／／ｆｏｌｄｅｒ．　

ｊｐｇ为文件夹图标文件，可以自行设计，与本程序一　

起存放在服务器同一文件夹下。　

Ｉｆ　ｎｕｍＦｏｌｄｅｒ　Ｍｏｄ　８＝０　Ｔｈｅｎ　Ｒｅｓｐｏｎｓｅ．　

Ｗｒｉｔｅ”＜／ｔｒ＞＜ｔｒ　ａｌｉｇｎ＝ｃｅｎｔｅｒ　ｖａｌｉｇｎ＝ｔｏｐ＞”　

Ｎｅｘｔ　

一

１５１—　

Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ”＜／Ｔａｂｌｅ＞”　

％＞　

Ｓｅｔ　ｍｙＦｏｌｄｅｒ＝Ｎｏｔｈｉｎｇ　

Ｓｅｔ　ｍｙＦｉｌｅＯｂｊｅｃｔ＝Ｎｏｔｈｉｎｇ，／／注销组件，释放资　

源。　

％＞　

＜／ｃｅｎｔｅｒ＞　

＜％Ｉｆ　ｎｕｍＦｏｌｄｅｒ＜＞０　Ｔｈｅｎ　Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ”＜　

ｂｒ＞＜ｂ＞共”＆ｎｕｍＦｏｌｄｅｒ＆”个文件夹＜／ｂ＞”％＞　

＜ｂｒ＞＜ｂｒ＞　

＜％　

＜／ｃｅｎｔｅｒ＞　

＜／ｂｏｄｙ＞　

＜／ｈｔｍｌ＞　

Ｆｏｒ　Ｅａｃｈ　Ｉｔｅｍ　Ｉｎ　ｍｙＦｏｌｄｅｒ．Ｆｉｌｅｓ　７／将文件夹下　以上程序放在校园网服务器上，与存放照片的　

文件夹置于同一个路径下。并在ＩＩＳ中进行适当的　

所有图片生成１３３＂１００像素的缩略图显示，并对其　

计数。　

ＦｉｌｅＥｘｔｎ＝Ｌｅａｓｅ（Ｍｉｄ（Ｉｔｅｍ．Ｎａｍｅ，ｉｎＳｔｒＲｅｖ（Ｉｔｅｍ．　

Ｎａｍｅ，”．”）））　

Ｉｆ　ＦｉｌｅＥｘｔｎ＝”．ＪＰｇ”ｏｒ　ＦｉｌｅＥｘｔｎ＝”．ｊｐｅｇ”ｏｒ　Ｆｉｌｅ—　

Ｅｘｔｎ＝＂．ｂｍｐ”ｏｒ　ＦｉｌｅＥｘｔｎ＝＂．ｇｉｆ”ｏｒ　ＦｉｌｅＥｘｔｎ＝”＿ｐｎｇ”ｏｒ　

ＦｉｌｅＥｘｔｎ＝＂．ｔｉｆｆ”ｏｒ　ＦｉｌｅＥｘｔｎ＝＂．ｄｘｆ”ｏｒ　ＦｉｌｅＥｘｔｎ＝＂．ｓｖｇ”　

ｏｒ　ＦｉｌｅＥｘｔｎ＝＂．ｐｃｘ”ｔｈｅｎ　

Ｉｆ　ｍｙＦｉｌｅＯｂｊｅｅｔ．ＦｉｌｅＥｘｉｓｔｓ（ＳｍａｌｌＦｏｌｄｅｒ＆”　

＼Ｓｍａｌｌ

一

”＆Ｉｔｅｍ．Ｎａｍｅ）＝ＦＡＬＳＥ　Ｔｈｅｎ　

Ｊｐｅｇ．Ｏｐｅｎ　Ｉｔｅｍ　７／原图位置　

Ｊｐｅｇ．Ｗｉｄｔｈ＝１３３，／／设图片宽度　

Ｊｐｅｇ．Ｈｅｉｇｈｔ＝１００　设图片高度　

Ｊｐｅｇ．Ｓｈａｒｐｅｎ　１．１３０　／／设定锐化效果　

Ｊｐｅｇ．Ｓａｖｅ　ＳｍａｌｌＦｏｌｄｅｒ＆”＼Ｓｍａｌｌ＿＂＆Ｉｔｅｍ．　

Ｎａｍｅ＂／／生成缩略图位置及名称。　

Ｅｎ（｛Ｉｆ　

ｎｕｍＦｉｌｅ＝ｎｕｍＦｉｌｅ＋１　

Ｉｔｅｍ１＝ｒｅｐｌａｃｅ（（ＧＧ２ＵＴＦ８（Ｉｔｅｍ）），＂％５Ｃ”．”／Ｉｔ１　

Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ”＜ａ　ｈｒｅｆ￣＊．／ｆＩ＆Ｍｉｄ（Ｉｔｅｍ１．１ｅｎ（ｒｅ—　

ｐｌａｃｅ（（ＧＣ２ＵＴＦ８（ｃｕｒｒｅｎｔＰａｔｈ）），＂％５Ｃ”，”／”））＋２）＆”　

ｔａｒｇｅｔ＝一ｂｌａｎｋ＞”＆”＜Ｉｍｇ　ａｌｔ＝　点击看大图　ｓｒｃ＝．／ｆｆ　

＆Ｍｉｄ　ｆｂａｃｋＳｔｒＤｉｒ，２）＆”＼Ｓｍａｌｌ＿＂＆Ｉｔｅｍ．Ｎａｍｅ＆”　

ｓｔｙｌｅ＝　ｂｏｒｄｅｒ：５ｐｘ　ｓｏｌｉｄ　ｗｈｉｔｅ　＞＜／ａ＞”　＂／／在该页显示　

缩略图，并设置链接。　

Ｅｎｄ　Ｉｆ　

Ｎｅｘｔ　

Ｉｆ　ｎｕｍＦｉｌｅ＜＞０　Ｔｈｅｎ　Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ”＜ｂｒ＞＜ｂｒ＞＜　

ｈ＞共”＆ｎｕｍＦｉｌｅ＆”张照片＜／ｂ＞”　

Ｉｆ　ｎｕｍＦｏｌｄｅｒ＝０　ａｎｄ　ｎｕｍＦｉｌｅ＝０　Ｔｈｅｎ　Ｒｅｓｐｏｎｓｅ．　

Ｗｒｉｔｅ”＜ｐ　ｃｌａｓｓ＝　ｓｔｙｌｅ４　＞＆ｎｂｓｐ；＜／ｐ＞＜ｐ　ａｌｉｇｎ＝　ｃｅｎｔｅｒ　

ｃｌａｓｓ＝　ｓｔｙｌｅ４　＞＜ｂ＞＜ｓｔｒｏｎｇ＞啥都没有！＜／ｓｔｒｏｎｇ＞＜／ｂ＞＜　

／ｐ＞”　

Ｓｅｔ　Ｊｐｅｇ＝Ｎｏｔｈｉｎｇ　

ｌ５２一　

设置，即可在校园上浏览所有照片了。图２是一个文　

件夹内容的浏览效果。　

四、程序的改进　

Ｚｐｆｂ．ａｓｐ程序虽然能实现照片的在线浏览功　

能，但要在服务器上先生成缩略图文件。一般第一次　

打开一个文件夹较慢，之后，由于服务器上已存在有　

该文件夹下照片的缩略图，打开速度就快了。为了避　

免由于服务器上没有缩略图文件而造成的打开速度　

慢的问题，我们可以事先在服务器上生成所有照片　

的缩略图。当然不能靠人工点击每一个文件夹来实　

现，而应该通过程序自动实现。　

笔者另外编制了一个专门用来创建所有照片缩　

略图的程序ｃｒｅａｔｅｓｍａｌ１．ａｓｐ。程序运用递归的方法，　

对“照片”文件夹内所有照片文件进行遍历，生成与　

原照片文件存储结构相同的缩略图文件。该程序与　

ｚｐｆｂ．ａｓｐ程序放在同一文件夹下，每次添加一批新照　

片后．在网上任意一客户端电脑ＩＥ浏览器地址栏中　

访问执行一下该程序即可。如果照片数量很多，生成　

缩略图耗费时间会较长，所以可以选择晚上服务器　

空闲时段进行。由于是服务器端程序，客户端访问一　

下陔程序后即可关闭，程序会在服务器端自动执行　

完毕。由于篇幅限制，程序清单不再列出。