求组，JS里面怎么执行VBS

Question

try:<!--#INCLUDE FILE="sysinc.asp" --> 
<link rel="StyleSheet" href="dtree.css" type="text/css"> <script type="text/javascript" src="dtree.js"> </script> <% 
sqlstr="select * from 导航表" 
my_rs.open sqlstr,my_Conn,1,3 
%> <script type="text/javascript"> 
<!-- 
d = new dTree('d'); 
d.add(0,-1,'办公导航'); <% 
for i=0 to 1
%>d.add( <%=my_rs("id")%>, <%=my_rs("pid")%>," <%=my_rs("选项")%>"); <%
my_rs.movenext
next
%>; document.write(d); 
//--> 
</script> 

Answer 1

不行的，如果想用JS和VBS进行交互的话只好去用AJAX了。

Answer 2

<%
dim connstr
connstr = "Provider=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("db.mdb")&";uid=;pwd=;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connstr

Set rs = Server.CreateObject("ADODB.RecordSet")
sql1="select * from table2"
rs.open sql1,Conn,1,1%><script type="text/javascript"> 
<!-- 
d = []; 
d[d.length]='办公导航'; 
<% 
for i=0 to 1
%>
d[d.length]=<%=rs("id")%> ; 
<%
rs.movenext
next
%>; alert(d); 
//--> 
</script> db.mdb/table2/list:
id url
85 aaa.aaa
86 bbb.bbb
IIS5-通过
alert:办公导航,85,86