FrontPage VBA教程:在 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 = ""

上页:FrontPage VBA教程:共享 Microsoft FrontPage 程序设计工程 下页:FrontPage VBA教程:了解 WebWindows 与 PageWindows

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

FrontPage VBA教程:了解 WebWindows 与 PageWindows FrontPage VBA教程:理解 Microsoft FrontPage 中的绝对和相对 URL 地址
FrontPage VBA教程:使用事件控制操作 FrontPage VBA教程:在无窗口环境下编码
FrontPage VBA教程:abort方法 FrontPage VBA教程:Activate方法
FrontPage VBA教程:Add方法 FrontPage VBA教程:AddChoice方法
FrontPage VBA教程:AddLinkBar方法 FrontPage VBA教程:ApplyChanges方法
FrontPage VBA教程:ApplyNavigationStructure方法 FrontPage VBA教程:ApplyTemplate方法
FrontPage VBA教程:ApplyTheme方法 FrontPage VBA教程:CancelRequests方法
FrontPage VBA教程:Checkin方法 FrontPage VBA教程:Checkout方法
FrontPage VBA教程:clear方法 FrontPage VBA教程:Close方法
FrontPage VBA教程:commit方法 FrontPage VBA教程:Copy方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号