• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营

    • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    ASP 下载时重命名已上传文件的新下载文件名的实现代码
    问题：我想上传文件时后改名，下载时又将名改回来。
    如：我上传一张“我的照片.jpg”上传后改为系统数名“20040302001.jpg”下载时又改回“我的照片.jpg”
    其中的保存新旧文件名都用数据库（已做）
    就是下载时的改名做不出来。

    代码：
    复制代码 代码如下:

    %
    function dl(f,n)
    on error resume next
    Set S=CreateObject( "Adodb.Stream ")
    S.Mode=3
    S.Type=1
    S.Open
    S.LoadFromFile(f)
    if Err.Number> 0 then
    Response.Status= "404 "
    else
    Response.ContentType= "application/octet-stream "
    Response.AddHeader "Content-Disposition: ", "attachment; filename= " n
    Range=Mid(Request.ServerVariables( "HTTP_RANGE "),7)
    if Range= " " then
    Response.BinaryWrite(S.Read)
    else
    S.position=Clng(Split(Range, "- ")(0))
    Response.BinaryWrite(S.Read)
    End if
    end if
    Response.End
    end function
    %>

    函数使用示例：
    复制代码 代码如下:

    call dl(Server.MapPath( "download/20040302001.jpg "), "我的照片.jpg ")
    上一篇：ASP FSO显示特殊文件夹的实现代码(畸形目录名、UNC路径)
    下一篇：捕捉并保存ASP运行错误的函数代码
  • 相关文章
    • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    ASP 下载时重命名已上传文件的新下载文件名的实现代码 ASP,下载,时,重命名,已,上传,