asp-classic - vbscript:带参数的getref

Question

有没有人将参数传递给使用 getref 调用的函数？
下面的代码只是一个例子，不起作用，如何将参数传递给 mySub 子？

<button id="myBtn">Click me</button>

<script type="text/vbscript">
  document.getElementById("myBtn").onclick=GetRef("mySub") 

  Sub mySub(parameter)
   alert(parameter)
  End Sub
</script>

Answer 1

这是我将如何实现这一目标:

        Dim elem: Set elem = document.getElementById("myBtn")
        elem.setAttribute "parameter", "somevalue"
        Set elem.onclick = GetRef("elem_onclick")

        Function elem_onclick()
            MsgBox Me.getAttribute("parameter")
        End Function   

使用被分配 onclick 的元素来携带作为附加属性所需的任何参数。