ASP快速获取远程文件大小

　2009-05-06 10:39:58　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姈椤愮厧鈽夊Ο閿嬬€婚梺褰掑亰閸撴稑鈻斿鑸碘拺闁告稑饪村▓鏃€绻涚仦鍌氬闁崇粯鎹囬獮瀣攽閹邦剚顔傛俊鐐€栧濠氬储瑜忛幉鎾晸閿燂拷

核心提示：<%'---'功能：获取远程文件大小'参数：url 远程文件地址'返回：远程文件大小(单位：字节)'---Function getRemoteFileSize(url) Dim xmlHTTP Set xmlhttp = Server.CreateObject(&quo

<%
'-----------------------------------------------------------
'功能：获取远程文件大小
'参数：url 远程文件地址
'返回：远程文件大小(单位：字节)
'-----------------------------------------------------------
Function getRemoteFileSize(url)
　 Dim xmlHTTP
　 Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP")
　 xmlHTTP.open "get", url, false
　 '下一句非常关键，否则要预加载全部的文件信息后才返回header头信息
　 xmlHTTP.setRequestHeader "range", "bytes=-1"
　 xmlHTTP.send()
　 getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Content-Range"),"/")(1)
　 Set xmlHTTP = Nothing
End Function

Response.Write(getRemoteFileSize("http://js.tongji.cn.yahoo.com/i.gif"))
%>