Método 1
<%
'Funciones de uso común
'1. Ingrese la dirección URL de la página web de destino y el valor de retorno getHTTPPage es el código html de la página web de destino.
función getHTTPage(url)
dimHttp
establecer Http=server.createobject("MSXML2.XMLHTTP")
Http.open "OBTENER", URL, falso
http.enviar()
si Http.readystate<>4 entonces
función de salida
terminar si
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
establecer http=nada
si número de error <> 0 entonces err.Borrar
función final
'2. Convertir Ranma. Utilice directamente xmlhttp para llamar a páginas web con caracteres chinos. Lo que obtendrá será Ranma. Puede convertirlo a través del componente adodb.stream.
Función BytesToBstr(cuerpo,Cset)
corriente de objetos tenue
establecer objstream = Server.CreateObject("adodb.stream")
objstream.Tipo = 1
objstream.Modo =3
objstream.Abrir
objstream.Escribir cuerpo
objstream.Posición = 0
objstream.Tipo = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Cerrar
establecer objstream = nada
Función final
txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Establecer FileObject=Server.CreateObject("Scripting.FileSystemObject")
nombre de archivo="../index.htm"
Establecer openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true significa que no existe y será creado por sí mismo
openFile.writeline(sText)
Establecer OpenFile=nada
%>
<guión>
alert("Generación de página web estática completada");
historia.back();
</script>
Método 2:
archivo de recursos=servidor.MapPath("../index.asp")
targetfile=servidor.MapPath("../index.htm")
Establecer html = Server.CreateObject("CDO.Mensaje")
html.CreateMHTMLBody archivo de recursos,31
código de índice=html.HTMLBody
Establecer html = Nada
si instr(indexcode,"</BODY></HTML>")<=0 entonces
respuesta.Write("Falló la generación de la página de inicio")
respuesta.Fin()
demás
Establecer oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Establecer archivo de salida=oFileSys.CreateTextFile(archivo de destino)
outfile.WriteLine código de índice
archivo exterior.cerrar
Establecer archivo de salida = nada
establecer oFileSys=nada
respuesta.Write("¡Página de inicio generada!")
terminar si