在VBScript中调用HTML元素的自定义事件函数

Question

我只想在VBscript中调用自定义元素的函数。以下是我当前的脚本代码。但它崩溃了我的申请。 （目标浏览器是Internet Explorer）

  Function SampleFunction()
  msgbox"samplemessage"
  End Function
  set ResponseFn = getRef("SampleFunction")
  set element = document.getElementById("elem id")
  element.addEventListener "OnResponse, ResponseFn , false
  set cEvent = document.createEvent("CustomEvent")
  cEvent.initCustomEvent "OnResponse", false, false, null
  element.dispatchEvent(cEvent)
  element.removeEventListener "OnResponse\", ResponseFn , false

任何想法为什么上面的代码崩溃

Answer 1

我发现以上代码仅支持IE 9.其他版本的IE不支持此功能。需要在htm文件中添加以下标记以支持上面的代码

“meta http-equiv =”X-UA-Compatible“content =”IE = 9“”

这解决了我的问题