Embora Wulin.com www.vevb.com já tenha lançado códigos relevantes, alguns sites especiais não são perfeitos. Recentemente, ajudei um cliente a modificar o sistema e achei esse código muito bom, então extraí-o para todos. conveniência. 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 gera HTML estático para a página inicial do site em chinês.<br />
'Gerar HTML
Função Fso_info(host,pasta,nome do arquivo)
host=http://+Request.ServerVariables(HTTP_HOST)&webfolder&host
se SaveFile(&pasta&nome do arquivo&,&host&) então
resposta.Write &folder&filename& gerado com sucesso.
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 Get, 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
%>