asp 无限级分类 代码

 代码如下 复制代码

Response.Write " <select name=""classType"">"
        Response.Write "<option value=""0"">做为一级分类</option>"
        Set Rsp=Conn.Execute("SELECT Classid,depth,ClassName FROM Zjc_ClassInfo ORDER BY ChannelId,Orders,RootId")
        If Not (Rsp.Eof And Rsp.Bof) Then
        Do While Not Rsp.EOF
                Response.Write "<option value=""" & Rsp("classid") & """ "
                Response.Write ">"
                If Rsp("depth") = 1 Then Response.Write "&nbsp;&nbsp;├ "
                If Rsp("depth") > 1 Then
                        For i = 2 To Rsp("depth")
                                Response.Write "&nbsp;&nbsp;│"
                        Next
                        Response.Write "&nbsp;&nbsp;├ "
                End If
                Response.Write Rsp("ClassName") & "</option>" & vbCrLf
                Rsp.movenext
            Loop
        Rsp.Close
        Set Rsp = Nothing
        End If
        Response.Write "</select>"
时间： 2024-11-15 00:29:03

asp 无限级分类 代码的相关文章

asp 无限级分类代码

Function GetSonID(ParentID)        G_sql = "Select * From select_Class Where ParentID = " & int(ParentID)        Set Srs = Easp.db.GetRecordBySQL(G_sql)        If Not Srs.Eof Then        While Not Srs.eof               GetSonID = GetSonID &a

Thinkphp无限级分类代码_php技巧

本篇就一点一点教大家写一个无限级分类出来,其实掌握一个知识,最主要的是要掌握无限级分类的逻辑,那么写起来就很容易的多了. 首先看数据库表:xp_cate 控制器:CateAction.class.php <?php class CateAction extends Action{ function index(){ $cate=M('Cate'); $list=$cate->field("id,name,pid,path,concat(path,'-',id) as bpath&qu

完整的新闻无限级分类代码,可添加,删除,移动,修改

<?php教程 //连接数据库教程 $link = mysql教程_connect('localhost','root','密码') or die(mysql_error()); mysql_select_db('sortclass',$link); mysql_query("set names 'gbk'"); //无限分类类库 class sortclass{ var $data = array(); var $child = array(-1=>array()); v

asp无限级分类加js收缩伸展功能代码

为了方便使用分类,我定义了一个分类表category,里面字段是id(自动编号)  cat_name(分类名) parent_id(父ID,对应本表ID) cat_order(顺序) is_show(是否显示)  u_id(这个用来区别是新闻分类,还是产品分类,还是其他分类),为了方便,我将这些分类全部放在这张表中.在给客户添加分类的时候,结果有太多的分类,本来前台显示的时候,将它们全部显示出来了,好长.客户提出修改意见,要求将它们改成点击大分类,才可以将其子分类显示出来,并且每个分类下面还有一

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

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

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

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

带数据库的ajax+asp无限级分类树型结构,好东西别错过！

跟大家分享一下自己写的一个树型结构,参考了动力文章的无限极分类树形结构数据库,看演示吧http://asptree.guaishi.org/aspajax/ 下面是核心类代码,注释是后来加的,可能有些写的不太正确 复制内容到剪贴板 代码: <%'数据库字段为类属性,添加.删除.修改.操作检查等函数为类的方法Class Cls_Leibie    Private nClassID,sClassName,nParentID,sParentPath,nDepth,nRootID,nChild,nOrd

ajax+asp无限级分类树型结构(带数据库)_应用技巧

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

ASP 无限级分类实现_应用技巧

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