以编程方式修改网页

此主题阐述了如何在 Web 对象模型环境中使用 DispFPHTMLDocument 对象元素来更改网页内容或仅访问网页内容以进行确认。

Microsoft Visual Basic 是您可利用来修改网页内容的强大工具。当您浏览对象浏览器时，您将会看到许多您很熟悉的与 Microsoft Internet Explorer 相同的组件类型。

提示  若要只查看与 FrontPage 的 Page 对象模型兼容的程序设计组件，请选择“FrontPageEditor”做为对象浏览器中的对象库。

您可以使用能通过 PageWindowEx 对象返回文档对象的 ActiveDocument 或 Document 属性来访问网页的 HTML 元素。例如，下列语句更改活动网页窗口中网页的背景色。

ActivePageWindow.Document.bgColor = "DarkBlue"

下列示例检查活动文档中的特定超链接 (index.htm)。如果找到该超链接，则退出此过程，但是如果没有找到该超链接，此过程将检查活动文档是否为 index.htm，如果不是，则将该超链接添加到文档末尾。

Private Sub VerifyIndexLink()
    Dim myDoc As DispFPHTMLDocument
    Dim myLinks As Variant
    Dim myLink As Variant
    Dim myNumberOfLinks As Integer
    Dim myAddLink As Boolean
    Dim myLinkName As String
    Dim myLinkName2 As String

    Set myDoc = ActivePageWindow.Document
    Set myLinks = myDoc.Links
    myNumberOfLinks = myLinks.length
    myLinkName = "index.htm"
    myLinkName2 = """" & myLinkName & """"

    For Each myLink In myLinks
        If myLink = myLinkName Then
            myAddLink = True
            Exit For
        End If
    Next

    If myAddLink = False And myDoc.nameProp <> "index" Then
        Call myDoc.body.insertAdjacentHTML("BeforeEnd", "<a href=" _
            & myLinkName2 & ">" & myLinkName & "</a>")
        ActivePageWindow.Save
    End If
    End Sub

提示  请注意，在最后一个 If 语句中，活动网页窗口会在退出此过程之前保存。将这个语句添加到 OnPageClose 事件将非常合适。