ASP实现强制图片下载函数
图片不进行处理，图片默认是用浏览器打开显示，如果希望图片变为下载可以使用以下代码
functiondownloadFile(strFile)
strFilename=server.MapPath(strFile)
Response.Buffer=True
Response.Clear
Sets=Server.CreateObject("ADODB.Stream")
s.Open
s.Type=1
onerrorresumenext
Setfso=Server.CreateObject("Scripting.FileSystemObject")
ifnotfso.FileExists(strFilename)then
Response.Write("<h1>Error:</h1>"&strFilename&"doesnotexist<p>")
Response.End
endif
Setf=fso.GetFile(strFilename)
intFilelength=f.size
s.LoadFromFile(strFilename)
iferrthen
Response.Write("<h1>Error:</h1>"&err.Description&"<p>")
Response.End
endif
Response.AddHeader"Content-Disposition","attachment;filename="&f.name
Response.AddHeader"Content-Length",intFilelength
Response.CharSet="UTF-8"
Response.ContentType="application/octet-stream"
Response.BinaryWrites.Read
Response.Flush
s.Close
Sets=Nothing
EndFunction
以上所述就是本文给大家分享的函数了，希望对大家学习asp能够有所帮助。
热门推荐
1 训练狗狗憋尿
2 狗狗追踪训练
3 狗狗训练要多少钱
5 深圳狗狗训练
6 训练狗狗唤回
7 狗狗叫怎么训练
8 狗狗训练班
10 狗狗社会化训练
11 狗狗叫回训练
12 广州狗狗训练学校
13 狗狗训练躺下
14 狗狗随行训练
15 训练狗狗巡回
16 狗狗要怎么训练
17 狗狗喂食训练
18 训练狗狗躺下