找到解决的办法了,
rs1.addnew
dim i
i=1
while not rs.eof
rs1(i)=rs("temp_id")
i=i+1
rs1.update
rs.movenext
wend
这样就可以实现行列转换了,哈哈,
可是我的分怎么办呀,版主能不能在不扣信誉分的情况下,把我的分还给我,因为没有人回答的正确,怎么结帖呀!!
select temp_id from [tableName1]
set rs=server.createObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
i=0
do while not rs.eof
redim preserve arr(i)
arr(i)=rs(0)
i=i+1
rs.movenext
loop
else
response.end
end if
rs.close
set rs=nothing
sql="select * from [tableName2]"
set rs=server.createObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
for i=0 to ubound(arr)
rs(i+1)=arr(i)
next
rs.update
rs.close
set rs=nothing