发表日期:2010/3/26 文章编辑:兰州网站建设 浏览次数: 点击:929
<%
' 下载文件
function downloadfile(fullpath)
downloadfile = false
dim strfilename, s, fso, f, intfilelength
set fso = server.createobject("scripting.filesystemobject")
if not fso.fileexists(fullpath) then
exit function
end if
set f = fso.getfile(fullpath)
'获取文件大小
intfilelength = f.size
set s = server.createobject("adodb.stream")
s.open
s.type = 1
s.loadfromfile(fullpath)
response.buffer = true
response.clear
'response.addheader "Content-Encoding","GB2312" ' 乱码的解决方案
'response.addheader "content-type","application/x-msdownload"
response.addheader "content-disposition","attachment;filename=" & f.name
response.addheader "content-length" ,intfilelength
response.contenttype = "application/octet-stream"
while not s.eos
response.binarywrite s.read(1024 * 64)
response.flush
wend
s.close
set s = nothing
downloadfile = true
end function
%>
声明:网站部分信息来源网络若有侵权或违禁请告知我们删除;网站建设制作,网站优化:版权所有:亚娱体育平台入口 业务咨询:13519319495 在线Q Q:
360网站安全检测平台 陇ICP备15000675号-2 甘公网安备 62010302001228号
相关搜索:兰州网站建设、甘肃建设网站、网站建设明细报价表、企业网站建设,网站设计公司网站建设哪家公司好、网站建设学习网、兰州网站制作、兰州网站建设公司、兰州网站设计公司、兰州建设网、兰州网站制作培训、兰州专业网站制作、网站制作高端、网站制作、网站制作公司,网站制作收费标准,网站制作的基本步骤,网站制作公司,网站价格,网站制作多少钱,建个网站需要多少钱,如何制作自己的网站、网站建设流程、网站建设公司电话13519319495