用ASP实现下载*.ASP文件
来源:互联网 发布:淘宝图片上传 编辑:程序博客网 时间:2024/05/22 13:54
以下另存为:DOWNLOAD.HTM
<a href=download.asp?filename=download.asp>guid.asp</a>
以下另存为:DOWNLOAD.ASP
<%@language=VBscript%>
<%
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
%>
- 用ASP实现下载*.ASP文件
- 用ASP实现下载*.ASP文件
- 用ASP实现断点续传下载远程文件
- ASP实现文件直接下载
- ASP实现文件直接下载
- ASP实现文件直接下载
- ASP实现文件直接下载
- ASP.NET实现文件下载
- ASP实现文件直接下载
- ASP实现文件直接下载
- ASP.NET实现文件下载
- ASP.NET实现文件下载
- asp.net实现文件下载
- ASP.NET实现文件下载
- asp.net 实现文件下载
- ASP.net实现文件下载
- ASP.NET实现文件下载
- 用asp.net 下载文件
- 主关键字约束与唯一性约束之间的区别
- C++引用
- 遭遇 qfgsw.sys / Trojan-Downloader.Win32.Agent.bbb / Trojan.Win32.Agent.bvl等
- asp.net实现DropDownList、ListBox无刷新三级联动的两种方法
- URL编码表
- 用ASP实现下载*.ASP文件
- 一些重要的属性
- 关于入侵检测系统常用的几种检测方法
- JIURL玩玩Win2k内存篇 分页机制 (一)
- URL编码
- Frame跟链接的对应关系
- table中的属性说明
- 天气数据调用代码,总结了一下
- 带标题的表格