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 集合。
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