三层动态下拉菜单的例子 -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 三层动态下拉菜单的例子

三层动态下拉菜单的例子 时间：2004/11/7 3:00:00来源：本站整理作者：蓝点我要评论(0)

写了一个三层动态读取文件夹的下拉菜单的例子，供大家参考！

<%

'得到文件夹路径。注意设置文件名字

urlpath=server.mappath("\book")

set fsoBrowse=CreateObject("Scripting.FileSystemObject")

'设置文件夹路径

if Request("path")="" then

lpath=urlpath&"\"

else

lpath=Request("path")&"\"

end if

%>

中国国际航空公司

     <%

       '处理第一层文件目录

       dim theFolder,theSubFolders

       if fsoBrowse.FolderExists(lpath)then

       Set theFolder=fsoBrowse.GetFolder(lpath)

       Set theSubFolders=theFolder.SubFolders



       '循环输出第一层文件

       i=1

       For Each x In theSubFolders

       k="KB"&i

       Parent=k&"Parent"

       i=i+1

     %>

<%=x.Name%>

        <%'处理第二层文件

          onepath=lpath&x.Name&"\"

          if fsoBrowse.FolderExists(onepath) then

          Set ChildtheFolder=fsoBrowse.GetFolder(onepath)

          Set ChildtheSubFolders=ChildtheFolder.SubFolders

          Child=k&"Child"

        %>

        <%'循环输出第二层文件

          m=1

          For Each y In ChildtheSubFolders

          k="KB"&i&m

          m=m+1

        %>

               

<%=y.Name%>

              <%

              '处理第三层文件

              twopath=onepath&y.Name&"\"

              if fsoBrowse.FolderExists(twopath) then

                 Set gtheFolder=fsoBrowse.GetFolder(twopath)

                 Set gtheSubFolders=gtheFolder.SubFolders



                 Child=k&"Child"

              %>

                 <%

                 '循环输出第三层文件

                 For Each z In gtheSubFolders

                                     %>

                         

<%=z.Name%>

                 <%

                 Next

                 %>

              <%

                end if

              %>

        <%

          Next

        %>

        <%

          end if

        %>

     <%

       Next

       end if

     %>