【www.gdgbn.com--php常用代码】
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