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