TXT.WORD文档下载在本地,而不是在浏览器中打开

王朝html/css/js·作者佚名  2006-12-17
窄屏简体版  字體: |||超大  

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

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航