ASP实现文件直接下载

王朝asp·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

在IE进行文档链接时,如果遇到OLE支持的文档,IE会自动调用相应程序打开它,有时候这种功能并不是我们所需的,虽然我们可以提醒用户用鼠标右键-->"目标另存为...."命令来下载文档,但这样毕竟不太友好,本文描述了利用FSO及Stream方法实现IE直接下载文档。

主程序代码如下:

--------------------------------------------------------------------------------

'定义所有需要使用的变量

Dim strFilename,S,Fso,F,intFilelength

strFilename = Server.MapPath(Trim(Request("File")))

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

Response.Write("<h1>Error:</h1>"&strFilename&"你要下载的文件不存在!<p>")

Response.End

End If

Set F = Fso.GetFile(strFilename)

intFilelength = F.Size '获取文件大小

S.LoadFromFile(strFilename)

If Err Then

Response.Write("<h1>Error: </h1>Unknown Error!<p>")

Response.End

End If

Response.AddHeader "Content-Disposition","attachment;filename="&F.name

Response.AddHeader "Content-Length",intFilelength

Response.CharSet = "GB2312"

Response.ContentType = "application/octet-stream"

Response.BinaryWrite S.Read

Response.Flush

S.Close

Set S = Nothing

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航