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

【腾讯云】2核2G4M云服务器新老同享99元/年,续费同价      
[公益] 地球是我家,绿化靠大家      
2024年 七夕节 056
2025年 高 考 357
2025年 元 旦 200
2025年 春 节 228
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
ASP 下载时重命名已上传文件的新下载文件名的实现代码
内容摘要: %functiondl(f,n)onerrorresumenextSetS=CreateObject('Adodb.Stream')S.Mode=3S.Type=1S.OpenS.LoadFromFile(f)ifErr.Number0thenResponse.Status='404'elseResponse.ContentType='application......
<%

functiondl(f,n)

onerrorresumenext

SetS=CreateObject("Adodb.Stream")

S.Mode=3

S.Type=1

S.Open

S.LoadFromFile(f)

ifErr.Number>0then

Response.Status="404"

else

Response.ContentType="application/octet-stream"

Response.AddHeader"Content-Disposition:","attachment;filename="&n

Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)

ifRange=""then

Response.BinaryWrite(S.Read)

else

S.position=Clng(Split(Range,"-")(0))

Response.BinaryWrite(S.Read)

Endif

endif

Response.End

endfunction

%>

函数使用示例:

代码如下:

calldl(Server.MapPath("download/20040302001.jpg"),"我的照片.jpg")

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:asp中创建多级目录的两段代码

 

下一篇:asp.net页面中如何获取Excel表的内容

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