ASP读取Word内容并显示于网页
最近看到在QQ邮箱中有直接把word文档显示成html的功能,虽然只能够读取文本的内容,也想弄来试一下,所以就有了本文:asp如何读取word文档内容并显示于网页。
下面是原载于強力鎯頭 の VB 部落的。
http://blog.blueshop.com.tw/hammerchou/archive/2006/11/03/44307.aspx
一般而言 ， 在 ASP 或 ASP.Net 中透过 CreateObject 建构函数建立 Word 对象
会有安全性及使用权限上的问题 ， 因此若 虚拟目录 不使用 整合 Windows 验证
将无法存取 Word doc 檔 ，更不用说虚拟目录以外的目录 ， 好比说 C:\ 根目录下的 Word 文件。
底下介绍个方式，给大家参考看看:
使用 VB6
建立项目，选择 ActiveX DLL
将项目的 Name属性设定成 Ax，Class 的 Name 属性设为 Word
编辑程序代码如下 :
Public Function GetDocContent(strFile As String) As String
Dim wdObj As Object ' 声明
Set wdObj = CreateObject("Word.Application") ' 个体化 Word 物件
With wdObj
.Documents.Open strFile ' 开启 Word 檔
GetDocContent = .ActiveDocument.Content ' 读出 Word 内容啰
' 底下关掉 Word 檔 , 释放资源
On Error Resume Next
.ActiveDocument.Close
.ActiveWindow.Close
.Quit
End With
Set wdObj = Nothing
End Function
编译 制成 DLL
Compiler 完成后请使用 RegSvr32.exe 将该 Dll 组件 "反注册" , 如
RegSvr32 /u "路径+文件名.dll"
RegSvr32.exe 工具使用 可参考:
<< 关于 ActiveX (OLE) 组件登录注册 >>
http://blog.blueshop.com.tw/hammerchou/archive/2006/04/06/20787.aspx
执行 DCOMCNFG.EXE -> [确定]
COM+应用程序 -> 鼠标右键 -> 新增 -> 应用程序
[下一步] -> 建立空的应用程序
输入应用程序名称 -> 伺服应用程序 -> [下一步]
使用下列使用者 -> 使用者 -> 密码 / 确认密码 -> [下一步] -> [完成]
输入 Administrator 及密码
AxWord -> 组件 -> 鼠标右键 -> 新增 -> 组件 -> [下一步]
[安装新组件]
选取 先前用 VB6 编译制成的 DLL
[下一步] -> [完成]
ASP Code 如下:
<%
' 声明
Dim wd
' 建立先前写的 DLL 对象 , 个体化
Set wd = Server.CreateObject("AX.Word")
' 执行 Dll 中的 GetDocContent 方法读 Word 内容
Response.Write wd.GetDocContent("C:\1.doc")
%>
================================================================
以上方式是使用 VB6 ，将 Word 对象 作动 的部份 写成 ActiveX Dll ，
在放到组件服务里的 COM+ 中，并指定 Administrator 去执行，以避开安全性上的权限问题；
但倘若手边没有 VB6开发工具呢 ？ 底下介绍 WSC 的方式 ，只要文字文件不需 VB6 啰 !
WSC ( Windows Script Component )
建立一新 文字文件
编辑程序代码如下 :
<?xml version="1.0"?>
<component>
<registration
description="PH ActiveX Word Windows Script Component"
progid="AxWsc.Word"
version="1.00"
classid="{5F644CD7-E1D4-4D54-A260-B4CCC2F540FC}">
</registration>
<public>
<method name="GetDocContent">
</method>
</public>
<script language="VBScript">
<![CDATA[
Function GetDocContent(strFile)
Dim wdObj
Set wdObj = CreateObject("Word.Application")
With wdObj
.Documents.Open strFile
GetDocContent = .ActiveDocument.Content
On Error Resume Next
.ActiveDocument.Close
.ActiveWindow.Close
.Quit
End With
Set wdObj = Nothing
End Function
]]>
</script>
</component>
存档 命名为 AxWord.wsc ( 注意扩展名为 WSC )
选取档案 -> 鼠标右键 -> 注册 -> 出现注册 是否成功 的讯息 -> [确定]
选取档案 -> 鼠标右键 -> 建立型态链接库
( 会产生一 ScriptLet.tlb 的 Type Library 档案 )
之后如同 ActiveX Dll 安装于组件服务中的动作
直到 [安装新组件] 时，请选择 ScriptLet.tlb 档案
完成后画面如下 :
ASP Code 如下:
<%
' 声明
Dim wd
' 建立先前写的 DLL 对象 , 个体化
Set wd = Server.CreateObject("AxWsc.Word")
' 执行 Dll 中的 GetDocContent 方法读 Word 内容
Response.Write wd.GetDocContent("C:\1.doc")
%>