当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个ASP版的图片浏览管理器

ASP
用ASP发 WAP MAIL(-)
使用纯粹的asp+语言制作的栏目管理(一)
使用ASP方便的建立自己网站的每日更新
中文虚拟域名实现(1) (环境：中文NT)
中文虚拟域名实现(2) (环境：中文NT)
中文虚拟域名实现(3) (环境：中文NT)
最简单的ASP聊天室（附源码）
Win2k IIS 远程执行命令漏洞
搜索按钮(客户端表单)
转换字符串带有http://的超级链接字符串为真正的超级链接(源码)
第一个ASP组件:设置服务器日期时间组件
虹雨的功能较全的计数程序
下拉框连动的小例子（数据库版）
下拉框连动的小例子（.htm版）
纯ASP上传图像文件到数据库的最佳例子
数组数据排序的程序例子
网络精英计数器源程序
全文本检索的应用(1)
全文本检索的应用(2)
全文本检索的应用(3)

No. « 211 212 213 214 »

技术文章搜索

关键字

一个ASP版的图片浏览管理器

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 42 ::
收藏到网摘: n/a

 

这是我第一次翻译文章，不足之处，还请见谅。
印度，现在之所以成为软件出口大国，有很多地方都优于我们。其中一个首要的优势就是印度的官方语言是英语，这就为以英语作为编程语言的印度程序员带来得天独厚的优越条件。对于我们从事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>
        <td>
            <a href="<%= ImageFilePath & "/" & objFile.Name %>">
            <%= objFile.Name %></a>
        </td>
        <%
        If blnShowImages Then
 &nb