Há algum tempo, havia uma página ASP que era muito lenta de executar, tinha muitos visitantes e não era modificada com frequência. Eu tinha preguiça de torná-la estática diretamente e precisava baixá-la do servidor todas as vezes para alterá-la. isso, então tive que encontrar uma maneira de converter a página ASP em página estática. . .
Já vi artigos como este antes, mas não prestei muita atenção neles. Foi difícil encontrar um adequado quando eu realmente queria usá-lo, então pesquisei muito na Internet e finalmente encontrei um mais adequado. código e adicionei minhas próprias modificações, como segue:
<%
Função GetPage(url)
'Obtém o conteúdo do arquivo
recuperação escura
Definir recuperação = CreateObject("Microsoft.XMLHTTP")
Com recuperação
.Abra "Obter", url, Falso ', "", ""
.Enviar
GetPage = BytesToBstr(.ResponseBody)
Terminar com
Definir recuperação = nada
Função final
Função BytesToBstr (corpo)
escurecer objstream
definir objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Modo =3
objstream.Open
objstream.Escrever corpo
objstream.Posição = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Fechar
definir objstream = nada
Finalizar função
em caso de erro, retomar a seguir
Url=" http://www.sina.com.cn"' O endereço da página a ser lida
response.write "Comece a atualizar a página inicial..."
wstr = GetPage(Url)
'response.write(wstr)
Defina fs=Server.CreateObject("Scripting.FileSystemObject")
'se não MyFile.FolderExists(server.MapPath("/html/")) então
'MeuArquivo.CreateFolder(server.MapPath("/html/"))'
'end if
'O endereço da página a ser armazenada
dizhi=server.MapPath("index.htm")
Se (fs.FileExists(dizhi)) Então
fs.DeleteFile(dizhi)
Fim se
definido CrFi=fs.CreateTextFile(dizhi)
Crfi.Writeline(wstr)
setCrFi = nada
definir fs = nada
response.write "...<font color=red>Atualização concluída!</font>"
%>
O código é o mais simples. Ele pode ser salvo diretamente em um arquivo asp. Basta definir a URL (o endereço asp a ser convertido) e o dizhi (o endereço html a ser salvo). Só então poderemos garantir que imagens, css e js funcionem.
Espero que seja útil para aqueles amigos que procuram asp->htm.