繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 实现文件下载而不是由ie打开的代码
- ASP
- 用密码保护页面 (II)
- 用密码保护页面 (III)
- 简单的文件目录浏览源程序
- ASP中的函数应用方法及应用举例(一)
- ASP中的函数应用方法及应用举例(二)
- 完整的访问统计系统（一：数据库篇）
- 完整的访问统计程序（二 程序篇）
- 完整的访问统计程序(三 应用篇)
- 一个提供用户输入时期的绝好程序之(一)
- 一个提供用户输入时期的绝好程序之(二)
- 构建你的网站新闻自动发布系统之五
- 构建你的网站新闻自动发布系统之六
- 完整的访问统计程序（二 程序篇）
- 完整的访问统计程序(三 应用篇)
- ASP环境下邮件列表功能的实现 （一）
- ASP环境下邮件列表功能的实现 （二）
- ASP环境下邮件列表功能的实现 （三）
- ASP环境下邮件列表功能的实现 （四）
- ASP进阶之文章在线管理更新(1)
- ASP进阶之文章在线管理更新(2)
ASP 中的 实现文件下载而不是由ie打开的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 120 ::
收藏到网摘: n/a
Const ForReading=1
Const TristateTrue=-1 ''Unicode
Const FILE_TRANSFER_SIZE=16384 ''16k
''Use the following line for IIS4/PWS - this is the default for IIS5
Response.Buffer = True
Function TransferFile(path, mimeType, filename)
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
send=0
TransferFile = True
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(Path)
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
Response.AddHeader "content-type", mimeType
response.AddHeader "Content-Disposition","attachment;filename="&filename
Response.AddHeader "content-length", objFile.Size
Do While Not objStream.AtEndOfStream
char = objStream.Read(1)
Response.BinaryWrite(char)
sent = sent + 1
If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
Response.Flush
If Not Response.IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function
Dim path, mimeType, sucess
''Server.MapPath(path)
path = "C:\Inetpub\wwwroot\help.gif"
mimeType = "application/x-msdownload"
sucess = TransferFile(path, mimeType,"help.gif")
Response.End
%>
评论 (0) All
