<%
anArray=array("crescendo","小青","兰色梦想","大笨狼")
S="'"
for each crescendo in anArray
S=S & crescendo & "','"
next
S=mid(S,1,len(S)-2)
%>
<SCRIPT LANGUAGE="JScript">
var JArray = new Array(<%=S%>);
for (wolf in JArray){
document.write(JArray[wolf] + "<br>");
}
</SCRIPT>
按楼主意思应该用到无刷新取数据啊
http://expert.csdn.net/Expert/topic/2850/2850138.xml?temp=.4595453
按大家回答嘛,如下
<SCRIPT language=JavaScript>
<!-- Begin
var a1 = new Array();
<%
dim i
i=0
do while not rs.eof
%>
a1[<%= i %>] ="<%= rs("msg") %>";
<%
i=i+1
rs.movenext
loop
%>
.........js代码.....
//-->
Set rs= Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM 表名"
rs.open SQL,conn,3,3
if not rs.BOF and not rs.EOF then
rs.MoveFirst ()
Count=1
i=1
while not rs.EOF
Myarrary(i,1)=rs("字段")
rs.MoveNext ()
Count=Count+1
i=i+1
wend
rs.Close ()
第二步:把数组中的值取出来合并成一个字符串,用“@”区分开
<%FOR j=1 To Count-1%>
<%strTemp1=strTemp1&trim(Myarrary(j,1))&"@"%>
<%next%>
<%strTemp1=Replace(strTemp1,vbCrlf,"")%>
第三步:把服务器段变量赋到本地
<script language=vbscript>
<!--
var strTemp1 ="<%=strTemp1%>"
arr1=split(strTemp1,"@")
//数组arr1()得到值了
-->
</script>