Метод 1
<%
'Часто используемые функции
'1. Введите URL-адрес целевой веб-страницы, а возвращаемое значение getHTTPPage — это html-код целевой веб-страницы.
функция getHTTPage (url)
dimHttp
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET", URL, false
HTTP.send()
если Http.readystate<>4, то
функция выхода
конец, если
getHTTPPage = bytesToBSTR(Http.responseBody, "GB2312")
установить http=ничего
если err.number<>0, то err.Clear
end function
'2. Преобразование Ranma. Непосредственно используйте xmlhttp для вызова веб-страниц с китайскими иероглифами. Вы можете преобразовать его через компонент adodb.stream.
Функция BytesToBstr(body,Cset)
тусклый объектный поток
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Открыть
objstream.Напишите тело
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
установить objstream = ничего
Конечная функция
txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
имя файла="../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true означает, что он не существует и будет создан сам по себе.
openFile.writeline(sText)
Установить OpenFile=ничего
%>
<скрипт>
alert("Создание статической веб-страницы завершено");
история.обратно();
</script>
Способ 2:
resourcesfile=server.MapPath("../index.asp")
targetfile=server.MapPath("../index.htm")
Установите html = Server.CreateObject("CDO.Message")
html.CreateMHTMLBody файл ресурсов, 31
индекскод=html.HTMLBody
Установить HTML = Ничего
если instr(indexcode,"</BODY></HTML>")<=0 тогда
response.Write("Ошибка создания домашней страницы")
ответ.Конец()
еще
Установите oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Установить outfile=oFileSys.CreateTextFile(целевой файл)
outfile.WriteLine индексный код
выходной файл.закрыть
Установить выходной файл = ничего
установите oFileSys=ничего
response.Write("Главная страница создана!")
конец, если