vbscript数组变量传递到javascript问题给100分

[tiny2008]

1、vbscript
<script language="vbscript">
dim aa()
dim bb
bb=2
redim aa(bb)
aa(1)=1
aa(2)=2
</script>
<script language="javascript">
var jia="<%=bb%>";//从vbscript将变量BB的值传到javascript
var hong=1;
va aaaa;
while(hong<=jia)
{
aaaa="<%=aa(1)%>";这样运行是没有问题的！请问如何将"<%=aa(换成hong变量)%>"
----输出aaaa的值
hong=hong+1;
}
</script>

[孟子E章]

<%
dim aa()
dim bb
bb = 2
redim aa(bb)
aa(1)=1
aa(2)=2

%>
<script language="javascript">
var jia= <%=bb%>
var arr = new Array()
<%
for i = 1 To UBound(aa)
Response.Write "arr[" & i & "] = " & CStr(aa(i)) & vbCrLf
Next
%>
var hong=1
var aaaa
while(hong<=jia)
{
aaaa=arr(hong)
hong=hong+1;
}
</script>

[xxuu503]

确认后台数据的类型

如果是integer，不需要加引号

如果是string，必须要加引号

如果是string，且里边含有单引号或双引号

则确认一下是否会引起JS解析错误

[孟子E章]

<script language="vbscript">
dim aa()
dim bb
bb=2
redim aa(bb)
aa(1)=1
aa(2)=2
</script>
<script language="javascript">
var jia=bb;
alert(jia)
var hong=1;
var aaaa;
while(hong<=jia)
{
aaaa=aa(1)

hong=hong+1;
}
alert(aaaa)
</script>

[孟子E章]

="<%=aa(1)%>";
这样的写法是服务器端的asp代码输出前端的写法，
前店的vbs直接可以用

[孟子E章]

<script language="vbscript">
dim aa()
dim bb
bb=2
redim aa(bb)
aa(1)=1
aa(2)=2
</script>
<script language="javascript">
var jia=bb;
alert(jia)
var hong=1;
var aaaa;
var a = new VBArray(aa);
var b = a.toArray();

while(hong<=jia)
{
aaaa=b[hong]
alert(b.length)
hong=hong+1;
}

alert(b.length)
</script>

[Scarroot]

亮得可以

[tiny2008]

如果是这样呢？？？
1、vbscript
<%
dim aa()
dim bb
bb=2
redim aa(bb)
aa(1)=1
aa(2)=2
%>
<script language="javascript">
var jia="<%=bb%>";//从vbscript将变量BB的值传到javascript
var hong=1;
va aaaa;
while(hong<=jia)
{
aaaa="<%=aa(1)%>";这样运行是没有问题的！请问如何将"<%=aa(换成hong变量)%>"
----输出aaaa的值
hong=hong+1;
}
</script>

[孟子E章]

1、vbscript
<%
dim aa()
dim bb
bb=2
redim aa(bb)
aa(1)=1
aa(2)=2
%>
<script language="javascript">
var jia= <%=bb%>
var arr = new Array()
<%
for i = 0 To UBound(aa)
Response.Write "arr[" & i & "] = "'" & aa(i) & "'" & vbCrLf
Next
%>
var hong=1;
va aaaa;
while(hong<=jia)
{
aaaa=arr(hong)
hong=hong+1;
}
</script>

[孟子E章]

应该是这样

Response.Write "arr[" & i & "] = '" & aa(i) & "'" & vbCrLf

如果是数字类型去掉引号

Response.Write "arr[" & i & "] = " & aa(i) & vbCrLf

[tiny2008]

运行错误啊

[nowheart]

看得有点乱~
你说出要什么效果`