您正在使用 IPV4 [44.197.114.92] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]保护绿色环境,构建和谐社会       悟空收录网      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 007
2024年 劳动节 034
2025年 元 旦 279
2025年 春 节 307
综合数码金融娱乐服务报刊政府机构 推荐 排名 今日 申请 友情  
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
ASP实现强制图片下载函数
内容摘要: 图片不进行处理,图片默认是用浏览器打开显示,如果希望图片变为下载可以使用以下代码functiondownloadFile(strFile)strFilename=server.MapPath(strFile)Response.Buffer=TrueResponse.ClearSets=Server.CreateObject('ADODB.Stream')s.......
图片不进行处理,图片默认是用浏览器打开显示,如果希望图片变为下载可以使用以下代码

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读取XML文件的具体方法与示例

 

下一篇:在ASP中限制同一表单被多次提交

发布日期:2023/5/5
手机扫二维码直达本页
发布时间:14:54:17
点  击:11
录  入:伊伊
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....