如何实现 ASP生成的HTML 页面后 下载这个页面

_在盛夏等待 2015-01-20 04:55:23
ASP 用FSO 生成了个 html 页面 然后想让他提供下载这个页面到本地 而不是服务器上 该怎么解决?
...全文
171 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
csdn_aspnet 2015-01-21
  • 打赏
  • 举报
回复
在asp实现jpg、txt、html文件直接下载的难题,同时希望有详细的asp代码。我们都清楚,如果在网页中下载jpg格式文件会通过IE自动打开的,无法实现点击下载jpg文件,txt、html、asp等文件也是一样IE会自动打开,如何在asp实现jpg、txt、html文件直接下载呢,这个代码又怎么写呢,下面学无忧列出了以下几种程序代码及使用方法: 一、程序代码 asp文件直接下载代码一: 如果你只需要实现下载jpg、txt、html文件,可以采用这种简单的代码,代码如下: <% url=request("filename") Response.AddHeader "content-type","application/x-msdownload" Response.AddHeader "Content-Disposition","attachment;filename=" & url Response.End() %> asp文件直接下载代码二: 如果你要实现不但可以下载jpg、txt、html格式文件,同时还希望能够直接下载asp、php等格式文件下载,那么可以用下面的代码来实现,代码如下: <% 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文件直接下载代码三: 以下程序代码同样可以下载任何文件格式,包含jpg、html、asp、php等,代码如下: <% function download(f,n) on error resume next Set S=CreateObject("Adodb.Stream") S.Mode=3 S.Type=1 S.Open S.LoadFromFile(f) if Err.Number>0 then Reaponse.status="404" else Response.ContentType="application/octet-stream" Response.AddHeader "Content-Disposition:","Attachment;filename="&n Range=Mid(Request.ServerVariables("HTTP_RANGE"),7) if Range="" then Response.BinaryWrite(S.Read) else S.Postion=Clng(Split(Range,"-")(0)) Response.BinaryWrite(S.Read) end if End if End function dim filename filename=request("filename") call download(server.MapPath(filename),filename) %> 二、代码使用方法: ①把下面的代码复制保存为【download.asp】 ②然后在下载链接中输入【http://www.xue51.com/download.asp?filename=demo.jpg】 ③文件名必须和download.asp在同一目录 以上就是有关asp实现jpg、txt、html文件直接下载代码的相关内容,希望对你有所帮助。
三楼の郎 2015-01-20
  • 打赏
  • 举报
回复
<% Response.ContentType = "application/octet-stream" Response.BinaryWrite(某文件的二进制值) &>

28,398

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧