作者在用ASP写程序时经常用到在下拉框中实现树型目录,为了方便用户使用,固有此文.写得不好请大家谅解. 编程大本营HTTp://www.timihome.net

数据库表结构如(图一)所示:

 
                                                                         图一 不能采集本站

数据库连接部分,呵呵  就不用写了  ...............................

下面是实现的代码:

<%
       sql = "select * from type"
       set rs=server.createobject("adodb.recordset")
       rs.open sql,conn,1,3

      if rs.eof and rs.bof then
               response.write "请先添加栏目。"
               response.end
       else
%>
<select name="typeid" size="1">
        <option selected value="">==请选栏目==</option>
<%
dim num
num = 0      '定义数形目录级,并附初始值0

sort(0)         '调用过程

sub sort(selec)
          sql="select * from type where ParentID = "&selec&" order by categoryorder"
          'Set Rs1=Conn.Execute(sql)
          'response.Write num&"11<br>"

           Set Rs1 = Server.CreateObject("adodb.recordset")
           Rs1.open sql,conn,1,1
                   do while not rs1.eof
                            if selec=0 then
%>
<option value="<%=int(rs1("id"))%>" <% if int(rs1("id"))=rs("ParentID") Then Response.write("Selected") %>><%=rs1("type")%></option>
<%
                            else
%>
<option value="<%=int(rs1("id"))%>" <% if int(rs1("id"))=rs("ParentID") Then Response.write("Selected") %>><%=string(num*2,"--")%>[<%=rs1("type")%>]</option>

 <%
                           end if
                      num=num+1
sort(rs1("id"))
                      num=num-1
                      rs1.movenext
                 loop
rs1.close
Set Rs1 = Nothing
end sub
end if
%>
</select>