怎么将vbscript中要输出提示信息在同一新窗口输出

<SCRIPT LANGUAGE= "VBScript">   <!--dim winsub btn_onclick()   Set win = window.open("about:blank","win","")   win.document.writeln "xxxx"end sub--> </SCRIPT><input type="button" name="btn" value="click">
------解决方案--------------------------------------------------------
【如何在当前窗口显示呢】？什么意思？把“aaaaaaaaaaaaaaaaaaaaaa ”，“bbbbbbbbbbbbbbbbbbbbbbbb”显示在本页面？
------解决方案--------------------------------------------------------
<SCRIPT   LANGUAGE= "VBScript "> 
<!--
           if   ....then
           document.getElementById("a").innerHTML="aaaaaaaaaaaaaaaaaaaaaa"
           msgbox   "aaaaaaaaaaaaaaaaaaaaaa "
           end   if
           ......
         
           if   ....then
             document.getElementById("a").innerHTML="bbbbbbbbbbbbbbbbbbbbbbb"
           msgbox   "bbbbbbbbbbbbbbbbbbbbbbb "

           end   if
           ......

-->
</SCRIPT>  
<div id=a></div>
<div id=b></div>
是这个意思吗？
------解决方案--------------------------------------------------------
恩，学习了，
<SCRIPT LANGUAGE= "VBScript">  
<!--
dim win
sub btn_onclick()
  Set win = window.open("about:blank","win","")
  win.document.writeln "xxxx"
end sub
-->  
</SCRIPT>
<input type="button" name="btn" value="click">

------解决方案--------------------------------------------------------
<SCRIPT   LANGUAGE= "VBScript ">  
<!--  
           dim win  
           sub btn_onclick(value)  
           Set win = window.open("about:blank","win","")  
           win.document.writeln "aaaaaaaaaaaaaaaaaaaaaa"  
           end sub  

           if   ....then  
           msgbox   btn_onclick("aaaaaaaaaaaaaaaaaaaaaa ")  
           end   if  
           ......  
          
           if   ....then  
           msgbox   btn_onclick("bbbbbbbbbbbbbbbbbbbbbbb ")  
           end   if  
           ......  

-->  
</SCRIPT>