asp:树型select菜单

调用处

<%
Dim rss,u
Set rss = Server.CreateObject("Adodb.RecordSet")
rss.Open "select ID,ParentID,SortName from [Sorts] order by ParentID",Conn,1,1
Response.Write "<select onChange=""MM_jumpMenu('this',this,0)"">"&GetListTree&"<select>"
rss.Close
%>

产生菜单的函数。

Function GetListTree
    Dim Result,i
    Redim u(rss.RecordCount,3)
    for i = 1 to rss.RecordCount
        u(i - 1,0) = rss("ID")
        u(i - 1,1) = rss("ParentID")
        u(i - 1,2) = rss("SortName")
        rss.MoveNext
    next
    'rss.moveFirst
    for i = 0 to uBound(u) - 1
        If Int(u(i,1)) = 0 Then
            Result = Result &"<option value='?SortID="& u(i,0) &"&ParentID="& ParentID &"'>◢"& u (i ,2) &"</option>"& vbcrlf & SunSorts(u(i ,0), 0)
        End If
    next
    GetListTree = Result
End Function

Function SunSorts(who,SunLevel)
        Dim selected
        Dim Result,i,sp,EndID
        for i = 0 to SunLevel
            sp = sp &"--"
        next
        for i = 0 to uBound(u) - 1
            If Int(u(i,1)) = Int(who) Then
                EndID = u(i ,0)
            End If
        next
        for i = 0 to uBound(u) - 1
            If Int(u(i,1)) = Int(who) Then
                If u(i ,0) - EndID = 0 Then
                    Result = Result &"<option "&selected&" value='?SortID="& u(i,0) &"&ParentID="&ParentID&"'>"& sp &"┕"& u(i ,2) & "</option>"& vbcrlf & SunSorts(u(i ,0),SunLevel + 1)
                Else
                    Result = Result &"<option "&selected&" value='?SortID="& u(i,0) &"&ParentID="&ParentID&"'>"& sp &"┝"& u(i ,2) & "</option>"& vbcrlf & SunSorts(u(i ,0),SunLevel + 1)
                End If
            End If
        next
        SunSorts = Result
End Function

效果

posted on 2006-04-24 16:49 堕落的卖猪贩阅读(...) 评论(...) 编辑收藏

转载于:https://www.cnblogs.com/zkxp/archive/2006/04/24/383702.html

asp:树型select菜单相关推荐

php 菜单目录树,css实现的目录树型导航菜单
我这个导航效果是在纵向导航菜单制作的基础上,加入鼠标点击主目录的显示隐藏效果,修改的是DIV代码: onClick="document.getElementByIdx_x('child1') ...
树型目录菜单，菜单图标不是图片，是字体
<html> <head> <title>无限级树形菜单</title> <style> #A1 td { vertical-align: ...
php创建无限级树型菜单以及三级联动菜单
http://www.php.cn/php-weizijiaocheng-373500.html 这篇文章主要介绍了php创建无限级树型菜单 ,主要使用的是递归函数,感兴趣的小伙伴们可以参考一下写递 ...
php创建多级栏目_用PHP实现多级树型菜单
用PHP实现多级树型菜单更新时间:2006年10月09日 00:00:00 作者: //树型目录结构模板程序 //菜单目录库字段说明: //menu_id 菜单项目 id //menu 菜单名称 ...
php树菜单转化为一维菜单,php树型菜单 - iturtle的个人空间 - OSCHINA - 中文开源技术交流社区...
通过处理array,添加level,is_leaf属性实现树型菜单公共类通过处理array,添加level,is_leaf属性实现树型菜单 /*树形分类添加节点属性 *$data, 要处理的节 ...
php 修改多级菜单,用PHP实现多级树型菜单
用PHP实现多级树型菜单 ---摘自互联网 //树型目录结构模板程序 //菜单目录库字段说明: //menu_id 菜单项目 id //menu 菜单名称 //menu_grade 菜单等级 1 为主 ...
用PHP实现多级树型菜单
用PHP实现多级树型菜单 ---摘自互联网 <? //树型目录结构模板程序 //菜单目录库字段说明: //menu_id 菜单项目 id //menu 菜单名称 //menu_grade 菜单等 ...
java 动态树_使用dtree构建动态树型菜单
dtree是一个免费的javascript脚本,只需定义有限的几个参数,就可以做出漂亮的树型菜单.下载目录: 以下是dtree的用法示例: 1)初始化菜单 2)调用函数 2.jsp动态实现分以下步骤 ...
vant树型菜单多级_无限层级菜单—左右值树型数据结构
在上一篇博客中,我提到了后台菜单的问题.其实我不想写,因为比较久了,都差不多忘了,只记得当时理解得很痛苦. 下面这个菜单是一个多层级菜单的,在计算机中心菜单下,有6个子菜单,在子菜单微信管理下 ...
php通用的树型类创建无限级树型菜单
生成树型结构所需要的2维数组,var $arr = array()数组格式如下: array( 1 => array('id'=>'1','parentID'=>0,'name'=& ...

asp:树型select菜单

asp:树型select菜单相关推荐

最新文章

热门文章