Il y a quelque temps, il y avait une page ASP qui était très lente à exécuter, qui avait beaucoup de visiteurs et qui n'était pas souvent modifiée. J'étais trop paresseux pour la rendre statique directement, je devais la télécharger depuis le serveur à chaque fois pour la modifier. , j'ai donc dû trouver un moyen de convertir la page ASP en page HTM. . .
J'ai déjà vu des articles comme celui-ci, mais je n'y ai pas prêté beaucoup d'attention. Il était difficile d'en trouver un qui me convienne vraiment lorsque je voulais vraiment l'utiliser, alors j'ai longuement cherché sur Internet et j'ai finalement trouvé un article plus approprié. code et ajouté mes propres modifications, comme suit :
<%
Fonction GetPage(url)
'Obtenir le contenu du fichier
dim Récupération
Définir la récupération = CreateObject("Microsoft.XMLHTTP")
Avec récupération
.Ouvrez "Obtenir", url, False ', "", ""
.Envoyer
GetPage = BytesToBstr(.ResponseBody)
Terminer par
Définir la récupération = Rien
Fonction de fin
Fonction BytesToBstr(corps)
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 = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Fermer
définir objstream = rien
Fin de la fonction
en cas d'erreur, reprise suivante
Url=" http://www.sina.com.cn"' L'adresse de la page à lire
réponse.write "Commencez à mettre à jour la page d'accueil..."
wstr = GetPage(Url)
'response.write(wstr)
Définissez fs=Server.CreateObject("Scripting.FileSystemObject")
'si ce n'est pas MyFile.FolderExists(server.MapPath("/html/")) alors
'MonFichier.CreateFolder(server.MapPath("/html/"))'
'end if
'L'adresse de la page à stocker
dizhi=server.MapPath("index.htm")
Si (fs.FileExists(dizhi)) Alors
fs.DeleteFile(dizhi)
Fin si
défini CrFi=fs.CreateTextFile(dizhi)
Crfi.Writeline(wstr)
setCrFi = rien
définir fs = rien
réponse.write "...<font color=red>Mise à jour terminée !</font>"
%>
Le code est le plus simple. Il peut être enregistré directement dans un fichier asp. Il suffit de définir l'URL (l'adresse asp à convertir) et dizhi (l'adresse html à enregistrer). Généralement, ces deux fichiers sont dans le même répertoire. Ce n'est qu'alors que nous pourrons garantir que les images, les CSS et les JS fonctionnent.
J'espère que cela sera utile aux amis qui recherchent asp->htm.