ASP: générer des fonctions de page statique

La copie de code est la suivante:

<%

ifsavefile ("/htm/list.htm", "http://www.xxx.com/asp/list.asp") puis

Response.Write "Created"

autre

Réponse.WRITE "Non généré"

endire

FONCTIONSAVEFILE (localFilename, RemoteFileUrl)

Dimads, récupération, getRemotedata

Onerrorresumenext

SetRetrieval = server.createObject ("Microso" & "ft.xm" & "lhttp")

Avec un peu de temps

.Open "Get", RemoteFileUrl, False, "", ""

.Envoyer

GetReMoteData = .ResponseBody

Fin

SetRetrieval = rien

Setads = server.createObject ("ado" & "db.str" & "eam")

Withads

.Type = 1

.Ouvrir

.WriteGetRemotedata

.Savetofileserver.mappath (localfilename), 2

.Annuler()

.Fermer()

Fin

Setads = rien

IFERR <> 0THEN

SAVEFILE = FAUX

err.Clear

autre

SaveFile = True

endire

Finition de fin

%>

Articles qui peuvent vous intéresser:

ASP génère HTML nouvelle méthode ASP Paging génère le code de script du programme HTML. Utiliser les composants FSO dans ASP pour générer des pages HTML ASP génère la page de nouvelles ASP méthodes HTML, un code HTML trop long génère un fichier statique codé dans le format UTF-8 pages statiques sans modèles dans ASP