Пользовательские функции, обычно используемые в ASP для обработки загрузки и удаления файлов
<%
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'Все пользовательские функции VBS
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
функция deletefile (имя файла) 'удалить файл
Если имя файла <> then
Установить fso = server.createObject (scripting.filesystemobject)
Если fso.filexists (имя файла), то
fso.deletefile filename
конец, если
Установить FSO = ничего
конец, если
конечная функция
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
Функция CenectiR (Byval LocalPath) 'Программа, которая создает каталог. Если есть несколько уровней каталогов, создает его по одному уровню за раз
при ошибке резюме следующим
LocalPath = заменить (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 и месяц (сейчас) иначе c_month = месяц (сейчас)
'Если день (сейчас) <10, то c_day = 0 & day (сейчас) else c_day = day (сейчас)
'Если час (сейчас) <10, то C_HOUR = 0 & Hour (Now) else c_hour = час (сейчас)
'Если минута (сейчас) <10, то C_MINUTE = 0 & MINMOT
'Если второе (сейчас) <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)