28,406
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zwrtv 2005-06-16
- 打赏
- 举报
学习，学习
jackycxg 2005-06-16
- 打赏
- 举报
不懂。。关注。。顶。。。
wangnian11 2005-06-16
- 打赏
- 举报
<%
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")
%>
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")
%>
ddd880 2005-06-16
- 打赏
- 举报
<%
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")
%>
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")
%>
