• 文章數(247)
  • 回應數(121)
  • 引用數(0)

最新回應

ASP 如何讀取 Word 內容顯示於網頁

2008/3/24 21:15 | 閱讀數 : 2865 我要推薦 | 2 Comments | 文章分類 : VB.Net / C#.Net / 訂閱

ASP 如何讀取 Word 檔案內容並顯示於網頁

一般而言 , 在 ASP 或 ASP.Net 中透過 CreateObject 建構函數建立 Word 物件

會有安全性及使用權限上的問題 , 因此若 虛擬目錄 不使用 整合 Windows 驗證

將無法存取 Word doc 檔 ,更不用說虛擬目錄以外的目錄 , 好比說 C:\ 根目錄下的 Word 檔。

底下介紹個方式,給大家參考看看:

l 使用 VB6

n 建立專案,選擇 ActiveX DLL

n 將專案的 Name屬性設定成 Ax,Class 的 Name 屬性設為 Word

n 編輯程式碼如下 :

n

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


n 編譯 製成 DLL

Compiler 完成後請使用 RegSvr32.exe 將該 Dll 元件 "反註冊" , 如

RegSvr32 /u "路徑+檔名.dll"

RegSvr32.exe 工具使用 可參考:

<< 關於 ActiveX (OLE) 元件登錄註冊 >>

http://blog.blueshop.com.tw/hammerchou/archive/2006/04/06/20787.aspx

l 執行 DCOMCNFG.EXE -> [確定]

DCOM Config 圖

n COM+應用程式 -> 滑鼠右鍵 -> 新增 -> 應用程式

COM+應用程式 圖

n [下一步] -> 建立空的應用程式

應用程式 圖

n 輸入應用程式名稱 -> 伺服應用程式 -> [下一步]

伺服器應用程式 圖

n 使用下列使用者 -> 使用者 -> 密碼 / 確認密碼 -> [下一步] -> [完成]

u 輸入 Administrator 及密碼

指定使用者 圖

n AxWord -> 元件 -> 滑鼠右鍵 -> 新增 -> 元件 -> [下一步]

新增元件 圖

n [安裝新元件]

安裝新元件 圖

n 選取 先前用 VB6 編譯製成的 DLL

選 DLL 檔 圖

n [下一步] -> [完成]

完成 圖

l ASP Code 如下:

n

<%

' 宣告

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 )

l 建立一新 文字檔

n 編輯程式碼如下 :

n

<?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>

n 存檔 命名為 AxWord.wsc ( 注意副檔名為 WSC )

n 選取檔案 -> 滑鼠右鍵 -> 註冊 -> 出現註冊 是否成功 的訊息 -> [確定]

註冊 圖

n 選取檔案 -> 滑鼠右鍵 -> 建立型態程式庫

u ( 會產生一 ScriptLet.tlb 的 Type Library 檔案 )

型態程式庫 圖

n 之後如同 ActiveX Dll 安裝於元件服務中的動作

n 直到 [安裝新元件] 時,請選擇 ScriptLet.tlb 檔案

n 完成後畫面如下 :

完成 圖

l ASP Code 如下:

n

<%

' 宣告

Dim wd

' 建立先前寫的 DLL 物件 , 個體化

Set wd = Server.CreateObject("AxWsc.Word")

' 執行 Dll 中的 GetDocContent 方法讀 Word 內容

Response.Write wd.GetDocContent("C:\1.doc")

%>

關連文章

回應

  • 標題 *
  • 名稱 *
  • 信箱(將不會被顯示)
  • 網址
  • 回應
  • 登入後使用進階評論
  • Please add 4 and 7 and type the answer here: