开发学院WEB开发ASP ASP快速获取远程文件大小 阅读

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"))
%>

Tags:ASP 快速 获取

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接