//boardid 文章ID（自動增長） parentid 父級ID 默認為0 (0代表最高級) boardtype 菜單名. 其它字段省
----------------------------------------------
| boardid | type | parentid |
----------------------------------------------
核心代碼:
//先取出最高級(parentid=0)的分類
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from board where parentid=0 order by id"
rs1.open sql1,conn,1,1
if rs1.eof or rs1.bof then
response.write"還沒論壇分類!"
else
while not rs1.eof
id1=rs1("id")
type1=rs1("boardtype")
parentid1=rs1("parentid")
call recursion(id1,type1,parentid1)
rs1.movenext
wend
end if
rs1.close
set rs1=nothing
%>
<%
sub recursion(id,m_boardtype,m_parentid)
'遞歸調用函數,生成一個類別代碼
set rs=server.createobject("adodb.recordset")
sql="select * from board where parentid="&id
rs.open sql,conn,1,1
while not rs.eof
id0=rs("id")
type0=rs("boardtype")
parentid0=rs("parentid")
call recursion(id0,type0,parentid0)
rs.movenext
wend
rs.close
set rs=nothing
%>
|
|
當前位置：開發者網絡 >> 技術教程 >> ASP教程 >> 腳本編碼 >> 內容
