怎么实现网页中的文件下载

我把一个文件上传到自己空间的一个文件夹下，然后想实现直接点一下这个文件就能通过浏览器下载跳出下载文件的提示。

像这样：

给你一个下载的函数，你调用这个函数就可以了。比如你要下载的那个txt文件，只要这样调用：

<%call downloadfile("wenjian\ha.txt")%>

如果你想下载asp的文件，你修改一下函数里面允许下载的文件即可

<%

Function downloadFile(strFile)
Const ForReading = 1
Const TristateTrue = -1
Const FILE_TRANSFER_SIZE = 16384
Dim objFileSystem,objFile,objStream,char,sent,path,FileName,send,s_DownFilePath,s_FileExt,TransferFile
send = 0
path = Server.MapPath(strFile)
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
If Not objFileSystem.fileexists(path) Then
Response.Write ("<h1>错误:</h1>" & strFile & "没有发现!<p>")
Response.End
End If
Set objFile = objFileSystem.GetFile(path)
s_DownFilePath = objFile.Name
s_FileExt = Mid(s_DownFilePath, InStrRev(s_DownFilePath, ".") + 1)
If UCase(s_FileExt) <> "LMB" And UCase(s_FileExt) <> "TXT" And UCase(s_FileExt) <> "BAK" And UCase(s_FileExt)<>"MDB" And UCase(s_FileExt)<>"CSV" And UCase(s_FileExt)<>"XLS" Then
response.Write("只能下载扩展名为lmb或txt或BAK或MDB或CSV或xls的文件")
response.End()
end if
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
Response.AddHeader "content-type", "application/server"
Response.AddHeader "Content-Disposition", "attachment;filename=" & s_DownFilePath
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 Exit Do
End If
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function
%>

使用“迅雷下载全部链接”试试，然后勾选要下载的文件。

打包吧~~~然后加一个 target="new"

用HTML语言很难实现txt文件下载 别的文件比如exe rar这些只要像你这样做就能下载了

TXT ,html, 图片这些网页元素要用其他方法实现下载了

这也是一种下载的东西。- - 点保存后就可以选择存储位置。