您的位置:首页 > 编程语言 > ASP

ASP实现文件直接下载

2007-08-22 13:26 316 查看
在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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: