1

我是 HTA 新手，我想使用 VBScript。

我有一些 HTML，我想在表格中生成计算机名称（例如）

我遇到的最大问题是如何从函数中检索值并将其放入 HTML 中？

<body style="font:12 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#0080FF', EndColorStr='#00FFFF')" onresize="RestoreWindowSize()">

<div align="Center">

<span id="Update">&nbsp;</span>

<table border="0">
<tr>
    <td>Computer name</td>
    <td><div>Data I would like to generate</div></td>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
</tr>
</table>

</div>

</body>
</html>

我知道我的 HTML 有点草率，我要清理它。如何从名为 ComputerName 的函数中获取数据以显示在我的标签中

4

1 回答 1

3

你可以通过遍历 DOM 来做到这一点，就像 JavaScript 一样：

<html>
    <body style="font:12 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr='#0080FF', EndColorStr='#00FFFF')" onresize="RestoreWindowSize()">

    <div align="Center">

    <span id="Update">&nbsp;</span>

    <table border="0">
        <tr>
            <td>Computer name</td>
            <td><div id="computername">Data I would like to generate</div></td>
            <td></td>
            <td></td>
            <td></td>
            <td></td>
        </tr>
    </table>

    </div>
    <script type="text/vbscript">

        dim c: set c = document.getElementById("computername")
        c.InnerText = GetComputerName()

        function GetComputerName()
             ' do your computername lookup here
             GetComputerName = "Geoff"
        end function

     </script>
    </body>
</html>

在这里，我为您的目标添加了一个 id ，并在设置其属性<div/>之前使用它获取对元素的引用。InnerText

于 2011-11-10T08:49:40.950 回答