ASP实现不打开直接下载txt,jpg...类文件
2006-05-17 10:08
651 查看
代码:
<%
Const ForReading=1
Const TristateTrue=-1
Const FILE_TRANSFER_SIZE=16384
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,downfilename
downfilename=request("filename")
path = Server.MapPath(downfilename)
mimeType="text/plain"
sucess = TransferFile(path, mimeType,downfilename)
Response.End
%>
把此代码保存为down.asp
使用方法
<a href=down.asp?filename=test.jpg>下载图片</a>
注意:test.jpg是放在与down.asp同一目录下
<%
Const ForReading=1
Const TristateTrue=-1
Const FILE_TRANSFER_SIZE=16384
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,downfilename
downfilename=request("filename")
path = Server.MapPath(downfilename)
mimeType="text/plain"
sucess = TransferFile(path, mimeType,downfilename)
Response.End
%>
把此代码保存为down.asp
使用方法
<a href=down.asp?filename=test.jpg>下载图片</a>
注意:test.jpg是放在与down.asp同一目录下
相关文章推荐
- a标签下载txt文件,不是直接打开的方式
- ASP.NET直接下载一个文件,而不是在IE中打开它
- web项目下载TXT文件防止浏览器直接打开
- ASP实现文件直接下载
- ASP实现文件直接下载的代码
- ASP实现点击链接直接下载文件
- ASP.NET直接下载一个文件,而不是在IE中打开它
- php 实现文件下载 避免直接打开
- Asp.net实现直接在浏览器预览Word、Excel、PDF、Txt文件(附源码)
- ASP实现文件直接下载
- asp.net直接下载一个文件和直接打开一个文件
- Asp.net实现直接在浏览器预览Word、Excel、PDF、Txt文件(附源码)
- ASP实现文件直接下载
- Asp.net实现直接在浏览器预览Word、Excel、PDF、Txt文件(附源码)
- asp.net中下载TEXT文件,而不是直接在IE中打开
- ASP.NET直接下载一个文件,而不是在IE中打开它
- ASP.NET直接下载一个文件,而不是在IE中打开它
- ASP.NET直接下载一个文件,而不是在IE中打开它
- nodejs实现文件下载功能,防止文本TXT类文件直接打开
- ASP实现文件直接下载