Bien que Wulin.com www.vevb.com ait déjà publié des codes pertinents, certains sites Web spéciaux ne sont pas parfaits. Récemment, j'ai aidé un client à modifier le système et j'ai trouvé ce code plutôt bon, alors je l'ai extrait pour tout le monde. commodité. 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ère du 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)
hôte = http://+Request.ServerVariables(HTTP_HOST)&dossier Web&hôte
si SaveFile(&dossier&nom de fichier&,&hôte&) alors
réponse.Écrivez le &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 le nom de votre 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 Get, 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 toute 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
%>