asp从表中读出数据,然后生成数组
<%
Do While Not rszdpm80.EOF
%>
<%
if rszdpm80.EOF then
zdpmid = zdpmid & cint(rszdpm80("hyid"))
else
zdpmid = zdpmid & cint(rszdpm80("hyid")) & ","
end if
%>
<%
rszdpm80.movenext
loop
rszdpm80.close
set rszdpm80=nothing
x=split(zdpmid,",")'得到置顶排名的数组,去掉逗号
for i=0 to ubound(x)-1
response.Write(x(i))
next
%>