Response.buffer = TRUE
Response.ContentType = "APPLICATION/OCTET-STREAM"
Response.AddHeader "Content-Disposition","attachment;filename=xxx.htm"可以参考
http://www.csdn.net/Develop/Read_Article.asp?Id=13004
Response.ContentType = "APPLICATION/OCTET-STREAM"
Response.AddHeader "Content-Disposition","attachment;filename=xxx.htm"可以参考
http://www.csdn.net/Develop/Read_Article.asp?Id=13004
解决方案 »
- 请教一个关于jquery的问题,在线等
- javascript脚本语言企业开发工具是什么?最好发上截图
- 用正则把当前网址的 协议和主机名和端口 替换掉,这样写为啥不对??
- 为什么我按下“业务部门”复选框时,系统报错了,说不支持此方法或属性?。我又该如何控制disabled?
- 请hbhbhbhbhb1021(天外水火(我要多努力))进来帮忙(顶者有分)
- 难题求助
- Javascript可以直接执行网页上链接的exe程序而不弹出“打开”“保存”“取消”的对话框吗?
- 怎样才能实现 关闭浏览器时调用 script, 但在刷洗时不调用.
- 关于框架的简单问题,大家帮帮忙
- 下面的代码是什么意思呀?
- 请教各位高手,如何将不规则表格的转存成word和excel
- 如何能做到这样的功能???
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名."
Response.End
End if
' 下面是不希望下载的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保护文件,不能下载."
Response.End
End Select
' 下载这个文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>
使用:
如:
<A HREF="Download.asp?FileName=xxx.htm">点击</A>