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 = ""
若要在这两种类型的版本控制之间切换,必须先将 RevisionControlProject 属性设置为空字符串 (""),如下列语句所示。
myWeb.RevisionControlProject = ""