在 Microsoft FrontPage 中管理版本控制工程

   

Microsoft FrontPage 提供了两种版本控制的方法,分别为 FrontPage Light Weight 版本控制(也称为 Microsoft Office 风格的锁定或基于 FrontPage 的锁定)和 Microsoft Visual SourceSafe。FrontPage Light Weight 版本控制是 FrontPage 中版本控制工程的默认版本控制方法。

版本控制提供了一种方法,可以控制维护 Web 站点中网页的用户。两种版本控制方法都提供了签入、签出以及撤消签出的功能。Visual SourceSafe 还提供了其他的版本控制功能,例如版本跟踪和回滚功能。

创建版本控制工程

若要创建新的版本控制工程,请将 RevisionControlProject 属性设置为工程(Visual SourceSafe)的路径或设置为 <FrontPage-based Locking>,如下所示。

ActiveWeb.RevisionControlProject = "<FrontPage-based Locking>"

假定字符串“$/Rogue Cellars”是有效的 Visual SourceSafe 工程,下列语句会将活动站点分配给 Visual SourceSafe 工程。

ActiveWeb.RevisionControlProject = "$/Rogue Cellars/Inventory"

下列示例创建版本控制并签出两个文件。

注意  若要运行本示例,必须有一个称为“C:\My documents\My Webs\Rogue Cellars”(对于运行在 Microsoft Windows 上的服务器)或“C:\WINNT\Profiles\ logon alias\Personal\My Webs\Rogue Cellars”(对于运行在 Windows NT 上的服务器)的站点。您可以创建两个文件,分别称为“index.htm”和“footnote.htm”,或者用所选择的文件名来代替。

Private Sub CreateSourceControl()
    Dim myWeb As WebEx
    Dim myProject As String
    Dim myFile1 As WebFile
    Dim myFile2 As WebFile

    Set myWeb = Webs.Open("C:\My Documents\My Webs\Rogue Cellars")
    Set myFile1 = myWeb.RootFolder.Files("index.htm")
    Set myFile2 = myWeb.RootFolder.Files("footnote.htm")

    myProject = "<FrontPage-based Locking>"

    myWeb.RevisionControlProject = myProject
    myFile1.Checkout
    myFile2.Checkout
End Sub

Checkout 方法为管理员提供了一个 Boolean 类型的强制签出参数。

删除版本控制工程

一旦工程完成,就可以决定删除版本控制。若要删除版本控制,请将 RevisionControlProject 属性设置为空字符串 (""),如下列语句所示。

myWeb.RevisionControlProject = ""

在 FrontPage Light Weight 与 Visual SourceSafe 工程之间切换

若要在这两种类型的版本控制之间切换,必须先将 RevisionControlProject 属性设置为空字符串 (""),如下列语句所示。

myWeb.RevisionControlProject = ""