TXT.WORD文档下载在本地,而不是在浏览器中打开
TXT.WORD文档下载在本地,而不是在浏览器中打开 <%
Response.Buffer=true
取得要下载的文件，如果不为空。就下载
dim url,trueurl
url='下载文件路径和下载文件名'
fname=Request('filename')
if fname<>'' then
trueurlurl=server.MapPath('/') &url
end if
set objFso=server.CreateObject('scripting.filesystemobject')
set fn=objFso.GetFile(trueurl)
flsize=fn.size
flname=fn.name
set fn=nothing
set objFso=nothing
set objStream=server.CreateObject('adodb.stream')
objStream.Open
objStream.Type=1
objStream.LoadFromFile url
select case lcase(right(flname,4))
case '.asf'
ContentType='video/x-ms-asf'
case '.avi'
ContentType='video/avi'
case '.doc'
ContentType='application/msword'
case '.zip'
ContentType='application/zip'
case '.xls'
ContentType='application/vnd.ms-excel'
case '.gif'
ContentType='image/gif'
case '.jpg','jpeg'
ContentType='image/jpeg'
case '.wav'
ContentType='audio/wav'
case '.mp3'
ContentType='audio/mpeg3'
case '.mpg', 'mpeg'
ContentType='video/mpeg'
case '.rtf'
ContentType='application/rtf'
case '.htm','html'
ContentType='text/html'
case '.txt'
ContentType='text/plain'
Case '.ASP', '.ASA', 'ASPX', 'ASAX', '.MDB'
Response.Write '受保护文件,不能下载.'
Response.End
case else
ContentType='appliation/octet-stream'
end select
Response.AddHeader 'Content-Disposition', 'attachment; filename='&flname
Response.AddHeader 'Content-Length', flsize
Response.CharSet='UTF-8'
Response.ContentType=ContentType
Response.BinaryWrite objStream.Read
Response.Flush
Response.Clear()
objStream.Close
set objStream=nothing
%>
