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.net页面中如何获取Excel表的内容