Question

ASP数组传值给vbscript数组拜托各位大神

<% q=0 for each sa in f1.files if right(sa.name,3)="jpg" then b(q)=sa.name q=q+1 end if next '这里的数组b已经获得数据 %> <script language="vbscript"> dim bb2,x,a(10) k="<%=q%>" //获取数组b有几个数据 for i= 1 to k a(i)="<%=b(i)%>" alert(a(i)) //这里a(i)却没有数据？？ next </script>

Answer 1

客户端不能调用服务端定义的变量，你在客户端直接赋值后才可以调用。建议你在客户端还是用javascript而不要用vbscript <script language="vbscript"> dim k = <%=q%> dim a(k) <% for i = 1 to q Response.write "a(" & i & ")=" & "'" & b(i-1) & "'" & chr(13) next %> fot i = 1 to k alert(a(i)); next </script> javascript: <script type="text/javascript"> var k = <%=q%>; var a = new array(); <% for i = 1 to q Response.write "a[" & i & "]=" & "'" & b(i-1) & "'" & chr(13) next %> fot (i = 1 ;i<k+1;i++) { alert(a[i]);} </script>

Answer 2

错误理解了服务器和客户端的概念： 最好加个Option Explicit 这样你a(i)="<%=b(i)%>"中的i就出错了。这是服务器中的变量，是没定义过的， for i= 1 to k 是客户端从 查看-》源代码 看到的客户端变量。 这样应该可以： <script language="vbscript"> dim bb2,x,a(1 to <%=q%>),i <% dim ia for ia = 1 to q Response.Write "a(" & ia & ")=" & """ & b(i) & """ & vbcrlf next %> for i= LBound(a) to UBound(a) alert(a(i)) //这里a(i)有数据了吗？ next </script>