网站导航网学 原创论文 原创专题 网站设计 最新系统 原创论文 论文降重 发表论文 论文发表 UI设计定制 论文答辩PPT格式排版 期刊发表 论文专题
返回网学首页
网学原创论文
最新论文 推荐专题 热门论文 论文专题
当前位置: 网学 > 编程文档 > Ajax > 正文

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

论文降重修改服务、格式排版等 获取论文 论文降重及排版 论文发表 相关服务

网学网为广大网友收集整理了,ajax+asp无限级分类树型结构的代码,希望对大家有所帮助!

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

    Private Sub Class_Initialize()
        ErrorStr=""                    ''初始化错误信息为空
    End Sub

    Private Sub Class_Terminate()    ''销毁类时关闭数据库连接
        If IsObject(Conn) Then 
            Conn.Close
            Set Conn = Nothing
        End If
    End Sub

''*******************设置各个属性******************************************************    
    Public Property Let ClassID(str)    ''获取类别ID(主键)
        nClassID=str
        call ClassProperty()            ''获取类别ID时调用此函数读出类的所有属性
    End Property
    Public Property Let ClassName(str)    ''获取类别名称
        sClassName=str
    End Property

    Public Property Get ClassName
        ClassName=sClassName
    End Property

    Public Property Let ParentID(str)    ''获取类别父ID
        nParentID=str
    End Property

    Public Property Get ParentID
        ParentID=nParentID
    End Property

    Public Property Let ParentPath(str)    ''获取父路径ID
        sParentPath=str
    End Property

    Public Property Get ParentPath
        ParentPath=sParentPath
    End Property

    Public Property Let Depth(str)        ''获取类别深度
     &nb
  • 上一篇资讯: Ajax的小贴士使用小结
  • 设为首页 | 加入收藏 | 网学首页 | 原创论文 | 计算机原创
    版权所有 网学网 [Myeducs.cn] 您电脑的分辨率是 1280 x 720 像素
    Copyright 2008-2020 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号 常年法律顾问:王律师