-
'------------------------------------------------ - ---------
'ฟังก์ชั่น: รับขนาดไฟล์ระยะไกล
'พารามิเตอร์: ที่อยู่ไฟล์ระยะไกล url
'Return: ขนาดไฟล์ระยะไกล (หน่วย: ไบต์)
'------------------------------------------------ - ---------
ฟังก์ชั่น getRemoteFileSize(url)
DimxmlHTTP
ตั้งค่า xmlHTTP = Server.CreateObject("MSXML2.XMLHTTP")
xmlHTTP.open "get", url, false
'ประโยคถัดไปมีความสำคัญมาก ไม่เช่นนั้นข้อมูลไฟล์ทั้งหมดจะต้องถูกโหลดล่วงหน้าก่อนที่จะส่งคืนข้อมูลส่วนหัว
xmlHTTP.setRequestHeader "ช่วง", "ไบต์=-1"
xmlHTTP.ส่ง()
getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("ช่วงเนื้อหา"),"/")(1)
ตั้งค่า xmlHTTP = ไม่มีเลย
สิ้นสุดฟังก์ชัน
การตอบสนอง เขียน (getRemoteFileSize (" %>