Для дизайнеров веб -сайтов неизбежно часто обрабатывать большие партии файлов, особенно изображения и некоторые текстовые файлы, которые еще более часты. Из -за большого количества файлов на веб -сайте, именование файлов одного и того же типа часто напрямую использует инкрементные числа с определенной регулярностью, как имена файлов. Например, именование общих файлов изображений часто использует 1001.jpg и 1002.jpg. Это преимущество состоит в том, что имена файлов не будут дублироваться и легко управлять. Здесь мы специально вводим простой и простой способ использования ASP, чтобы просто использовать пакетные переиме на переименование всех файлов. Конечно, имена файлов после переименования увеличиваются в соответствии с потребностями дизайнера веб -сайта.
Мы используем ASP для реализации вышеуказанных функций. Следует отметить, что, поскольку проектирование файловых операций и использование объектов файловых систем, реализация этой функции должна выполняться на веб -сайте с разрешениями на работу файлов. Как правило, виртуальное внимание состоит в том, что, учитывая требования безопасности, файл не могут быть предоставлены разрешениями, на что мы должны обратить внимание на первое место; В следующей программе мы будем эксплуатировать все файлы в указанной папке STRPROMDIR. Пока это файл в этой папке, независимо от того, что такое тип файла, программа будет переименовать его. Конечно, тип файла не будет изменен. Файлы после имени не будут сохранены в исходной папке, но будут перемещены в новую папку StrtargetDir. Обратите внимание, что мы движемся сюда, не копируем, поэтому после операции все файлы в исходной папке не будут существовать; Программа хорошо использует различные атрибуты и функции, предоставляемые объектом файлового искусства, а реализация проста и ясна, и друзья, которые используют другие языки, могут чувствовать это глубоко; Теперь давайте посмотрим на код реализации функции:
< % @language = vbscript % >
<%вариант явного%>
<%
«Следующая программа переименовала имена файлов в папке и перемещает все файлы в новую папку;
Response.write "< html >" & vbcrlf & "< head >" & vbcrlf
Response.write "< заголовок > Плачковое имя файла изменение </title >" & vbcrlf
Response.write "</head>" & vbcrlf & "< body>" & vbcrlf
'Переменное описание
Dim GbolgoProcedure
Dim Stremdir'source Folder
Dim Strtargetdir'target Folder
Dim objfs
Dim objrootfolder
Dim objfile
Dim Strfilenamelen
Dim Strprevfilename
Dim Strfileext 'расширение файла
Dim Strfilenamecount
Dim Strnewfilename
Dim StrrealCount 'Количество обработанных файлов
gbolgoprocedure = false
'Если кнопка «Пуск» нажата, выполните следующую обработку
If (request.form ("gobutton")) = "start"
'Укажите исходную папку и папку назначения
strPromDir = "D: тест/"
strtargetdir = "d:/test1/"
'Установите количество обработанных файлов на 0
strrealcount = 0
Установить objfs = server.createObject ("scripting.filesystemobject")
Установить objrootfolder = objfs.getfolder (strtargetdir)
'Конкретные настройки имени файла, установленные здесь на 100001, указывая на то, что имя файла будет от 100001
«Запуск, приращение постепенно, может быть установлено по мере необходимости;
strfilenamecount = 100001
Для каждого objfile в objrootfolder.files
«Для конкретных файлов они не обрабатываются и могут быть установлены по мере необходимости;
Если objfile.name = "thumbs.db", то strfilenamecount = strfilenamecount - 1
strfilenamecount = strfilenamecount + 1
Следующий
Установить objrootfolder = objfs.getfolder (strpromdir)
Для каждого objfile в objrootfolder.files
strfilenamelen = len (objfile.name)
Если mid (objfile.name, (strfilenamelen - 3), 1) = ".". затем
strfileext = справа (objfile.name, 4)
Еще
strfileext = справа (objfile.name, 5)
Конец, если
strprevfilename = objfile.name
strnewfilename = strfilenamecount & strfileext
objfile.move strtargetdir & strnewfilename
Response.write «Источник исходного файла:» & strfromdir & strprevfilename & »> Переместите и измените его на:" & strtargetdir & strnewfilename & "<br>" & vbcrlf
strfilenamecount = strfilenamecount + 1
strrealcount = strrealcount + 1
Следующий
Response.write "< P >< B > Тотальная обработка:" & (strrealcount) & "files </b>" & vbcrlf
Установить objrootfolder = ничего
Установить objfs = ничего
gbolgoprocedure = true
Конец, если
Если GbolgoProcedure, тогда
Response.write ("< p >< b > пакетный пакетный пакетный пакет перемещение и переименование </b >")
Еще
Response.write ("< Center ><br> < form method =" "post" "action =" "filenameConverter.asp" "id = form1 name =" "form1" ">") & vbcrlf
Response.write ("< input type =" "" отправить "" value = "" start "" id = "" gobutton "" name = "" gobutton ""> ") & vbcrlf
Response.write ("</form>") & vbcrlf
Response.write ("< P >< B > Нажмите кнопку, чтобы перевести и переименовать файл </b ></center >") и vbcrlf
Конец, если
Response.write "</body>" & vbcrlf & "</html>"
%>
Выше приведено все содержимое ASP, просто реализующее переименование партийных имен всех файлов. Более захватывающий контент находится в канале технологий миаосинов.