Método 1
<%
'Funções comumente usadas
'1. Insira o endereço da página da web de destino do URL e o valor de retorno getHTTPPage é o código HTML da página da web de destino.
função getHTTPage(url)
dimHttp
definir Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,falso
http.send()
se Http.readystate<>4 então
função de saída
terminar se
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
definir http = nada
se err.número<>0 então err.Clear
função final
'2. Converta Ranma. Use xmlhttp diretamente para chamar páginas da web com caracteres chineses. Você pode convertê-lo por meio do componente adodb.stream.
Função BytesToBstr(corpo,Cset)
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 = Cset
BytesToBstr = objstream.ReadText
objstream.Fechar
definir objstream = nada
Função final
txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
nome do arquivo = "../index.htm"
Definir openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true significa que não existe e será criado por si mesmo
openFile.writeline(sText)
Definir OpenFile=nada
%>
<roteiro>
alert("Geração de página estática concluída");
história.back();
</script>
Método 2:
resourcefile=server.MapPath("../index.asp")
arquivo de destino=servidor.MapPath("../index.htm")
Definir html = Server.CreateObject("CDO.Message")
html.CreateMHTMLBody arquivo de recurso,31
indexcode=html.HTMLBody
Definir html = Nada
if instr(indexcode,"</BODY></HTML>")<=0 então
response.Write("Falha na geração da página inicial")
resposta.End()
outro
Definir oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Definir outfile = oFileSys.CreateTextFile (arquivo de destino)
código de índice outfile.WriteLine
arquivo de saída.fechar
Definir outfile = nada
definir oFileSys = nada
response.Write("Página inicial gerada!")
terminar se