В ASP, особенно в системах CMS, которые должны генерировать статические состояния, некоторые файлы часто должны быть оценены, созданы и удаляются. Сегодня редактор «Новый технологический канал ошибки» отсортировал его для вас здесь, что в основном отвечает основным потребностям.
Пользовательские функции, обычно используемые в ASP для обработки загрузки и удаления файлов
<%
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
'Все пользовательские функции VBS
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
функция deletefile (имя файла) 'удалить файл
Если имя файла <> "" Тогда
SET FSO = server.createObject ("scripting.filesystemobject")
Если fso.filexists (имя файла), то
fso.deletefile filename
конец, если
Установить FSO = ничего
конец, если
конечная функция
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
Функция CenectiR (Byval LocalPath) 'Программа, которая создает каталог. Если есть несколько уровней каталогов, создает его по одному уровню за раз
при ошибке резюме следующим
Localpath = reply (localpath, "/", "/")
set fileObject = server.createObject ("scripting.filesystemobject")
patharr = split (localpath, "/")
path_level = ubund (patharr)
для i = 0 to path_level
Если i = 0, то pathtmp = patharr (0) & "/" else pathtmp = pathtmp & patharr (i) & "/"
CPATH = LEAND (PATHTMP, LEN (PATHTMP) -1)
Если не fileObject.folderexists (cpath), то fileobject.createfolder cpath
следующий
Установить FileObject = ничего
Если err.number <> 0, тогда
CenectiR = false
err.clear
еще
CenectiR = true
конец, если
конечная функция
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
Function SaverandFilename (Byval Szfilename) 'Сгенерировать новое имя случайного файла на основе исходного имени файла
рандомизировать
'rannum = int (90000*rnd) +10000
'Если месяц (сейчас) <10, то C_MONTH = "0" & Month (Now) else c_month = месяц (сейчас)
'Если день (сейчас) <10, то c_day = "0" & day (сейчас) else c_day = day (сейчас)
'Если час (сейчас) <10, то C_HOUR = "0" & Hour (Now) else c_hour = час (сейчас)
'Если минута (сейчас) <10, то C_MINUTE = "0" & Minute (Now) else c_minute = minute (сейчас)
'Если второе (сейчас) <10, то c_second = "0" & second (сейчас) else c_second = minute (сейчас)
fileext_a = split (szfilename, ".")
fileext = lcase (fileext_a (ubund (fileext_a))))))))))))))
Saverandfilename = replication (reply (now »:«: ""), "-", ""), "," "") & int (10*rnd) & "." & Fileext
'GeneraterAndomFilEname = Год (сейчас) и C_MONTH & C_DAY & C_HOUR & C_MINUTE & C_SECOND & "_" & Rannum & "." & FileExt
конечная функция
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
Функция jaron_replacer (strcontent, start_string, end_string, replace_string)
'Функция замены CMS: Строка источника, первая часть, последняя часть, замененные символы
'Вернуть замененную строку
jaron_replacer = reply (strcontent, mid (strcontent, instr (strcontent, start_string), instr (strcontent, end_string)+len (end_string) -1), reply_string)
конечная функция
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
Функция replaceplus (strcontent, start_string, end_string, replace_string)
'В документе удалите все символы между началом и конец
при ошибке резюме следующим
Markcounts = ubund (split (strcontent, start_string)))
Prestring = strcontent
для i = 0 для markcounts
Startmark = instr (1, prestring, start_string, 1)
Если startmark = 0, то выйдите для
Compmark = instr (1, prestring, end_string, 1) + len (end_string)
Verstring = mid (prestring, startmark, compmark - startmark)
Prestring = repreding (prestring, verstring, replys_string)
следующий
Replaceplus = prestring
Если err.number <> 0, то err.clear
конечная функция
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
%>
Приведенная выше статья о обычно используемых функциях обработки файлов в ASP. Я верю, что все знают большинство из них. Неправильный новый технологический канал будет продолжать собирать для вас более полезные знания. Я надеюсь, что вы сможете понять хорошие намерения редактора. Если вам нравится эта статья, продолжайте следить за нами!