防盗链.asp

较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

<%
function dl(f,n)
on error resume next

set s=CreateObject("Adodb.Stream") 
S.Mode=3 
S.Type=1 
S.Open 
s.LoadFromFile(server.mappath(f))
response.contentType="application/x-gzip"
response.addheader "Content-Disposition:","attachment; filename=" & n
response.binarywrite(s.Read(s.size))
end function

call dl("mp3.rar","测试文件.rar")
%>