ASP输出WOrd、Excel文件

来源：互联网发布：卷皮源码华丽手机版编辑：程序博客网时间：2024/06/06 13:00

<%

    Dim Fso,FileExt,strFilePath,Mime
    strFilePath = "f:/sifang/qyoa/国贸手抄.doc"
    Set Fso=Server.CreateObject("Scripting.FileSystemObject")
    FileExt = Fso.GetExtensionName(strFilePath)
       Set fso=Nothing

    Select Case FileExt
        Case "doc"
        Mime="Application/msword"
        Case "xls"
        Mime="Application/msexcel"
    End Select

Call OutPut(strFilePath,Mime)

'######################################################
Function OutPut(strFilePath,Mime)
Response.ContentType = Mime
Const adTypeBinary = 1
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
End Function
'######################################################
%>

附MIME类型表
序号内容类型  文件扩展名描述
1  application/msword  doc  Microsoft Word
2  application/octet-stream bin  dms lha lzh exe class  可执行程序
3  application/pdf  pdf  Adobe Acrobat
4  application/postscript  ai eps ps  PostScript
5  appication/powerpoint  ppt  Microsoft Powerpoint
6  appication/rtf  rtf  rtf格式
7  appication/x-compress  z  unix压缩文件
8  application/x-gzip  gz  gzip
9  application/x-gtar  gtar  tar文档(gnu格式)
10  application/x-shockwave-flash  swf  MacroMedia Flash
11  application/x-tar  tar  tar(4.3BSD)
12  application/zip  zip  winzip
13  audio/basic  au snd  sun/next 声音文件
14  audio/mpeg  mpeg mp2  Mpeg声音文件
15  audio/x-aiff  mid midi rmf  Midi格式
16  audio/x-pn-realaudio  ram ra  Real Audio声音
17  audio/x-pn-realaudio-plugin  rpm  Real Audio插件
18  audio/x-wav  wav  Microsoft Windows声音
19  image/cgm  cgm  计算机图形元文件
20  image/gif  gif  COMPUSERVE GIF图像
21  image/jpeg  jpeg jpg jpe  JPEG图像
22  image/png  png  PNG图像
23  image/tiff  tiff tif  TIFF图像
24  image/x-pict  pic  MACINTOSH PICT图像
25  text/css  css  CSS风格纸
26  text/html  html htm  HTML文档
27  text/javascript  js ls mocha  JAVASCRIPT脚本
28  text/plain  txt  ASCII文本
29  text/richtext  rtx  MICROSOFT RICH TEXT
30  text/tab-separated-values  tsv  TAB-SEPARATED VALUE
31  text/vbscript  vbx  VISUAL BASIC脚本
32  text/sgml  sgml sgm  SGML文本
33  video/mpeg  mpeg mpg mpe  MPEG影像
34  video/quicktime  qt mov  QUICKTIME视频
35  video/x-msvideo  avi  WINDOWS(AVI)视频
36  x-video/x-vrml  wrl vrml  Vrml