01.<%
02.sub discussionmanage()
03.
04. response.write("<span class=""textsubhead"">Discussion setting</span><br />" & vbcrlf)
05. sql = "select * from " & dbprefix & "forums where parent_id IS NULL"
06. rs.open sql,con,1,3
07.
08. do while not rs.eof
09. response.write(rs("forum_name") & "<br />")
10. call listcategoryadmin(rs("forum_id"))
11. rs.movenext
12. loop
13.
14. rs.close
15.end sub
16.
17.sub listcategoryadmin(parentid)
18.
19.
20.
21. sql2 = "select * from " & dbprefix & "forums where "
22. if parentid = "" then
23. sql2 = sql2 & "parent_id IS NULL"
24. elseif parentid <> "" then
25. sql2 = sql2 & "parent_id = " & parentid & ""
26. else
27. sql2 = sql2 & "parent_id = " & parentid & ""
28. end if
29. sql2 = sql2 & " group by parent_id"
30. set rs2 = con.execute(sql2)
31. do while not rs2.eof
32. FID = rs2("forum_id")
33. response.write(rs2("forum_name") & "<br />")
34.
35. call listcategoryadmin(FID)
36. if not rs2.eof then
37. rs2.movenext
38. end if
39. loop
40.
41.
42.end sub
43.%>
