用ASP实现下载*.ASP文件_asp download-优快云博客

本文链接：https://blog.youkuaiyun.com/windren06/article/details/6550595

本文介绍了一个使用VBScript编写的ASP脚本，该脚本用于实现文件的下载功能。通过设置HTTP响应头来指定文件的MIME类型、内容长度及提示用户保存的方式等，实现了将服务器上的文件发送给客户端进行下载。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

以下另存为：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
%>