这样:
假如<script>
var ar= new Array()
<%
Dim arr
arr = new Array("1","2")
For i = 0 to UBound(arr)
Response.Write "ar[" & i & "] = '" & arr(i) & "'" & vbCrLf
Next
%>
</script>
其他语言思路相同