asp在IE浏览器中下载服务端上的各类文件的实现方法

　　即直接提示用户下载而不是由浏览器打开某些文件。注意，下面的代码拷贝到ASP文件中后，不要再添加一些非ASP代码在页面中：如HTML和javascript客户端的代码。
复制代码 代码如下:
<%
--------------------------------------------
Response.Buffer=True
DimstrFilePath,strFileSize,strFileName
ConstadTypeBinary=1
strFilePath=文件路径
strFileSize=...文件大小，可选
strFileName=文件名
Response.Clear
8*******************************************8
需要在你的服务器上安装MDAC2.6或MDAC2.7
8*******************************************8
SetobjStream=Server.CreateObject(ADODB.Stream)
objStream.Open
objStream.Type=adTypeBinary
objStream.LoadFromFilestrFilePath
strFileType=lcase(Right(strFileName,4))文件扩展名站.长.站
通过文件扩展名判断Content-Types
SelectCasestrFileType
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.asp
ContentType=text/asp
CaseElse
HandleAllOtherFiles
ContentType=application/octet-stream
EndSelect
Response.AddHeaderContent-Disposition,attachment;filename=strFileName
Response.AddHeaderContent-Length,strFileSize
Response.Charset=UTF-8客户端浏览器的字符集UTF-8
Response.BinaryWriteobjStream.Read
Response.Flush
objStream.Close
SetobjStream=Nothing
%>