您正在使用IPV4(3.215.177.171)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】云产品限时秒杀,爆款1核2G云服务      
虚位以待
2021年 国庆节 7
2021年 重阳节 20
2022年 元 旦 99
2022年 春 节 130
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> 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生成指定位数的随机字符串函数
    发布日期:2021/9/13
    手机扫二维码直达本页
    发布时间:17:30:01
    点击:149
    录入:齐天大圣
    相关文章
    Baidu
    YiJiaCMS V6.0.1 Build 21.9.2(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021