• Word 具備自動儲存功能, 當您在建立檔案的過程中, 假設發生各種突發狀況 (例如：突然斷電), 可以藉此挽回部份文件內容, 減少不必要的損失。請先在 Word 執行 『工具/選項』 命令, 開啟選項交談窗。
• 切換到儲存頁次, 並勾選允許幕後儲存檔案多選鈕 (預設即是選取狀態), 然後再選取下方的儲存自動回復資訊時間間隔多選鈕, 並在後方欄位輸入自動儲存的間隔, 建議設定為 3～5 分鐘。最後請按下確定鈕套用設定值即可。

• Word 每次自動儲存時, 都會將文件內容存成一個暫存檔, 要是誤刪或是遺失檔案, 可以從這些暫存檔下手, 找回失去的文件內容。不過這些檔案為隱藏檔, 必須更改資料夾選項設定, 使之正常顯示。請先在瀏覽視窗中執行『工具/資料夾選項』命令, 然後切換到檢視頁次, 並勾選顯示所有檔案與資料夾單選鈕, 按下確定鈕套用設定即可。
• 接著請進入 Word 並啟動開啟舊檔交談窗, 然後將檔案類型切換為所有檔案項目, 切換到原始文件的編輯路徑後就會看到名稱為 "~WRLXXXX.tmp" 格式的暫存檔, 您可以將它們一一開啟, 看看是否為遺失的文件。

• 程式安裝完畢後, 請執行『開始/所有程式/WordRecovery/Word Recovery』命令啟動軟體。然後按下 鈕, 並選擇要進行修復的 Word 文件檔, 按下 Recovery 鈕即可開始進行修復。
• 在 Diagnostics 窗格中會顯示修復的狀況, 所有修復作業都完成後, WordRecovery 會要求使用者儲存修復後的檔案, 請自行決定儲存的路徑與檔名, 並按下儲存鈕即可。
• 檔案修復後, 您可以利用 Word 開啟文件, 看看修復的狀況如何。在此筆者測試的結果還不錯, 居然連文件中的圖案都一併修復了, 不過由於使用的是試用版, 因此並無法完整回復文件內容。

• 預存程序Portal_GetLinks：從Portal_Links資料表取得連結。
• LinksDB.vb：GetLinks() 執行預存程序Portal_GetLinks。
• Links.ascx：呼叫GetLinks() 資料繫結到DataList控制項，顯示連結到畫面。

PROCEDURE Portal_GetLinks
(
    @ModuleID int
)
AS
SELECT
    ItemID,
    CreatedByUser,
    CreatedDate,
    Title,
    Url,
    ViewOrder,
    Description

FROM Portal_Links WHERE ModuleID = @ModuleID 
ORDER BY ViewOrder

GO 

Public Function GetLinks(ByVal moduleId As Integer) 
As SqlDataReader
  '取得資料庫連線字串, 並設定預存程序名稱
  Dim myConnection As New 
SqlConnection(ConfigurationSettings.
AppSettings("connectionString"))
  Dim myCommand As New 
SqlCommand("Portal_GetLinks", myConnection)

  '命令為預存程序類型
  myCommand.CommandType = CommandType
.StoredProcedure

  '預存程序輸入參數
  Dim parameterModuleId As New 
SqlParameter("@ModuleID", SqlDbType.Int, 4)
  parameterModuleId.Value = moduleId
  myCommand.Parameters.Add(parameterModuleId)
  '連線資料庫並執行預存程序
  myConnection.Open()
  Dim result As SqlDataReader = myCommand
.ExecuteReader(CommandBehavior.CloseConnection)

  '傳回DataReader 
  Return result
End Function 

 
  
   
   
  
  

 
  


其中ChooseURL由IsEditable是否為true來決定是否傳回編輯的超連結： 
  
Protected Function ChooseURL(ByVal itemID As String, ByVal modID
 As String, ByVal URL As String) As String

  If IsEditable Then
    Return "~/DesktopModules/EditLinks.aspx?ItemID=" & 
  CStr(itemID) & "&mid=" & modID
   Else
    Return URL
   End If
End Function  

Private Sub Page_Load(ByVal sender As 
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  If IsEditable Then
    linkImage = "~/images/edit.gif"
  Else
    linkImage = "~/images/navlink.gif"
  End If

  '到資料庫取得連結列表並做資料繫結以顯示出來
  Dim links As New ASPNET.StarterKit.Portal.LinkDB()

  myDataList.DataSource = links.GetLinks(ModuleId)
  myDataList.DataBind()
End Sub  

Private Sub UpdateBtn_Click(ByVal sender As Object, 
ByVal e As EventArgs) Handles updateButton.Click
  If Page.IsValid = True Then
    Dim links As New ASPNET.StarterKit.Portal.LinkDB()
    If itemId = 0 Then

      '新增連結
      links.AddLink(moduleId, itemId, Context.User.Identity.
 Name,TitleField.Text, UrlField.Text, MobileUrlField.Text, 
 Int32.Parse(ViewOrderField.Text), DescriptionField.Text)

    Else
      '更新連結
      links.UpdateLink(moduleId, itemId, Context.User.Identity.
 Name,TitleField.Text, UrlField.Text, MobileUrlField.Text, 
 Int32.Parse(ViewOrderField.Text), DescriptionField.Text)
    End If

    '編輯完畢後由ViewState取得返回的URL重新導向
    Response.Redirect(CStr(ViewState("UrlReferrer")))
  End If
End Sub

Public Sub UpdateLink(ByVal moduleId As Integer, ByVal itemId As
 Integer, ByVal userName As String, ByVal title As String, 
 ByVal url As String, ByVal mobileUrl As String, 
 ByVal viewOrder As Integer, ByVal description As String)

  If userName.Length < 1 Then
    userName = "unknown"
  End If

  '取得資料庫連線字串, 並設定預存程序名稱
  Dim myConnection As New 
SqlConnection(ConfigurationSettings.AppSettings
("connectionString"))
  Dim myCommand As New SqlCommand
("Portal_UpdateLink", myConnection)
  '命令為預存程序類型
  myCommand.CommandType = CommandType.StoredProcedure

  '預存程序輸入參數
  Dim parameterItemID As New SqlParameter
("@ItemID", SqlDbType.Int, 4)
  parameterItemID.Value = itemId
  myCommand.Parameters.Add(parameterItemID)

  Dim parameterUserName As New 
SqlParameter("@UserName", SqlDbType.NVarChar, 100)
  parameterUserName.Value = userName
  myCommand.Parameters.Add(parameterUserName)

  Dim parameterTitle As New 
SqlParameter("@Title", SqlDbType.NVarChar, 100)
  parameterTitle.Value = title
  myCommand.Parameters.Add(parameterTitle)

  Dim parameterDescription As New 
SqlParameter("@Description", SqlDbType.NVarChar, 100)
  parameterDescription.Value = description
  myCommand.Parameters.Add(parameterDescription)

  Dim parameterUrl As New 
SqlParameter("@Url", SqlDbType.NVarChar, 100)
  parameterUrl.Value = url
  myCommand.Parameters.Add(parameterUrl)

  Dim parameterMobileUrl As New 
SqlParameter("@MobileUrl", SqlDbType.NVarChar, 100)
  parameterMobileUrl.Value = mobileUrl
  myCommand.Parameters.Add(parameterMobileUrl)

  Dim parameterViewOrder As New 
SqlParameter("@ViewOrder", SqlDbType.Int, 4)
  parameterViewOrder.Value = viewOrder
  myCommand.Parameters.Add(parameterViewOrder)

  '連線資料庫並執行預存程序
  myConnection.Open()
  myCommand.ExecuteNonQuery()
  myConnection.Close()
End Sub
譬如更新連結預存程序Portal_UpdateLink：
PROCEDURE Portal_UpdateLink
(
    @ItemID      int,
    @UserName    nvarchar(100),
    @Title       nvarchar(100),
    @Url         nvarchar(250),
    @MobileUrl   nvarchar(250),
    @ViewOrder   int,
    @Description nvarchar(2000)
)
AS
UPDATE Portal_Links
SET
    CreatedByUser = @UserName,
    CreatedDate   = GetDate(),
    Title         = @Title,
    Url           = @Url,
    MobileUrl     = @MobileUrl,
    ViewOrder     = @ViewOrder,
    Description   = @Description
WHERE ItemID = @ItemID

GO