28,390
社区成员
发帖
与我相关
我的任务
分享递归显示，如何分页！
<!-- #include file="conn.asp" -->
<%
dim ii
ii=0
sorta(19)
sub sorta(selec)
sql="Select * From ClassTree where followid="&selec&""
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
if selec=0 then
%>
<%=rs1("ClassName")%><br />
<%
else
%>
<%=string(ii*2," ")%><%=rs1("ClassName")%><br />
<%
end if
ii=ii+1
sorta rs1("id")
ii=ii-1
rs1.movenext
loop
Set Rs1 = Nothing
end sub
%>
<%
dim ii
ii=0
sorta(19)
sub sorta(selec)
sql="Select * From ClassTree where followid="&selec&""
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
if selec=0 then
%>
<%=rs1("ClassName")%><br />
<%
else
%>
<%=string(ii*2," ")%><%=rs1("ClassName")%><br />
<%
end if
ii=ii+1
sorta rs1("id")
ii=ii-1
rs1.movenext
loop
Set Rs1 = Nothing
end sub
%>
...全文
请发表友善的回复…
发表回复
yuanxiaolei 2007-04-26
- 打赏
- 举报
递归显示，如何分页！
smartcatiboy 2007-04-26
- 打赏
- 举报
你这样数据库要被玩爆的，最好用栈或者B树。
yuanxiaolei 2007-04-26
- 打赏
- 举报
大家帮个忙呀！
