28,409
社区成员




<!--#include file="conn.asp" -->
<%
dim nameid : nameid = request.form("nameid")
while nameid <> ""
set pa = conn.execute("select nameid,prentid from tree7 where prentid in ("&nameid&")")
nameid=""
do while not pa.eof
nameid=nameid&pa("nameid")&","
conn.execute("insert into tree8 (nameid,prentid) values("&pa("nameid")&","&pa("prentid")&")")
pa.movenext
loop
if right(nameid,1)="," then nameid=left(nameid,len(nameid)-1)
pa.close
set pa=nothing
wend
response.write "导出成功"
%>