Некоторое время назад была ASP-страница, которая выполнялась очень медленно, имела много посетителей и не часто изменялась. Мне было лень делать ее напрямую, и мне приходилось каждый раз загружать ее с сервера, чтобы изменить. это, поэтому мне пришлось найти способ преобразовать страницу ASP в статическую страницу. . .
Я видел подобные статьи раньше, но не обращал на это особого внимания. Было сложно найти подходящую, когда мне очень хотелось ею воспользоваться, поэтому я долго искал в Интернете и наконец нашел более подходящую. код и добавил свои собственные модификации следующим образом:
<%
Функция GetPage(url)
'Получить содержимое файла
тусклый поиск
Установить Получение = CreateObject("Microsoft.XMLHTTP")
С поиском
.Откройте «Получить», URL, False ', «», «»
.Отправлять
GetPage = BytesToBstr(.ResponseBody)
Конец с
Установить получение = Ничего
Конечная функция
Функция BytesToBstr(body)
тусклый объектный поток
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Открыть
objstream.Напишите тело
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
установить objstream = ничего
Завершить функцию
при ошибке, возобновить следующую
Url=" http://www.sina.com.cn"' Адрес страницы, которую необходимо прочитать.
response.write "Начать обновление домашней страницы..."
wstr = GetPage(Url)
'response.write(wstr)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'если не MyFile.FolderExists(server.MapPath("/html/")), то
'MyFile.CreateFolder(server.MapPath("/html/"))'
'end if
'Адрес страницы, которую необходимо сохранить
дижи=server.MapPath("index.htm")
Если (fs.FileExists(дижи)) Тогда
fs.DeleteFile(дижи)
Конец, если
установлено CrFi=fs.CreateTextFile(дижи)
Crfi.Writeline(wstr)
setCrFi=ничего
установить фс=ничего
response.write "...<font color=red>Обновление завершено!</font>"
%>
Код самый простой. Его можно сохранить прямо в asp-файл. Просто задайте URL (asp-адрес, который нужно преобразовать) и дижи (html-адрес, который нужно сохранить). Обычно эти два файла находятся в одном каталоге. Только тогда мы сможем гарантировать, что изображения, CSS и JS работают.
Надеюсь, это будет полезно тем друзьям, которые ищут asp->htm.