发布网友 发布时间:2024-10-23 04:50
共4个回答
热心网友 时间:2024-10-23 22:34
for i=0 to counts
ii=ii+rs("Lid")+"|"
next
aaa=split(ii,"|")for j=1 to countsresponse.write aa(j)next
热心网友 时间:2024-10-23 22:35
dim aaa()set rs=server.CreateObject("adodb.recordset")
sql="select * from Lei "rs.open sql,conn,1,1
counts=rs.recordcount
for i=0 to counts
aaa(i)=rs("Lid")
response.Write aaa(i)next
rs.close
set rs=nothing
热心网友 时间:2024-10-23 22:35
Dim aaa()
set rs=server.CreateObject("adodb.recordset")
sql="select * from Lei "
rs.open sql,conn,1,1
counts=rs.recordcount
for i=0 to counts - 1
ReDim Preserve aaa(i)
aaa(i)=rs("Lid")
next
response.Write aaa(i)
rs.close
热心网友 时间:2024-10-23 22:36
强制转换一下?aaa(i)=CINT(rs("Lid"))