一般直接连接只在ie页面显示内容,有下面的可以实现下载任何文件包括ie可直接显示的文件如:图片和flash
downloadFile(wordurl)
function downloadFile(strFile)
strFilename = server.MapPath(strFile)
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
%><script>alert("无法下载,在服务器找不到该文件!")</script><%
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
%><script>alert("<%=err.Description%>")</script><%
Response.End
end if