关于无限级select下拉菜单的补充--针对于已存在值的状态获取

最新推荐文章于 2021-03-22 08:08:12 发布

原创最新推荐文章于 2021-03-22 08:08:12 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function #sql #数据库 #脚本

Js Web 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一种通过递归函数获取数据库中新闻条目层级的方法，并提供了具体的VBScript实现代码。此外，还展示了如何利用这些层级信息来动态展示多级菜单。

编辑时候的调用在最上面增加如是代码：

演示地址
http://www.why9.com/sort

如果数据库没有设置depth字段可以递归取得depth函数如下 Get_level()

Function Get_level(id)
   dim rs,sql
   Sql="Select upperid from pp_news Where id="&id
   Set rs=Conninner.Execute(Sql)
    If not rs.Eof and not rs.bof then
     Level=Get_level(rs("upperid"))+1
    Else
     Exit Function
    End if
   Set rs=nothing
   Get_level=Cint(Level)
End Function

dim strings:strings=""
     function getstr(id)
     set rsstr=conn.execute("select upperid from pp_news where id="&id)
      if not rsstr.eof then
      if rsstr("upperid").value<>"0" then strings=strings&","&rsstr("upperid").value
      dim tempid
      tempid=rsstr("upperid").value
      rsstr.close
      call getstr(tempid)
      else
      getstr=strings
      end if
     end function
     dim sorts
     call getstr(sortid)
     sorts=sortid&strings
     response.write("<script> var sorts="""&sorts&"""; var ss="""&sortid&"""</script>")

在脚本处增加如下代码
for(var k=sortary.length-1;k>-1;k--)
{
document.all.mainsel[k].style.display="block"
}
for(var kk=sortary.length-1;kk>-1;kk--)
{
for(var k=sortary.length-1;k>-1;k--)
{
  for(var jk=0;jk<document.all.mainsel[k].length;jk++)
  {
   if(document.all.mainsel[k].options[jk].value==sortary[kk])
   {
   document.all.mainsel[k].options[jk].selected=true
   if(k<sortary.length-1){
   dosel(document.all.mainsel[k].options[jk].value,document.all.mainsel[k+1])
   }
   }
  }
}
}
在页末body前增加
<script>
setmainval(ss)
</script>