<%
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
ASP输出WOrd、Excel文件
最新推荐文章于 2019-03-17 17:25:00 发布