Хотя Script House уже выпускал соответствующие коды, некоторые специальные веб-сайты не идеальны. Недавно я помогал клиентам модифицировать систему и обнаружил, что этот код довольно хорош, поэтому я извлек его для всеобщего удобства.
Скопируйте код кода следующим образом:
<%
веб-папка="/"
host="index_cn.asp"'динамический адрес стойки регистрации
папка="/"'папка
filename="index_cn.html"'Сгенерировать статическое имя файла
Fso_info хост, папка, имя файла
response.write "Завершение создания статического HTML-кода для домашней страницы сайта на китайском языке.<br />"
'Сгенерировать HTML
Функция Fso_info(хост,папка,имя файла)
хост="http://"+Request.ServerVariables("HTTP_HOST")&вебпапка&хост
if SaveFile(""&folder&filename&"",""&host&"") тогда
ответ. Напишите ""&папка&имя_файла&" успешно сгенерировано. <br />"
еще
Response.write ""&folder&filename&" не удалось создать <font color='#FF0000'></font>. Возможно, имя вашего файла содержит специальные символы.<br />"
конец, если
Конечная функция
'Создать файл
функция SaveFile(LocalFileName,RemoteFileUrl)
Тусклые объявления, извлечение, GetRemoteData
При ошибке Возобновить Далее
Set Retrival = Server.CreateObject("Microso" & "ft.XM" & "LHTTP") '//Разделение слов, чтобы предотвратить случайное уничтожение антивирусным программным обеспечением
С поиском
.Откройте «Получить», RemoteFileUrl, False, «», «»
.Отправлять
GetRemoteData = .ResponseBody
Конец с
Установить получение = Ничего
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") '//Разделение слов, чтобы предотвратить случайное уничтожение антивирусным программным обеспечением
С рекламой
.Тип = 1
.Открыть
.Напишите GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Отмена()
.Закрывать()
Конец с
Установить рекламу = ничего
если ошибка <> 0, то
СохранитьФайл = ложь
ошибка.очистить
еще
СохранитьФайл = правда
конец, если
Конечная функция
%>