23
2019
02

asp从表中读出数据,然后生成数组

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

%>


« 上一篇下一篇 »