Méthode 1
<%
'Fonctions couramment utilisées
'1. Entrez l'adresse de la page Web cible et la valeur de retour getHTTPPage est le code HTML de la page Web cible.
fonction getHTTPage(url)
dimHttp
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.envoyer()
si Http.readystate<>4 alors
fonction de sortie
finir si
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
définir http = rien
si err.number<>0 alors err.Clear
end function
'2. Convertir Ranma. Utilisez directement xmlhttp pour appeler des pages Web avec des caractères chinois. Vous obtiendrez Ranma. Vous pouvez le convertir via le composant adodb.stream.
Fonction BytesToBstr(corps,Cset)
objstream obscur
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Ouvrir
objstream.Écrire le corps
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fermer
définir objstream = rien
Fonction de fin
txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
nom de fichier="../index.htm"
Définir openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true signifie qu'il n'existe pas et sera créé par lui-même
openFile.writeline(sTexte)
Définir OpenFile = rien
%>
<script>
alert("Génération de page Web statique terminée");
histoire.back();
</script>
Méthode 2 :
resourcefile=server.MapPath("../index.asp")
targetfile=server.MapPath("../index.htm")
Définir html = Server.CreateObject("CDO.Message")
html.CreateMHTMLBody fichier de ressources,31
indexcode=html.HTMLBody
Définir html = Rien
si instr(indexcode,"</BODY></HTML>")<=0 alors
réponse.Write("Échec de la génération de la page d'accueil")
réponse.Fin()
autre
Définir oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Définir outfile = oFileSys.CreateTextFile (fichier cible)
code d'index outfile.WriteLine
fichierout.close
Définir le fichier de sortie = rien
définir oFileSys = rien
réponse.Write("Page d'accueil générée!")
finir si