<%
'------------------------------------------------ - ---------
'الوظيفة: الحصول على حجم الملف البعيد
'المعلمة: عنوان URL للملف البعيد
'الإرجاع: حجم الملف البعيد (الوحدة: بايت)
'------------------------------------------------ - ---------
الدالة getRemoteFileSize(url)
ديمكسملHTTP
تعيين xmlHTTP = Server.CreateObject("MSXML2.XMLHTTP")
xmlHTTP.open "get"، url، false
'الجملة التالية بالغة الأهمية، وإلا يجب تحميل جميع معلومات الملف مسبقًا قبل إرجاع معلومات الرأس.
xmlHTTP.setRequestHeader "النطاق"، "البايت = -1"
xmlHTTP.send()
getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Content-Range"),"/")(1)
اضبط xmlHTTP = لا شيء
وظيفة النهاية
.Write(getRemoteFileSize(" %>