2011-11-09 77 views
1

我是HTA的新手,我想使用VBScript。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有點草率,我打算把它清理乾淨。 我怎樣才能得到一個名爲計算機名函數數據,我的標記中出現

回答

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之前獲取該元素的引用。

相關問題