1. Загрузите следующий текстовый файл и измените .txt на remote.asp, существуют конкретные методы настроек.
Кода -копия выглядит следующим образом:
<%
'Сохранять ли удаленные изображения при добавлении ресурсов
Constssavefileselect = true
'Удаленный каталог сохранения изображения, пожалуйста, не добавляйте "/" в конце
Constssavefilepath = "/images/news"
'Удаленное сохранение изображения тип
Constsfileext = "jpg | gif | bmp | png"
'///////////////////////////////////////////////////////////////////////////////////
Функция: замените удаленный файл в строке в качестве локального файла и сохраните удаленный файл
'параметр:
'SHTML: строка для замены
'ssavepath: путь к сохранению файла
'SEXT: Выполнить расширение замены
FunctionReplacereMoteurl (SHTML, SSAVEFILEPATH, SFILEEXT)
Dims_content
s_content = shtml
Ifisobjinstalled ("microsoft.xmlhttp") = falsethen
Replaceremoteurl = s_content
Выходная функция
Эндиф
Dimre, RemoteFile, RemoteFileurl, SaveFilename, SaveFileType, ArrsaveFilenames, ArrsaveFilename, SsaveFilePathss
Setre = newRegexp
re.ignorecase = true
re.global = true
re.pattern = "((http | https | ftp | rtsp | mms): (///////) {1} ((/w)+[.]) {1,} (n et | com | cn | org | cc | tv | [0-9] {1,3}) (/s*//) ((/s)+[.] {1} ("& sfileext &"))) "
SetRemotefile = re.execute (s_content)
Foreachremotefileurlinremotefile
SaveFileType = reply (remoTefileFileurl, "/", "a"), ":", "a")
arrsavefilename = справа (SaveFileType, 12)
ssavefilepaths = ssavefilepath & "/"
SaveFilename = ssaveFilePaths & ArrsaveFilename
CalsavereMotefile (SaveFilename, RemoteFileurl)
s_content = reply (s_content, remotefileurl, savefilename)
Следующий
Replaceremoteurl = s_content
Конечная функция
'//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'Function: сохранить удаленные файлы в локальные
'Параметр: localfilename ------ локальное имя файла