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

%>