ASP quickly get remote HTTP file size

The following is a reference fragment: <% Dim url,asize URL = "Http://www.alixixi.com/download/xml.rar" Asize = Getremotefilesize (URL) Response.Write Url & "’--------------------------------------------------- ' Function: ASP get remote file size ' Parameter: Url destination Address ' Return: Return array 0: File byte size 1: Formatted file size ’--------------------------------------------------- Function getremotefilesize (URL) Dim obj,a (1), R Set obj = CreateObject ("MSXML2.") XMLHTTP ") Obj. Open ' get ', url, False Obj.setrequestheader "Range", "Bytes=-1" Obj.send r = Split (obj. getResponseHeader ("Content-range") & "/0", "/") Set OBJ = Nothing A (0) = CLng (R (1)) A (1) = a (0)/1024 If A (1) > 1024 Then A (1) = Round (A (1)/1024,2) & "MB" Else A (1) = Round (A (1), 2) & "KB" End If Getremotefilesize = A End Function %>