Embora a Script House já tenha lançado códigos relevantes, alguns sites especiais não são perfeitos. Recentemente, ajudei os clientes a modificar o sistema e achei esse código muito bom, então extraí-o para conveniência de todos.
Copie o código do código da seguinte forma:
<%
pasta web="/"
host="index_cn.asp"'endereço dinâmico da recepção
pasta="/"'pasta
filename="index_cn.html"'Gerar nome de arquivo estático
Host Fso_info, pasta, nome do arquivo
response.write "Concluída a geração de HTML estático para a página inicial chinesa do site.<br />"
'Gerar HTML
Função Fso_info(host,pasta,nome do arquivo)
host="http://"+Request.ServerVariables("HTTP_HOST")&webfolder&host
se SaveFile(""&pasta&nomedoarquivo&"",""&host&"") então
resposta.Write ""&folder&filename&" gerado com sucesso. <br />"
outro
Response.write ""&folder&filename&" falhou ao gerar <font color='#FF0000'></font>. Talvez o nome do seu arquivo contenha caracteres especiais.<br />"
terminar se
Função final
'Gerar arquivo
função SaveFile(LocalFileName,RemoteFileUrl)
Dim Anúncios, Recuperação, GetRemoteData
Em caso de erro, retomar o próximo
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP") '//Divida as palavras para evitar morte acidental por software antivírus
Com recuperação
.Abra "Obter", RemoteFileUrl, Falso, "", ""
.Enviar
GetRemoteData = .ResponseBody
Terminar com
Definir recuperação = nada
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") '//Divida as palavras para evitar morte acidental por software antivírus
Com anúncios
.Tipo = 1
.Abrir
.Escreva GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Cancelar()
.Fechar()
Terminar com
Definir anúncios = nada
se errar <> 0 então
SalvarArquivo = falso
err.claro
outro
SalvarArquivo = verdadeiro
terminar se
Função final
%>