如何在javascript函数中调用vbscript的方法，或者能在javascript的函数中嵌套vbscript的代码嘛？

Question

<script language="vbscript">
dim a
a = 100
function hello()
msgbox "hello"
end function
</script><SCRIPT LANGUAGE="JavaScript">
<!--
window.execScript("hello()", "vbscript");alert(a)
//-->
</SCRIPT>

Answer 1

<script language="javascript"> 
  //用 JavaScript 写服务器端连接数据库的代码示例 
  var conn = new ActiveXObject("ADODB.Connection"); 
  conn.Open("Provider=SQLOLEDB.1; Data Source=localhost; User ID=sa; " 
    +"Password=; Initial Catalog=pubs"); 
  var rs = new ActiveXObject("ADODB.Recordset"); 
  var sql="select * from authors"; 
  rs.open(sql, conn); 
 shtml = "<table width='100%' border=1>"; 
 shtml +="<tr bgcolor='#f4f4f4'><td>au_id</td><td>au_lname</td><td>au_fname</td><td>phone</td><td>address</td><td> city</td><td>state</td><td>zip</td></tr>"; 
  while(!rs.EOF) 
  { 
 shtml += "<tr><td>" + rs("au_id") + "</td><td>" + rs("au_lname") + "</td><td>" + rs("au_fname") + "</td><td>" + rs("phone") + "</td><td>" + rs("address") + "</td><td>" + rs("city") + "</td><td>" + rs("state") + "</td><td>" + rs("zip") + "</td></tr>"; 
 rs.moveNext; 
  } 
  shtml += "</table>"; 
  document.write(shtml); 
  rs.close();  
  rs = null;  
  conn.close();  
  conn = null; 
</script>

Answer 2

<script language="vbscript">
Function Celsius(fDegrees)
   Celsius = (fDegrees - 32) * 5 / 9
End Function
</script><script language="jscript">
alert(Celsius(120));
</script>

Answer 3

<script language="vbscript">
sub show(str)
msgbox str
end sub
</script><script language="jscript">
show('hello');
</script>

Answer 4

JS:var conn = new ActiveXObject("ADODB.Connection");
conn.Open("[连接串]");
var rs = new ActiveXObject("ADODB.Recordset");
var sql = "select * from tbl where a=1";
rs.Open(sql, conn, 1, 1);
while(!rs.EOF)
{
    :
:
     rs.MoveNext
}

Answer 5

由于JavaScript  VBScript 都是解释行的性语言，只要在不同的语言中按照各自语法，代码会自上而下执行，当在前面声明了变量或是函数都可以直接拿来用。。