最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 文件下载代码与获取文件名称
时间:2022-07-02 23:11:26 编辑:袖梨 来源:一聚教程网
function download(f,n)
'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
Reaponse.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.Postion=Clng(Split(Range,"-")(0))
Response.BinaryWrite(S.Read)
end if
end if
Response.end
end Function
'*******************************************
'函数作用:取得文件后缀名
'*******************************************
Function GetLocalPathFileExt(ByVal D)
If Len(D) = 0 then Exit Function
if instr(D,".")<0 then Exit Function
GetLocalPathFileExt=Right(D,Len(D)-InStrRev(D,"."))
End Function
相关文章
- 死亡搁浅2第一场BOSS战怎么打 打法攻略详解 07-10
- 死亡搁浅2处置匪帮的焦油药怎么做 匪帮焦油药完成方法 07-10
- 激励懒人的话励志精选34句 07-10
- 大侠立志传爱猫失踪任务怎么做-爱猫失踪任务完成方法 07-10
- ps如何把人物鼻子变高挺? Photoshop人像处理把鼻梁变高的技巧 07-10
- Html5获取用户当前位置的几种方式 07-10