ASP源码
PHP源码
.NET源码
JSP源码
这是我第一次翻译文章,不足之处,还请见谅。
印度,现在之所以成为软件出口大国,有很多地方都优于我们。其中一个首要的优势就是印度的官方语言是英语,这就为以英语作为编程语言的印度程序员带来得天独厚的优越条件。对于我们从事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 Re***st.QueryString("ShowImages") = "" Then
blnShowImages = False
Else
blnShowImages = CBool(Re***st.QueryString("ShowImages"))
End If
If Re***st.Form("btnDelete") = DeleteButtonLabel Then
Set objFSO = Se***r.CreateObject("Sc***ting.FileSystemObject")
For Each strFileName In Re***st.Form("delete")
ob***O.DeleteFile(Se***r.MapPath(ImageFilePath & "/" & _
strFileName))
Next
Set objFSO = Nothing
End If
%>
Image Name | Image Re***st.ServerVariables("URL") %>? ShowImages=<%= Not blnShowImages %>">(Toggle Display) | Delete This Image | |
---|---|---|---|
ob***le.Name %>"> <%= ob***le.Name %> | ob***le.Name %>" /> | ob***le.Name %>"> View Image | value="<%= ob***le.Name %>" /> |
value="<%= DeleteButtonLabel %>"> |
执行删除操作时,一定要注意,如果在程序里不加删除确认提示,程序将不能撤消删除操作。
结论
人们总是不会拿asp来建大型的可升级的网站。(译者注:这句不翻译不是很恰当,根据我的工作经历,ASP完全可以建设大型的网站系统。在ASP方面中,本人曾参予建设过大型企业内部网,移动行业应用等。)但有时候你可以用这个简化你的工作,即使这代码从没在WEB上发表。
获取代码
你可以下载包含这个代码的讨论的ZIP文件http://ww***iw.com/">http://ww***iw.com的根目录下,代码执行后,将显示http://ww***iw.com/images/">http://ww***iw.com/images/下的所有图片。
你可以改变ImageFilePath 常量的值。你也可以在这儿放一些虚拟路径,代码将用Se***r.MapPath来确定适当的物理路径。你可以很容易地指定你网站上的一些位置。例如,把那个常量的值从"images"改变为"/images",这样可以让程序指向网站根目录下的images目录。同理,可以修改ImageFilePath 的值达到同样目的.
第二:当写这个代码时,我简单地用在我机器里的文件类型。这样只能在我的机器上顺利运行。于是发现,文件类型的描述可以改变你的文件联合的基础。为了取得你选择要显示那些基于此类文件代替他们类型的扩展名。我已在这个ZIP文件中的代码里实现了这个功能.现在这是最新的程序版本。