<%@ language=vbscript codepage=65001%> <% 'Filename must be input if Request("Filename")="" then response.write "<h1>Error:</h1>Filename is empty!<p>" else call downloadFile(replace(replace(Request(
在IE进行文档链接时,如果遇到OLE支持的文档,IE会自动调用相应程序打开它,有时候这种功能并不是我们所需的,虽然我们可以提醒用户用鼠标右键-->"目标另存为...."命令来下载文档,但这样毕竟不太友好,本文描述了利用FSO及Stream方法实现IE直接下载文档.<%@ language=vbscript codepage=65001%><% 'Filename must be inputif Request("Filename")=&q
<%@ language=vbscript codepage=65001%> <% 'Filename must be input if Request("Filename")="" then response.write "<h1>Error:</h1>Filename is empty!<p>" else call downloadFile(replace(replace(Request(
例2 二进制方式下载远程图片.文件,并保存到本地: 代码如下 复制代码 Private Function GetPicture(X) '获取图片数据 Set xml = Server.CreateObject("Microsoft.xmlhttp") xml.Open "GET", X, False xml.Send GetPicture = xml.ResponseBody Set xml=Nothing End Func