二级分类与无限极分类代码实现

大鸟，飞起来

游客，如果您要查看本帖隐藏内容请回复

二级分类代码实现

1. Set rs = Conn.Execute("SELECT * FROM EY_NewsClass WHERE NewsClassOwner=0 ORDER BY NewsClassOrder,NewsClassID")
   
2. Do While Not rs.EOF
   
3. Response.Write(rs("NewsClassName"))
   
4. 
   
5. '如果此分类含有子分类，那么把子分类读取出来
   
6. Set rs2 = Conn.Execute("SELECT * FROM EY_NewsClass WHERE NewsClassOwner="&rs("NewsClassID")&" ORDER BY NewsClassOrder,NewsClassID")
   
7. If Not (rs2.EOF And rs2.BOF) Then Response.Write("<br />")
   
8. Do While Not rs2.EOF
   
9.   Response.Write("　　　")
   
10.   Response.Write(rs2("NewsClassName"))
    
11.   Response.Write("<br />")
    
12.   rs2.MoveNext
    
13. Loop
    
14. Set rs2 = Nothing
    
15.   
    
16.   
    
17.   
    
18. '子分类结束
    
19. Response.Write("<br />")
    
20. rs.MoveNext
    
21. Loop
    
22. Set rs = Nothing
    

复制代码

无限极分类代码实现

1. Call nClass(0)
   
2. 
   
3. Sub nClass(numID)
   
4. '如果此分类含有子分类，那么把子分类读取出来
   
5. Set rs2 = Conn.Execute("SELECT * FROM EY_NewsClass WHERE NewsClassOwner="&numID&" ORDER BY NewsClassOrder,NewsClassID")
   
6. If Not (rs2.EOF And rs2.BOF) Then Response.Write("<br />")
   
7. Do While Not rs2.EOF
   
8. Response.Write(rs2("NewsClassName"))
   
9. Call nClass(rs2("NewsClassID"))
   
10. Response.Write("<br />")
    
11. rs2.MoveNext
    
12. Loop
    
13. Set rs2 = Nothing
    
14. End Sub
    

复制代码

苏小年

给力··给力。。。

小祁

下啊下啊下

Usher

好 很好 非常好  ...........

一碗凉拌面

楼上木有JJ

shuaishuai

我来看看，弄了好久，就是不会弄，最后在NewsClass表里面增加了一个字段，把ID全写在里面！

shuaishuai

给后面加了一个字段！