<%
'------------------------------------------------ - ---------
'Fungsi: Mendapatkan ukuran file jarak jauh
'Parameter: alamat file jarak jauh url
'Kembali: ukuran file jarak jauh (satuan: byte)
'------------------------------------------------ - ---------
Fungsi getRemoteFileSize(url)
DimxmlHTTP
Setel xmlHTTP = Server.CreateObject("MSXML2.XMLHTTP")
xmlHTTP.buka "dapatkan", url, salah
'Kalimat berikutnya sangat penting, jika tidak, semua informasi file harus dimuat terlebih dahulu sebelum mengembalikan informasi header.
xmlHTTP.setRequestHeader "rentang", "byte=-1"
xmlHTTP.kirim()
getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Rentang Konten"),"/")(1)
Setel xmlHTTP = Tidak Ada
Fungsi Akhir.Tulis
(getRemoteFileSize(" %>