"'//------------顯示列表函式
function checklist(parentid,cs,str1)
dim j
j=0for i=0 to ubound(list,2)
if list(1,i)=parentid then
response.write(str1)
if j0 then str2=""&str2&""
if list(5,i)>0 and list(4,i)=false then str2=""&str2&""
response.write(str2)
response.write ""&list(2,i)&" "&vbcrlf
'新增節點鏈結
response.write "新增"&vbcrlf
response.write "刪除
"if list(4,i)=true then
if j關鍵所在,遞迴呼叫
end if
j=j+1
end if
next
end function
'//-----------新增函式
function add
parent=clng(request("parentid"))
title=replace(request("title"),"'","''")
url=replace(request("url"),"'","''")
target=replace(request("target"),"'","''")
if title="" or url="" then
response.write "至少有乙個必須引數沒有指定值 返回"
response.end
exit function
end if
sql="insert into list (parentid,title,url,target) values ("&parent&",'"&title&"','"&url&"',' "&target&"')"
conn.execute(sql)
if parent<>0 then
sql="update list set childnum=childnum+1 where id="&parent
conn.execute(sql)
end if
end function
'//-----切換節點狀態
function open
sql="update list set flag=not flag where id="&clng(request("id"))
conn.execute(sql)
end function
'//-----------刪除節點
function del
on error resume next
id=clng(request("id"))
parentid=conn.execute("select parentid from list where id="&id)(0)
num=conn.execute("select count(id) from list where parentid="&id)(0)
conn.execute("update list set childnum=childnum-1+"&num&" where id="&parentid)
conn.execute("update list set parentid="&parentid&" where id in (select id from list where parentid="&id&")")
conn.execute("delete from list where id="&id)
if err.number<>0 then
response.write "您做的操作無效,可能是該項已經刪除!! 返回"
response.end
end if
end function
%>
沒有做美化,沒有加其它功能,需要者可以自己改好了!
create table list(id autoincrement,parentid long,title text(50),url text(50),flag bit,childnum long,target text(10))
直接在查詢裡執行就可以得到list表!!
下面是對錶的說明
id 自動編號
parentid 長整形
title 文字
url 文字
flag 布林
childnum 長整形
target 文字,允許空符串
php無限分類與樹形選單
name phptree des php生成樹形結構,無限多級分類 version 1.2.0 licensed updated 2015 08 26 class tree 生成線性結構,便於html輸出,引數同上 public static function maketreeforhtml dat...
ASP無限分類資料庫版
asp無限分類資料庫版 const issql 0 定義資料庫型別,1為sql server,0為access function openconn conn 開啟資料庫連線 dim connstr if issql 1 then 如果是sql server資料庫 sql server資料庫連線引數 ...
PHP實現選單無限極分類
一般的專案選單根據不同的使用者,不同的角色登入,顯示不同,如果僅僅用if else來判斷就顯得很笨拙,如果要修改選單就很麻煩。最好的方法就是把選單儲存在資料庫，然後從資料庫中取出，遍歷出來，顯示到頁面上。本文章的目的就是查詢出來的資料，如何把選單的韓上下級一 一對應 這裡我們的選單資料是臨時資料,沒...