<script language=vbScript>
<!--
public x(9)
<%
set rs1=server.CreateObject("ADODB.Recordset")
sql1="select * from ldlbk order by id"
rs1.open sql1,conn,1,1
i=0
do while not rs1.eof
%>
x( i )=<%=rs1("small_class")%>
<%
if rs1.eof then
exit do
end if
i=i+1
rs1.movenext
loop
rs1.close
set rs1=nothing
%>

-->
</script>


不能把值写入 x数组

楼主
<%
%>
内的是服务器端代码，这里面的代码是在客户端浏览器向服务器请求网页时由服务器来执行并处理。
<script language="vbscript">
</script>
这个是客户端代码，这里的代码服务器是不处理的，只有网页下载的浏览器的客户端电脑上进行编译执行(这个过程由客户端的浏览器来完成。
所以这个概念一定要明确，在实际的网络环境中，这两段代码是执行在不同的电脑上的，因此两段代码不能直接调用。

那因该怎么写

<script language=vbScript>
<!--
Dim x(9)
<%
set rs1=server.CreateObject("ADODB.Recordset")
sql1="select * from ldlbk order by id"
rs1.open sql1,conn,1,1
i=0
do while not rs1.eof
%>
x(<%=i%>)="<%=rs1("small_class")%>"
<%
if rs1.eof then
exit do
end if
i=i+1
rs1.movenext
loop
rs1.close
set rs1=nothing
%>

-->
</script>

这样是可以的

[此贴子已经被作者于2007-4-4 11:07:41编辑过]

真的可以了,哈哈!
谢谢了