<%
Dim docContext
Set objWord = CreateObject("Word.Application")'创建word对象
'objWord.Visible = True
Set objDoc = objWord.Documents.Open("c:/文档.doc")'打开word
docContext=objDoc.content.text
response.write docContext
objDoc.close
Set objDoc=nothing
objWord.Quit
Set objDoc=nothing
%>