' 8*******************************************8 ' 需要在你的服务器上安装 MDAC 2.6 或MDAC2.7 ' 8*******************************************8 < % Dim strFilePath, strFileSize, strFileName Const adTypeBinary = 1 Response.Buffer = True strFileName = " logo.gif " FilePath = Server.MapPath( " manage/images/ " & strFileName) Response.Clear Set objStream = Server.CreateObject( " ADODB.Stream " )objStream.OpenobjStream.Type = adTypeBinaryobjStream.LoadFromFile FilePathstrFileSize = objStream.sizestrFileType = lcase ( Right (strFileName, 4 )) ' 文件扩展名 ' 通过文件扩展名判断 Content-Types Select Case strFileType 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 " Case Else ' Handle All Other Files ContentType = " application/octet-stream " End Select ' Response.AddHeader "Content-Disposition", "attachment; filename= "&strFileName&"" Response.AddHeader " Content-Length " , strFileSizeResponse.Charset = " UTF-8 " ' 客户端浏览器的字符集UTF-8 Response.ContentType = ContentTypeResponse.BinaryWrite objStream.ReadResponse.FlushobjStream.Close Set objStream = Nothing % > 转载于:https://www.cnblogs.com/zzh/archive/2006/01/19/320470.html