Bien que Script House ait déjà publié des codes pertinents, certains sites Web spéciaux ne sont pas parfaits. Récemment, j'ai aidé les clients à modifier le système et j'ai trouvé ce code plutôt bon, je l'ai donc extrait pour la commodité de tous.
Copiez le code comme suit :
<%
dossier Web="/"
host="index_cn.asp"'adresse dynamique de la réception
dossier="/"'dossier
filename="index_cn.html"'Générer un nom de fichier statique
Hôte Fso_info, dossier, nom de fichier
réponse.write "Génération terminée du code HTML statique pour la page d'accueil chinoise du site Web.<br />"
'Générer du HTML
Fonction Fso_info (hôte, dossier, nom de fichier)
host="http://"+Request.ServerVariables("HTTP_HOST")&dossier Web&hôte
si SaveFile(""&folder&filename&"",""&host&"") alors
réponse.Écrivez ""&dossier&nom de fichier&" généré avec succès. <br />"
autre
Response.write ""&folder&filename&" n'a pas réussi à générer <font color='#FF0000'></font>. Peut-être que votre nom de fichier contient des caractères spéciaux.<br />"
finir si
Fonction de fin
'Générer un fichier
fonction SaveFile (LocalFileName, RemoteFileUrl)
Dim Annonces, Récupération, GetRemoteData
En cas d'erreur, reprendre ensuite
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP") '//Divisez les mots pour éviter toute destruction accidentelle par un logiciel antivirus
Avec récupération
.Ouvrez "Obtenir", RemoteFileUrl, False, "", ""
.Envoyer
GetRemoteData = .ResponseBody
Terminer par
Définir la récupération = Rien
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") '//Divisez les mots pour éviter leur destruction accidentelle par un logiciel antivirus
Avec des publicités
.Type = 1
.Ouvrir
.Écrire GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Annuler()
.Fermer()
Terminer par
Définir les annonces = rien
si erreur <> 0 alors
FichierEnregistrement = faux
err.clear
autre
FichierEnregistrement = vrai
finir si
Fin de fonction
%>