Asp如果获取远程服务器上图片

<%
'Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite GetData("yun_qi_img/logo_csdn.gif")
Response.Flush
Function GetData(sUrl)
    Dim oHttp : Set oHttp = Server.CreateObject("Microsoft.XMLHTTP")
    oHttp.Open "Get", sUrl, False,"",""
    oHttp.setRequestHeader "Referer",sUrl
    oHttp.Send
    GetData = oHttp.ResponseBody
    Set oHttp = Nothing
End Function
%>