把无限级分类生成数组

把无限级分类循环出来确实是一件头疼的事情。
比如,我们要循环出一个SELECT,或一个TABLE,要写一大堆判断。
有没好点的办法呢?
我的做法是生成数组,可以重复调用,直接循环数组就行了。
为了方便,我把它写成了类。
class.asp
返回所有分类的数组,并按顺序排列
有4个属性:


代码如下:

set aa=new classlist 
aa.id="id"//编号的名称 
aa.classname="classname"//分类名称 
aa.pid="pid"//父ID名称 
aa.db_name="class"//表名 
list=aa.arrylist()

代码如下:

<% 
class classlist 
private c_id 
private c_db_name 
private c_pid 
private c_classname 
public property let id(str) 
   c_id = str 
end property 
public property let db_name(str) 
   c_db_name = str 
end property 
public property let pid(str) 
   c_pid = str 
end property 
public property let classname(str) 
   c_classname = str 
end property 
dim list() 
dim i,n 
Private Sub Class_Initialize()'初始化变量 
i=0 
n=0 
End Sub 
public function classarry(thisid,pid)'取得下级ID 
if pid>0 then 
sql="select * from "&c_db_name&" where "&c_pid&"="&thisid 
else 
sql="select * from "&c_db_name&" where "&c_id&"="&thisid 
end if 
set rs_c=conn.execute(sql) 
n=n+1 
do while not rs_c.eof 
list(0,i)=rs_c(c_id)'装入数组中 
list(1,i)=rs_c(c_classname) 
list(2,i)=n 
'n=n+1 
i=i+1 
thisid=classarry(rs_c(c_id),1)'这里递归调用,直到最后一个子类 
rs_c.movenext 
loop 
n=n-1 
rs_c.close 
end function 
public function arrylist()'循环出所有根类 
set rs_c=conn.execute("select count("&c_id&") from "&c_db_name) 
lenght=rs_c(0) 
rs_c.close 
redim list(2,lenght)'设置数组 
set rs1=conn.execute("select "&c_id&" from "&c_db_name&" where "&c_pid&"=0") 
do while not rs1.eof 
call classarry(rs1(c_id),0) 
'n=1 
rs1.movenext 
loop 
rs1.close 
arrylist=list 
end function 
end class 
%>

实例测试:
表CLASS
字段
id:自动编号
classname:名称
pid:父ID
test.asp


代码如下:

<!--#include file="class.asp"--> 
<% 
Set conn=Server.CreateObject("ADODB.connection") 
Set Rs = Server.CreateObject("ADODB.Recordset") 
StrDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" 
StrDSN = StrDSN & Server.MapPath("test.mdb") 
conn.Open strDSN 
function ins(num) 
str="" 
for ii=1 to num 
str=str&"|-" 
next 
ins=str 
end function 
set aa=new classlist 
aa.id="id" 
aa.classname="classname" 
aa.pid="pid" 
aa.db_name="class" 
list=aa.arrylist() 
response.write "<table border=1><tr><td>ID</td><td>名称</td>< td>第几类</td></tr>" 
for j=0 to ubound(list,2) 
response.write "<tr><td>"&list(0,j)&"</td><td>"&list(1,j)&"</td><td>"&list(2,j)&"</td></tr>" 
next 
response.write "</table>" 
'response.write list(1,3) 
%> 
<select name=""> 
<% for i=0 to ubound(list,2)%> 
<option value=""><% 
response.write ins(list(2,i)) 
response.write list(1,i)%></option> 
<%next%> 
</select>

循环结果:
www.hubro.net/code/class/test.asp
基本上可以满足一般的需要了!

(0)

相关推荐

  • php+mysql实现无限级分类 | 树型显示分类关系

    无限级分类,主要是通过储存上级分类的id以及分类路径来实现.由于数据的结构简单,所以要将分类的关系由树状显示,我只能想到用递归的方式给于实现. 无限级分类,主要是通过储存上级分类的id以及分类路径来实现.由于数据的结构简单,所以要将分类的关系由树状显示,我只能想到用递归的方式给于实现,下面是分类数据表结构和自己写的一个树状显示函数,有什么不妥的地方希望大家能指出.  表结构:id字段为分类标识,name字段为分类名,father_id字段为所属父分类的id,path字段为分类路径(储存该分类祖先

  • php 无限级分类学习参考之对ecshop无限级分类的解析 带详细注释

    复制代码 代码如下: function cat_options($spec_cat_id, $arr) { static $cat_options = array(); if (isset($cat_options[$spec_cat_id])) { return $cat_options[$spec_cat_id]; } /* 初始化关键参数: $level:当前子节点深度 $last_cat_id:当前父节点ID $options:带有缩进级别的数组 $cat_id_array:沿同一路径的

  • asp飞飞无限级分类v1.0 Asp+sql+存储过程+ajax提供下载

    本程序由 飞飞Asp乐园 ffasp.com 开发本程序官方下载网址http://www.ffasp.com/content.asp?newsid=945飞飞As!p技术乐园***能说明: 基于AJAX树状目录显示  支持灵活的 目录添加.删除.修改.排序.栏目备注.栏目移动[向上] 支持 栏目选择 使用说明: 默认首页: index.asp 可以进行 目录添加.删除.修改.排序.栏目备注.栏目移动[向上] 栏目选择测试页面:columnshow.asp 栏目选择函数调用说明: 需要引用函数页:

  • Asp.net 无限级分类实例代码

    在网上找了很久也没有找到例子,没办法了,想偷懒也偷不成了,还是自己老老实实的写一个吧.不多废话,下面请看我做的详细方法. 1.无限级分类肯定要数据库支持啦,用户可以动态添加他们的分类嘛,下面是数据库的结构: 数据库主要有三个字段,这是最基本的了.第一个是主键,第二个是分类的名称了,第三个是父级目录id号. 2.成品的效果图:(大家最关心的是不是这个啊?看看是什么样子再看程序怎么吧) 看!!就长这个模样啦,这个层次关系就是上面那个数据所显示的结果.怎么样?还行吧... 3.最后就是提供程序咯,程序

  • ajax+asp无限级分类树型结构的代码

    复制代码 代码如下: <% '数据库字段为类属性,添加.删除.修改.操作检查等函数为类的方法 Class Cls_Leibie     Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrderID,sFilePath '定义私有变量(类的属性,即数据库字段对应的变量)     Private rs,sql,ErrorStr Private Sub Class_Initialize()       

  • PHP+JS无限级可伸缩菜单详解(简单易懂)

    发了几天基础的东西,今天来点稍微难的,一般在CMS系统后台中都要用到的类别管理部分的精华--无限级分类菜单,对于新手来说,这个可能有一定难度,但是今天听完我细细道来,相信以后大家就都会弄这东东了.怎么实现呢?大家先做个数据库出来先: --  -- 表的结构 `cr_columninfo` --  复制代码 代码如下: CREATE TABLE `cr_columninfo` (    `columnid` int(4) NOT NULL auto_increment,    `columnfat

  • ASP 无限级分类实现

    ASP递归无限级分类函数 复制代码 代码如下: <% '函数:getCatagory '功能:获得分类列表 '参数:cat_arr -> 分类数组(Rscordset:id:分类编号,pid:上级分类,classname:分类名称,childs:子分类) ' 按此输出些sql语句,用getRows获取得到的数据 ' cat_pid -> 上级分类编号 ' cat_childs -> 下级分类编号 ' cat_select -> 选择的分类 ' cat_dir -> 分类

  • asp.net(C#)生成无限级别菜单

    首先,创建数据库表的代码如下: 无限级树的数据库表代码 复制代码 代码如下: if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[work_sysmenu]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [dbo].[work_sysmenu] GO CREATE TABLE [dbo].[work_sysmenu] ( [flowid] [

  • php实现无限级分类实现代码(递归方法)

    开始以为这样的功能似乎很难,之前也做过一个百科的东西,其中也涉及到了分类的功能,不过不是无限级的分类,而是简单的实现了固定的三级分类,当时是自己设计的,想在想起来实现方法太土了,其实三级分类也只是无限级分类的一种特殊情况而已嘛.经过一段时间考虑,已经有了一些眉目,到网上一查,原来这样的东西铺天盖地,呵呵.其实无限级下拉列表功能是很简单的,无非就是用一个递归算法就好啦. 首先要设计数据库,需要建一个表,里面存储分类信息,至少需要3个字段,第一个是主键(ID),第二个是父级分类ID(parentid

  • asp实现无限级分类的方法js版

    MenuArr=new Array()MenuLenArr=new Array()SubMenuArr=new Array()MenuIdArr=new Array()MenuArr[1]="<%call top11%>" //洲名|||...MenuArr[2]="<%call top1%>" //洲名###国名|||...MenuIdArr[1]="zhou"MenuIdArr[2]="author"

  • php 无限级数据JSON格式及JS解析

    Flash需要JSON格式的数据,于是,就有了如下代码:(PHP实现,C#类似,JSON库自己去下吧~~) 复制代码 代码如下: //--查询用户下线信息,返回JSON,用于flash if(!empty($_GET['action'])&&!empty($_GET['invite'])){ //固定参数请求才会返回信息 if($_GET['action']=='getinfo'&&$_GET['invite']==1){ //数据实体,一个实体类 class UcInvi

  • php 无限级 SelectTree 类

    复制代码 代码如下: /* author: nick date: 2009.05.17 功能:生成SeletTree 属性: $result 结果集 $id_field 自身id字段 $parent_field 父类id字段 $option_text 选项显示名称 $select_name 下拉菜单的名称 $elected 默认选中 $no_top 是否需要顶层选项 $level 层深度 $parent_id 同层中的id */ class SelectTree{ public $result;

随机推荐