ASP function Gets the remote file size that can be used for version update detection

ASP function Gets the remote file size, can be used for version update detection, etc.

<%
'-----------------------------------------------------------
' Function: Get remote file size
' Parameter: URL remote file address
' Return: Remote file size (in bytes)
'-----------------------------------------------------------
Function getremotefilesize (URL)
Dim XmlHTTP
Set XmlHTTP = Server.CreateObject ("MSXML2. XMLHTTP ")
Xmlhttp.open "Get", URL, False
The next sentence is critical, otherwise the header header information will not be returned until all the file information is preloaded
Xmlhttp.setrequestheader "Range", "Bytes=-1"
Xmlhttp.send ()
Getremotefilesize = Split (Xmlhttp.getresponseheader ("Content-range"), "/") (1)
Set XmlHTTP = Nothing
End Function

Response.Write (Getremotefilesize ("I.gif"))
%>