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

2024-09-01 08:29:37

字体：大中小

来源：转载

供稿：网友

代码如下:
<%
'数据库字段为类属性，添加、删除、修改、操作检查等函数为类的方法
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

上一篇：Ajax获取页面被缓存的解决方法

下一篇：AJAX javascript的跨域访问执行