Я впервые переводю статью, поэтому прошу простить меня за неточности.
Причина, по которой Индия сейчас является крупным экспортером программного обеспечения, заключается в том, что она превосходит нас во многих местах. Одним из первых преимуществ является то, что официальным языком Индии является английский, что дает уникальные преимущества индийским программистам, использующим английский в качестве языка программирования. Тем из нас, кто работает в ИТ-индустрии, следует также усилить обучение английскому языку.
Введение Если у вас есть веб-сайт, который работает более двух месяцев, вы, возможно, заметили, что на вашем веб-сайте скопилось много файлов изображений. Хотя мы все изо всех сил стараемся правильно называть эти файлы изображений, когда мы просматриваем имена файлов этих изображений, нам всегда трудно запомнить особое значение или использование некоторых имен файлов изображений.
В настоящее время мы обычно несколько раз открываем эти изображения в браузере, чтобы увидеть, что это за изображения? В настоящее время этот код ASP можно использовать в качестве браузера изображений (и очистки) для просмотра этих изображений и выполнения операций очистки.
кодирование:
Фактически, эта программа представляет собой страницу списка, содержащую все изображения в определенном каталоге, с использованием объекта FileSystemObject для перечисления этих файлов изображений (файлов gif и jpeg).
Добавьте на страницу отображение переключателя ссылок, чтобы контролировать, отображать ли изображение. Если у вас много файлов и вы не хотите загружать их все, вы можете просто позволить изображению на странице отображать ссылку. Напротив, если вы не уверены, что означают некоторые имена файлов, эта функция будет. хорошая помощь для вас, чтобы очиститься.
Ниже приведен очень краткий код
<%@ Language=VBScript %>
<% Опция явная %>
<%
Const ImageFilePath = "изображения"
Const DeleteButtonLabel = «Удалить выбранные изображения»
Dim objFSO
Тусклый объект objFolder
Dim objFile
Dim strFileName
Dim strFileExtension
Dim blnShowImages
If Request.QueryString("ShowImages") = "" Тогда
blnShowImages = Ложь
Еще
blnShowImages = CBool(Request.QueryString("ShowImages"))
Конец Если
Если Request.Form("btnDelete") = DeleteButtonLabel Тогда
Установите objFSO = Server.CreateObject("Scripting.FileSystemObject")
для каждого имени strFileName в Request.Form("delete")
objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & _
strFileName))
Следующий
набор objFSO = Ничего
Конец, если
%>
<html>
<голова>
<title>Обозреватель изображений и убийца ASP 101!</title>
</голова>
<body>
<form action="<%= Request.ServerVariables("URL") %>" метод="post">
<table border="1">
<тр>
<th>Название изображения</th>
<th>Изображение <a href="<%= Request.ServerVariables("URL") %>?
ShowImages=<%= Not blnShowImages %>">(Переключить отображение)</a></th>
<th>Удалить это изображение</th>
</tr>
<%
Установите objFSO = Server.CreateObject("Scripting.FileSystemObject")
Установите objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))
Для каждого objFile в objFolder.Files
strFileExtension = LCase(Mid(objFile.Name, _
InStrRev(objFile.Name, ".", -1, 1) + 1))
Если strFileExtension = "gif" Или strFileExtension = "jpg" Или _
strFileExtension = "jpeg" Тогда
' Вариант идентификации файла исходного изображения:
'Если objFile.Type = "Изображение GIF" Или _
objFile.Type = "Изображение в формате JPEG" Тогда
%>
<тр>
<тд>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
<%= objFile.Name %></a>
</td>
<%
Если blnShowImages Тогда
%>
<тд>
<img src="<%= ImageFilePath & "/" & objFile.Name %>" />
</td>
<%
Еще
%>
<тд>
<a href="<%= ImageFilePath & "/" & objFile.Name %>">
Просмотреть изображение</a>
</td>
<%
Конец, если
%>
<td align="center">
<input type="checkbox" name="удалить"
value="<%= objFile.Name %>" />
</td>
<%
Конец, если
Следующий
набор objFolder = Ничего
Установить objFSO = Ничего
%>
<тр>
<td colspan="3" align="right">
<input type="submit" name="btnDelete"
value="<%= DeleteButtonLabel %>">
</td>
</tr>
</table>
</form>
</body>
</html>
При выполнении операции удаления обязательно учтите, что если в программе нет запроса на подтверждение удаления, программа не сможет отменить операцию удаления.
Заключение Люди никогда не будут использовать ASP для создания крупномасштабных масштабируемых веб-сайтов. (Примечание переводчика: это предложение не очень уместно без перевода. Согласно моему опыту работы, ASP может полностью создавать крупномасштабные веб-системы. Что касается ASP, я участвовал в создании крупномасштабных корпоративных интранет-сетей, мобильных отраслевых приложений. и т. д.) Но иногда это можно использовать для упрощения работы, даже если код никогда не публикуется в WEB.
Чтобы получить код, вы можете загрузить ZIP-файл обсуждения, содержащий этот код, из корневого каталога http://www.weiw.com . После выполнения кода все изображения в папке http://www.weiw.com/images . / будет отображаться.
Вы можете изменить значение константы ImageFilePath. Вы также можете разместить здесь несколько виртуальных путей, и код будет использовать Server.MapPath для определения подходящего физического пути. Вы можете легко указать определенные местоположения на своем веб-сайте. Например, изменение значения этой константы с «images» на «/images» укажет программе на каталог изображений в корневом каталоге веб-сайта. Точно так же для достижения той же цели можно изменить значение ImageFilePath.
Во-вторых: при написании этого кода я просто использовал тип файла на своем компьютере. Это работает гладко только на моей машине. Оказывается, описание типа файла может изменить основу вашего объединения файлов. Чтобы получить расширения, вы предпочитаете отображать расширения, основанные на таких файлах, а не на их типе. Я реализовал эту функциональность в коде этого ZIP-файла. Сейчас это последняя версия программы.