<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Path="文件地址"
t = GetBody(Path) '用GetBody函数读取
Response.BinaryWrite t '用二进制方法写到浏览器上
Function GetBody(url) '本函数为远程获取内容的函数
Set Retrieval = CreateObject("Microsoft.XMLHTTP") '建立XMLHTTP对象
With Retrieval
.Open "Get", url, False, "", "" '用Get,异步的方法发送
.Send
GetBody = .ResponseBody '函数返回获取的内容
End With
on error resume next
if Retrieval.status<>200 then
Set Retrieval = Nothing
exit function
end if
End Function
%>