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

读着倒字名←

读着倒字名←

2016-01-29 17:46

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

这是我第一次翻译文章,不足之处,还请见谅。
印度,现在之所以成为软件出口大国,有很多地方都优于我们。其中一个首要的优势就是印度的官方语言是英语,这就为以英语作为编程语言的印度程序员带来得天独厚的优越条件。对于我们从事IT业的人来说,也应该加强自已英语训练。

导言
如果你有个已运行两个月以上时间的网站,你也许会注意到你网站上已积聚了很多的图片文件。尽管我们都已尽力为这些图片文件很好的命名,但当我们去浏览这些图片的文件名时,我们总是会很难想起一些图片文件名有何特殊的含义或用处。
这时,我们通常会重复地用浏览器打开那些图片,看看是什么图片?这时,这段ASP代码就可以做为图片浏览器(和清理器)来浏览这些图片并执行清理操作。

编码:
事实上,这个程序就是包含某目录下的所有图片的一个列表页面,用FileSystemObject 对象来列举出这些图片文件(gif和jpeg文件).
在页面里加一个链接 toggle display ,来控制是否显示图片。当你有很多文件而不想都加载它们,你可以只让页面的一个图片显示一个链接,相反,如果你不确定一些文件命名是含义,这个功能将能很好的帮助你进行清理操作。

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/)


(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/)




下面是很简洁的代码
<%@ 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
  <titleASP 101 Image Browser & Killer!</title
</head
<body

<form action="<%= Request.ServerVariables("URL") %" method="post"

<table border="1"
<tr
    <thImage Name</th
    <thImage <a href="<%= Request.ServerVariables("URL") %?
        ShowImages=<%= Not blnShowImages %"(Toggle Display)</a</th
    <thDelete 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

展开更多 50%)
分享

猜你喜欢

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

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

一个基于ASP的标题广告管理系统(一)

ASP
一个基于ASP的标题广告管理系统(一)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

一个基于ASP的标题广告管理系统(二)

ASP
一个基于ASP的标题广告管理系统(二)

一个基于ASP的标题广告管理系统(三)

ASP
一个基于ASP的标题广告管理系统(三)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

一个浏览器检查类

PHP
一个浏览器检查类

ASP.Net生成一个简单的图片

Web开发
ASP.Net生成一个简单的图片

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Linux指令篇:系统管理--rwho

Linux指令篇:系统管理--rwho

耳目一新的Word另类技巧

耳目一新的Word另类技巧
下拉加载更多内容 ↓