即直接提示用户下载而不是由浏览器打开某些文件。注意，下面的代码拷贝到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.AddHeader"Content-Disposition","attachment;filename=strFileName

Response.AddHeader"Content-Length",strFileSize

Response.Charset="UTF-8"'客户端浏览器的字符集UTF-8

Response.ContentType=ContentType

Response.BinaryWriteobjStream.Read

Response.Flush

objStream.Close

SetobjStream=Nothing

%>