<%
'------------------------------------------------ - ---------
'Função: Obtenha o tamanho do arquivo remoto
'Parâmetro: url endereço do arquivo remoto
'Retorno: tamanho do arquivo remoto (unidade: bytes)
'------------------------------------------------ - ---------
Função getRemoteFileSize(url)
DimxmlHTTP
Definir xmlHTTP = Server.CreateObject("MSXML2.XMLHTTP")
xmlHTTP.open "obter", url, falso
'A próxima frase é muito crítica, caso contrário todas as informações do arquivo devem ser pré-carregadas antes de retornar as informações do cabeçalho.
xmlHTTP.setRequestHeader "intervalo", "bytes=-1"
xmlHTTP.send()
getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Content-Range"),"/")(1)
Definir xmlHTTP = Nada
Função final
Response.Write(getRemoteFileSize(" %>