一个ASP版的图片浏览管理器
2018-09-06 11:27
这是我第一次翻译文章，不足之处，还请见谅。
印度，现在之所以成为软件出口大国，有很多地方都优于我们。其中一个首要的优势就是印度的官方语言是英语，这就为以英语作为编程语言的印度程序员带来得天独厚的优越条件。对于我们从事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
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>
下一篇：三天学好ADO之第三天