<%
'------------------------------------------------ - ---------
'Función: Obtener el tamaño del archivo remoto
'Parámetro: dirección URL del archivo remoto
'Retorno: tamaño del archivo remoto (unidad: bytes)
'------------------------------------------------ - ---------
Función getRemoteFileSize(url)
DimxmlHTTP
Establecer xmlHTTP = Server.CreateObject ("MSXML2.XMLHTTP")
xmlHTTP.open "obtener", URL, falso
'La siguiente oración es muy crítica; de lo contrario, toda la información del archivo debe cargarse previamente antes de devolver la información del encabezado.
xmlHTTP.setRequestHeader "rango", "bytes=-1"
xmlHTTP.enviar()
getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Rango de contenido"),"/")(1)
Establecer xmlHTTP = Nada
Función final
Response.Write(getRemoteFileSize(" %>