強制ie下載代碼：
示例：
下載source/aaa.zip文件
<a href="download.asp?n=aaa.zip">

download.asp:
<%
Response.Buffer = true
Response.Clear

??dim url
??Dim fso,fl,flsize
??dim Dname
??Dim objStream,ContentType,flName,isre,url1
’*********************************************調用時傳入的下載文件名
??Dname=trim(request("n"))????
‘******************************************************************
??If Dname<>"" Then
'******************************下載文件存放的服務端目錄
????url=server.MapPath("../source")&"\"&Dname
‘***************************************************
??End If

??Set fso=Server.CreateObject("Scripting.FileSystemObject")
????Set fl=fso.getfile(url)
????flsize=fl.size
????flName=fl.name
????Set fl=Nothing
????Set fso=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 Else
??????????ContentType = "application/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

%>

總結

以上是生活随笔為你收集整理的强制IE下载的代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。