关于无限分级(ASP+数据库+JS)的实现代码(3)

日期：2020-05-13 栏目：程序人生 浏览：次
"+cotename_v[j]+"";} else{ data+=""; } } if(thevalue!=0){data+="";} //alert(length+'/'+thevalue); var lm=document.getElementById('lmid'); lm.innerHTML=data+""; }

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

数据库:



递归

复制代码 代码如下:

Sub GetA(TheID)

set rs=server.CreateObject("adodb.recordset")
dim rs,sql
     sql="select * from [DB_Cote] Where ByID in("&TheID&")"
    rs.open sql,conn,1,1
      i=0
   if not rs.eof then
     do while not rs.eof 
       response.Write(rs("cotename")&"<br>")
    call GetA(Rs("id"))
     rs.movenext
     i=i+1
     loop   
   end if
   rs.close
  set rs=nothing

End Sub

if m=empty then m=0
call GetA(m)
%>