ASP输出WOrd、Excel文件!

<%

    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