FrontPage VBA教程:用 MetaTags 管理发布

使用事件(例如OnBeforeWebPublish)和 meta 数据(可以通过访问Properties集合中的数据获得)的组合可以自动发布站点。例如,在发布站点之前,您可能要检查站点中所有网页的 meta 数据。若要检查 Microsoft FrontPage 是否生成了站点中的所有网页,请使用下列 OnBeforeWebPublishing事件中的代码以及事件处理器。


Private Sub CheckIfFP()
    Dim myFiles As WebFiles
    Dim myFile As WebFile
    Dim myMetaTags As MetaTags
    Dim myMetaTag As Variant
    Set myFiles = ActiveWeb.RootFolder.Files
    For Each myFile In myFiles
        Set myMetaTags = myFile.MetaTags
        'Check for any text files.
        If myMetaTags.Count = 0 And _
            myFile.Extension <> ".asa" Then
            MsgBox myFile.Name & " was not generated by FrontPage."
        End If
        'Check all web pages.
        For Each myMetaTag In myMetaTags
            If myMetaTag = "generator" Then
              If myFile.Properties("vti_generator") = _
                "Microsoft FrontPage 4.0" Then
                Exit For
              Else
                MsgBox myFile.Name & " was not generated by FrontPage."
              End If
            End If
        Next
    Next
End Sub

发布前,您也可检查 vti_donotpublish属性关键字的值。若文档仍在草稿阶段或者尚未准备发布,vti_donotpublish属性关键字会设为 True。下列示例检查 vti_donotpublish属性关键字的值。


Dim myFiles As WebFiles
Dim myFile As WebFile
For Each myFile In myFiles
    If myFile.Properties("vti_donotpublish") = True Then
        MsgBox "Do not publish " & myFile.Name
    End If
Next

vti_donotpublish属性关键字可用来禁止发布。当发布完成时,文件将不会发布到服务器。下列示例禁止 Files集合中第一个文件的发布。


Sub PublishThisFile(myFileName As String, myStatus As Boolean)
Dim myFile As WebFile
Set myFile = ActiveWeb.LocateFile(myFileName)
Call myFile.Properties.Add("vti_donotpublish", Not (myStatus))
myFile.Properties.ApplyChanges
End Sub
Private Sub PublishFile()
PublishThisFile Activeweb.RootFolder.Files(0), False
End Sub

上页:FrontPage VBA教程:FrontPage 特有的属性 下页:FrontPage VBA教程:以编程方式修改网页

FrontPage VBA教程:用 MetaTags 管理发布

FrontPage VBA教程:以编程方式修改网页 FrontPage VBA教程:在 Microsoft FrontPage 中以编程方式设计动态元素
FrontPage VBA教程:返回集合中的对象 FrontPage VBA教程:共享 Microsoft FrontPage 程序设计工程
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方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号