asp 动态 *** 作 word 表格

<%
responseContentType="application/msword"

Const adTypeBinary = 1
Dim strFilePath

strFilePath = "E:\website\test\docdoc"

Set objStream = ServerCreateObject("ADODBStream")
objStreamOpen
objStreamType = adTypeBinary
objStreamLoadFromFile strFilePath

ResponseBinaryWrite objStreamRead

objStreamClose
Set objStream = Nothing
%>

那不好意思 那我就不知道了 ！！！

给我分吧!!就我一个回答的!!!^^^^^^^^^