大鸟，飞起来 发表于 2011-5-17 21:38:33

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

**** Hidden Message *****
二级分类代码实现

Set rs = Conn.Execute("SELECT * FROM EY_NewsClass WHERE NewsClassOwner=0 ORDER BY NewsClassOrder,NewsClassID")
Do While Not rs.EOF
Response.Write(rs("NewsClassName"))

'如果此分类含有子分类，那么把子分类读取出来
Set rs2 = Conn.Execute("SELECT * FROM EY_NewsClass WHERE NewsClassOwner="&rs("NewsClassID")&" ORDER BY NewsClassOrder,NewsClassID")
If Not (rs2.EOF And rs2.BOF) Then Response.Write("<br />")
Do While Not rs2.EOF
Response.Write("　　　")
Response.Write(rs2("NewsClassName"))
Response.Write("<br />")
rs2.MoveNext
Loop
Set rs2 = Nothing



'子分类结束
Response.Write("<br />")
rs.MoveNext
Loop
Set rs = Nothing

无限极分类代码实现
Call nClass(0)

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

苏小年 发表于 2011-5-17 21:39:06

给力··给力。。。

小祁 发表于 2011-5-17 21:41:44

下啊下啊下

Usher 发表于 2011-5-17 21:41:53

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

一碗凉拌面 发表于 2011-5-17 21:42:03

;P 楼上木有JJ

shuaishuai 发表于 2012-4-11 08:59:25

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

shuaishuai 发表于 2012-4-11 09:42:40

给后面加了一个字段！
页: [1]
查看完整版本: 二级分类与无限极分类代码实现