<%
'------------------------------------------------ - ---------
'Funktion: Ermitteln Sie die Größe der Remote-Datei
'Parameter: URL-Remote-Dateiadresse
'Rückgabe: Remote-Dateigröße (Einheit: Bytes)
'------------------------------------------------ - ---------
Funktion getRemoteFileSize(url)
DimxmlHTTP
Setze xmlHTTP = Server.CreateObject("MSXML2.XMLHTTP")
xmlHTTP.open „get“, URL, false
„Der nächste Satz ist sehr kritisch, andernfalls müssen alle Dateiinformationen vorab geladen werden, bevor die Header-Informationen zurückgegeben werden.“
xmlHTTP.setRequestHeader „range“, „bytes=-1“
xmlHTTP.send()
getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Content-Range"),"/")(1)
Setzen Sie xmlHTTP = Nothing
Endfunktion
Response.Write(getRemoteFileSize(" %>