FrontPage VBA教程:MetaTags集合对象

   
WebFile
MetaTags

属性关键字/值对数组。每个 MetaTag对象代表一个包含在 Microsoft FrontPage 中 HTML 网页上的 META 标记。MetaTags集合是 WebFile对象的成员。

注意  FrontPage 生成的 META 标记(例如主题或边框的 META 标记)不会出现在 MetaTags集合中。MetaTags集合只有在文件保存后才生成。例如,如果您使用“HTML”视图或以编程方式使用 Microsoft Visual Basic for Application 中的 Page对象模型将新 META 标记添加到网页中,则在保存该网页之前,您不能查看属性关键字/值对。若要节省 META 词典中的空间,可以使用下列方法禁用 META 标记的存储:

DisableMetaTageStore 键的功能和其他服务器设置相同,请参阅 Server Extensions 资源工具箱以获得有关服务器设置的详细信息。

使用 MetaTags集合

使用 MetaTags属性可以返回 MetaTags集合。

HTML 附注  在 FrontPage 的 meta 数据中,HTTP-EQUIV属性可用于代替 NAME属性。FrontPage 在答复邮件标题中不会使用 HTTP-EQUIV属性的值。META 数据的语法如下:


<META
CONTENT=description
HTTP-EQUIV=text
NAME=text
TITLE=text
URL=url
>

您也可以通过 ActiveWeb对象的根文件夹来访问文件结构,从而返回活动站点中的 META 标记列表,如下例所示。

注意  若要运行本示例,请创建一个表单,其中包含一个称为txtMetaTags 的文本框(设置为多行)以及一个称为cmdGetMetaTagInfo 的命令按钮,然后将本示例复制到代码窗口中。


Private Sub cmdGetMetaTagInfo_Click()
Dim myWeb As WebEx
Dim myFiles As WebFiles
Dim myFile As WebFile
Dim myMetaTags As MetaTags
Dim myMetaTag As Variant
Dim myFileName As String
Dim myMetaTagName As String
Dim myReturnInfo As String
Set myWeb = ActiveWeb
Set myFiles = myWeb.RootFolder.Files
With myWeb
    For Each myFile In myFiles
        Set myMetaTags = myFile.MetaTags
        For Each myMetaTag In myMetaTags
            myFileName = myFile.Name
            myMetaTagName = myMetaTag
            myReturnInfo = myFileName & ": " & myMetaTagName
            txtMetaTags.Text = txtMetaTags.Text & myReturnInfo
        Next
    Next
    txtMetaTags.SetFocus
    txtMetaTags.CurLine = 0
End With
End Sub

使用 Application属性可以返回 Application对象。下列语句返回 Application对象。


myAddInsCount = ActiveWeb.RootFolder.Files(0).MetaTags.Application

使用 Count属性可以返回集合中 MetaTag对象的数目。下列语句返回 ActiveWeb对象第十个文件中的 MetaTag对象的数目。


myMetaTagCount = ActiveWeb.RootFolder.Files(9).MetaTags.Count

使用 Items(index) 可以返回属性关键字/值对,其中 index 是 MetaTags集合中某一项目的属性关键字 值,该值为字符串类型。下列示例从 ActiveWeb对象第一个文件中的 Meta 标记返回程序标识标记。


myMetaTagOne = ActiveWeb.RootFolder.Files(0).MetaTags("ProgId")

常用的 PropertyKey 值是“generator”和“progid”。有关属性关键字值的详细信息,请参阅Properties对象中的表格。

如果要返回 MetaTags集合的文件容器,请使用 Parent属性。例如,下列示例返回 WebFile 容器对象的 Url属性,该对象与 ActiveWeb对象第一个文件的 META 标记相关联。


myMetaTagParent = _
    ActiveWeb.RootFolder.Files(0).MetaTags.Parent.Url

上页:FrontPage VBA教程:Lists集合 下页:FrontPage VBA教程:NavigationNode对象

FrontPage VBA教程:MetaTags集合对象

FrontPage VBA教程:NavigationNode对象 FrontPage VBA教程:NavigationNodes集合对象
FrontPage VBA教程:PageWindowEx对象 FrontPage VBA教程:PageWindows集合对象
FrontPage VBA教程:Properties集合对象 FrontPage VBA教程:Survey对象
FrontPage VBA教程:System对象 FrontPage VBA教程:Theme对象
FrontPage VBA教程:Themes集合对象 FrontPage VBA教程:UndoTransaction对象
FrontPage VBA教程:WebEx对象 FrontPage VBA教程:WebFile对象
FrontPage VBA教程:WebFiles集合对象 FrontPage VBA教程:WebFolder对象
FrontPage VBA教程:WebFolders对象集合 FrontPage VBA教程:Webs集合对象
FrontPage VBA教程:WebWindowEx对象 FrontPage VBA教程:WebWindows集合对象
FrontPage VBA教程:ActiveDocument属性 FrontPage VBA教程:activeElement属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号