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

%>