<%
'------------------------------------------------ - ---------
'Fonction : Obtenir la taille du fichier distant
'Paramètre : URL de l'adresse du fichier distant
'Retour : taille du fichier distant (unité : octets)
'------------------------------------------------ - ---------
Fonction getRemoteFileSize(url)
DimxmlHTTP
Définir xmlHTTP = Server.CreateObject("MSXML2.XMLHTTP")
xmlHTTP.open "get", URL, faux
« La phrase suivante est très critique, sinon toutes les informations du fichier doivent être préchargées avant de renvoyer les informations d'en-tête.
xmlHTTP.setRequestHeader "plage", "octets=-1"
xmlHTTP.send()
getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Content-Range"),"/")(1)
Définir xmlHTTP = Rien
Fin de la fonction
Response.Write(getRemoteFileSize(" %>