rs的递归

pID = "0001"
call areaList(pID,"0")
sub areaList(pID,jiSu)
dim rs '重要,一定要申明,否则出错
set rs = server.createobject("adodb.recordset")
sql = "select * from zk_area where parentareacode = '"&pID&"'"
rs.open sql,conn,1,1
if rs.recordcount>0 then
 do while not rs.eof  
  response.Write("["&jiSu&","""&rs("areaName")&""","""&rs("areaCode")&"""],"&vbCrLf)
  call areaList(rs("areaCode"),jiSu+1)
  rs.movenext
 loop
end if
rs.close
set rs = nothing
end sub