一个ASP版的图片浏览管理器
这是我第一次翻译文章，不足之处，还请见谅。
印度，现在之所以成为软件出口大国，有很多地方都优于我们。其中一个首要的优势就是印度的官方语言是英语，这就为以英语作为语言的印度程序员带来得天独厚的优越条件。对于我们从事it业的人来说，也应该加强自已英语训练。
导言
如果你有个已运行两个月以上时间的网站，你也许会注意到你网站上已积聚了很多的图片文件。尽管我们都已尽力为这些图片文件很好的命名，但当我们去浏览这些图片的文件名时，我们总是会很难想起一些图片文件名有何特殊的含义或用处。
这时，我们通常会重复地用打开那些图片，看看是什么图片？这时，这段asp代码就可以做为图片浏览器(和清理器)来浏览这些图片并执行清理操作。
编码：
事实上，这个程序就是包含某目录下的所有图片的一个列表页面，用filesystemobject 对象来列举出这些图片文件(gif和jpeg文件).
在页面里加一个链接 toggle display ，来控制是否显示图片。当你有很多文件而不想都加载它们，你可以只让页面的一个图片显示一个链接，相反，如果你不确定一些文件命名是含义，这个功能将能很好的帮助你进行清理操作。
下面是很简洁的代码
<%@ language=vbscript %>
<% option explicit %>
<%
const imagefilepath = "images"
const deletebuttonlabel = "delete selected images"
dim objfso
dim objfolder
dim objfile
dim strfilename
dim strfileextension
dim blnshowimages
if request.querystring("showimages") = "" then
blnshowimages = false
else
blnshowimages = cbool(request.querystring("showimages"))
end if
if request.form("btndelete") = deletebuttonlabel then
set objfso = server.createobject("scripting.filesystemobject")
for each strfilename in request.form("delete")
objfso.deletefile(server.mappath(imagefilepath & "/" & _
strfilename))
next
set objfso = nothing
end if
%>
<html>
<head>
<title>asp 101 image browser & killer!</title>
</head>
<body>
<form action="<%= request.servervariables("url") %>" method="post">
<table border="1">
<tr>
<th>image name</th>
<th>image <a href="<%= request.servervariables("url") %>?
showimages=<%= not blnshowimages %>">(toggle display)</a></th>
<th>delete this image</th>
</tr>
<%
set objfso = server.createobject("scripting.filesystemobject")
set objfolder = objfso.getfolder(server.mappath(imagefilepath))
for each objfile in objfolder.files
strfileextension = lcase(mid(objfile.name, _
instrrev(objfile.name, ".", -1, 1) + 1))
if strfileextension = "gif" or strfileextension = "jpg" or _
strfileextension = "jpeg" then
original image file identification option:
if objfile.type = "gif image" or _
objfile.type = "jpeg image" then
%>
<tr>
上一篇： 吃榴莲的禁忌有什么
下一篇： 金额大小写转换的asp完全无错版本