|
<!-- 看到论坛里有人发了一个树型菜单,需者甚众,看了一下演示, 似乎不难实现,趁着周六没事,便也写了一个出来 理论上支持无限级分类,发上来与大家分享!! '-------------------------- 名称:无限级分类树型菜单演示 作者: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;"> <!-- 有人问用下拉列表改变文本框的值怎么做,就是这里了 --> |