無限級分類樹型節點示範

來源:互聯網
上載者:User
<!--
看到論壇裡有人發了一個樹型菜單,需者甚眾,看了一下示範,
似乎不難實現,趁著周六沒事,便也寫了一個出來
理論上支援無限級分類,發上來與大家分享!!
'--------------------------
名稱:無限級分類樹型菜單示範
作者:y0h
最後更新:2004-09-19 22:40
環境:ASP+ACCESS

'//----------List表定義
'Create Table List(ID AUTOINCREMENT,ParentID long,Title Text(50),Url Text(50),Flag bit,ChildNum Long,Target Text(10))
'--------------------------
-->
<style Type=Text/Css>
body,td{font-size:13px;}
a:link { color: #442200; text-decoration: none}
a:visited { color: #444400; text-decoration: none}
a:hover { color: #442200; text-decoration: underline overline; background-color: #FFFF00}
a.link1:link { color: #FF0000; text-decoration:none}
a.link1:visited { color: #FF0000; text-decoration: none}
a.link1:hover { color: #FF0000; text-decoration: none; background-color: #eeeeee}
</Style>
<!-- 有人問同一頁面不同連結的不同風格怎麼做,就是這裡啦 -->

<!-- 添加節點表單 -->
<div align="center" id=load style="display:none;position: absolute;">
<TABLE bgcolor=ffffee width=250 Style="border:1px solid #dd8888;"><FORM METHOD=POST ACTION="" name=form1>
<tr><td align="center">添加節點</td></tr>
<TR><TD align="center">
<INPUT TYPE="hidden" Name="ParentID">
標題:<INPUT TYPE="text" NAME="Title"><BR>
連結:<INPUT TYPE="text" NAME="Url"><BR>
目標:<INPUT TYPE="text" NAME="Target" Style="width:70px">
<SELECT NAME="" Style="width:75px" OnChange="JavaScript:Target.value=this.options[this.selectedIndex].value;">
<!-- 有人問用下拉式清單改變文字框的值怎麼做,就是這裡了 -->
<option value="">Default</option>
<option value="Right">Right</option>
<option value="_black">_black</option>
<option value="_Top">_Top</option>
<option value="_parent">_parent</option>
<option value="_self">_self</option>
</SELECT>
</td></tr><tr><td align="center">
<INPUT TYPE="submit" Name="提交" value="提交">
<INPUT TYPE="Button" onclick="JavaScript:load.style.display='none'" value="取消">
</TD>
</TR></FORM>
</TABLE>
</div>
<!-- 添加節點表單結束 -->

<%
'串連資料庫
set conn=server.createobject("ADODB.Connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("File.mdb")

'//----------操作分支
Action=Request("Action")
Select Case Action
Case "Add":If Request("ParentID")<>"" Then Add
Case "Del": Del
Case "Open":Open
Case Else:
End Select
'//----------顯示列表
Public List
Set Rs=Conn.Execute("Select * From [List]")
If Not Rs.Eof Then
List =Rs.GetRows
Max=Conn.Execute("Select Count(ParentID) From List Where ParentID=0")(0)
Set Rs=Nothing
Set Conn=Nothing
CheckList 0,Max,""
Else
Set Rs=Nothing
Set Conn=Nothing
End If
Response.Write "<a href=# +ID;}//有人問刪除確認怎麼做,就是這裡啦}
//-->
</SCRIPT>

沒有做美化,沒有加其它功能,需要者可以自己改好了!

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 文本,允許空符串



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。