使用 VBScript 的 IE8 兼容模式

是否可以使用 VBScript 设置和检查 IE8 中的兼容模式？

根据定义文档兼容性 http://msdn.microsoft.com/en-us/library/cc288325(VS.85).aspx文章，有文档.文档模式 http://msdn.microsoft.com/en-us/library/cc196988(VS.85).aspx属性，返回 IE8 中当前页面的兼容模式。例如，您可以在 IE8 的地址栏中键入以下内容，以获取消息框中显示的兼容模式值：

vbscript:msgbox(document.documentMode)

至于动态修改兼容模式...您可能可以迭代所有元标记并更改 X-UA-Compatible http-equiv 标头的内容，如下例所示，但我没有 IE 8，所以可以不说是否真的有效。

Sub ChangeCompatMode
  Dim metatags, meta

  Set metatags = document.getElementsByTagName("meta")
  For Each meta In metatags
    If UCase(meta.getAttribute("httpEquiv")) = "X-UA-COMPATIBLE" Then
      ' Change the document mode
      meta.setAttribute "content", "IE=edge"
      Exit For
    End If
  Next
End Sub