当前位置: 移动技术网 > IT编程>开发语言>.net > 一个ASP版的图片浏览管理器

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

2018年10月10日  | 移动技术网IT编程  | 我要评论

msn邮箱后缀,身边的科学手抄报,家装设计

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

如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复

相关文章:

验证码:
移动技术网