<%
'------------------------------------------------ - ---------
'기능: 원격 파일 크기 가져오기
'매개변수: url 원격 파일 주소
'반환: 원격 파일 크기(단위: 바이트)
'------------------------------------------------ - ---------
함수 getRemoteFileSize(url)
DimxmlHTTP
xmlHTTP = Server.CreateObject("MSXML2.XMLHTTP") 설정
xmlHTTP.open "get", URL, false
'다음 문장은 매우 중요합니다. 그렇지 않으면 헤더 정보를 반환하기 전에 모든 파일 정보를 미리 로드해야 합니다.
xmlHTTP.setRequestHeader "범위", "바이트=-1"
xmlHTTP.send()
getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Content-Range"),"/")(1)
xmlHTTP = 없음 설정
함수 종료
Response.Write(getRemoteFileSize(" %>