破解天下论坛 » 网站编程 » 用asp直接下载文件的办法，不用再在IE中打开了

思考者 发表于 2008-8-20 13:34

用asp直接下载文件的办法，不用再在IE中打开了

[code]
<%
strFilename = Trim(Request("n"))
Function DownloadFile(strFile,filename)
strFilename = server.MapPath(strFile)
'清空Buffer
Response.Buffer = True
Response.Clear
'创建Stream对象
Set s = Server.CreateObject("ADODB.Stream")
s.Open
'设置流对象为二进制类型
s.Type = 1
on error resume next
'检测文件是否存在
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(strFilename) Then
downloadFile="NoFile"
Exit Function
End If
'计算文件长度
Set f = fso.GetFile(strFilename)
intFilelength = f.size
If filename="" Then
filename=f.name
End If
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if
'向用户浏览器发送Header
Response.AddHeader "Content-Disposition", "attachment; filename=" & filename
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
'输出文件
'对于小于4096KB的文件可以用语句
'Response.BinaryWrite s.Read
'Response.Flush
'完成，但对于大于4096KB的文件要分段输出，如下循环操作。
Do While Not s.EOS
  Contents = s.Read (4096) '每次读取4096KB
Response.BinaryWrite Contents
Response.Flush
Loop

'清理
s.Close
Set s = Nothing
End Function
call downloadFile(strFilename,strFilename)
%>




[/code]

zLcxnQEF 发表于 2008-8-29 16:59

【加油！金顺】在奥斯卡上一连拿了11个奖项的好帖

xcgseoga 发表于 2008-9-6 11:48

Chinese massage

So if you are in [url=http://www.shanghai-escort.com]shanghai escort[/url] feeling lonely or depressed, I would suggest you go and try this with some of your Chinese friends. I have always imaged old, Before you read any further I would like to clarify something to you, and that is the fact that escort girls are not all prostitutes. In high scale clubs escort girls merely engage in conversation with you and sing with you, maybe they will let you plant a kiss on their cheeks but sex is out of the question.

Their job is to make you feel [url=http://shanghaiescort520.blogspot.com]shanghai escort[/url] comfortable by providing companionship, not by satisfying your lust. wealthy, and perverted businessmen going about this sort of thing but I am 25 and I had a great time nonetheless, without the sex. The cost for this is a little steep, it typically costs at least $100 USD if you include the drinks and snacks for a night.

[url=http://shanghaiescort.blog.hexun.com]shanghai escort[/url]

平湖秋月 发表于 2008-9-15 00:59

看看效果如何

willweiwei 发表于 2008-9-21 12:59

hehe
谢谢了啊
很好的一个啊

落叶风吹 发表于 2008-9-22 22:45

好东东，谢谢啊，先去试一下。:victory:

chenrongdianlu 发表于 2008-12-4 02:16

如何利用网络为企业营得效益

[b][size=6]
本公司成立于2000年，是由上海电炉厂转制职工组建的一家股份有限公司。本公司拥有一批技术领先、经验丰富的高级工程师，具有雄厚的研究开发、设计真空炉的能力；并拥有一支经验丰富，几十年来一直从事真空电炉（真空炉）制造和安装调试的专业队伍。是一家专业生产真空炉的公司。
[url=http://www.chenrong.sh.cn]电炉[/url]
[url=http://www.chenrong.sh.cn/djg.html] 多晶硅[/url]
[/size][/b]

wcghx 发表于 2009-2-18 23:02

我日
还有广告，坛主干了他。TNND。

查看完整版本: 用asp直接下载文件的办法，不用再在IE中打开了