|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧stream|下载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/07.zip"),"07.zip")
</p>由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。 |
|