JavaScript中运用VBScript获得的数组

<script language="vbscript" src="../vbscript/GetRowGroup.vbs"></script>
<script type="text/vbscript" language="vbscript">
<!--

'//获得周数组的VBScript方法
function getWeek()
'''定义周数组
dim groupWeek()

'''准备条件
FlowYear=Trim(document.all("txtYear").value)
FlowQuarter=Trim(document.all("hdnQuarter").value)
theStartDate=FlowYear&"-"&(1+(FlowQuarter-1)*3)&"-1 00:00:00"
theEndDate=dateadd("d",-1,dateadd("m",3,theStartDate))

'''利用../vbscript/GetRowGroup.vbs中GetRowGroup函数获得VB数组groupWeek
GetRowGroup theStartDate, theEndDate, "qw", groupWeek

'''返回VB数组
getWeek=groupWeek
end function

//-->
</script>
<script language="JavaScript">
<!--
//OnSelChange--SelectBox Change时触发
function OnSelChange()
{
//重新定义js中VBArray
var a = new VBArray(getWeek());
// var arr = a.toArray(); //转换为JS Array

//移除Select原有Options
for(var i=document.all("selWeek").options.length-1;i>=0;--i)
{
document.all("selWeek").options.remove(i);
}

//重新添加Select Options
for(i=1;i<=a.ubound(2);i++)
{
// alert(a.getItem(0,i));
document.all("selWeek").add(new Option('第'+a.getItem(0,i)+'周',a.getItem(0,i),'')); //new Option(text,value,title)
}
}

//-->
</script>