如何输出成ul li这种格式?

manoen 2009-08-17 03:21:00
我想从这个数据库读取数据然后输出成ul li 这种格式，做为菜单的数据。尝试多次，但一直未能解决。请教网上的朋友帮我分析一下，给一个思路。非常感谢!



<html>

<head>

<meta http-equiv="Content-Language" content="zh-cn">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>ClassID</title>

<style>

<!--

BODY{font:x-small 'Verdana';margin-right:1.5em}

.e{margin-left:1em;text-indent:-1em;margin-right:1em}

.c{cursor:hand}

-->

</style>

</head>

<body>

<p>表结构</p>

<table border="1" width="100%" id="table1" style="border:0px #0000FF solid;">

	<tr>

		<td width="143" bgcolor="#999999"><font color="#FFFFFF"><b>字段名称</b></font></td>

		<td width="157" bgcolor="#999999"><font color="#FFFFFF"><b>数据类型</b></font></td>

		<td bgcolor="#999999"><font color="#FFFFFF"><b>说明</b></font></td>

	</tr>

	<tr>

		<td width="143">ClassID</td>

		<td width="157">数字</td>

		<td>栏目ID</td>

	</tr>

	<tr>

		<td width="143">ClassName</td>

		<td width="157">文本</td>

		<td>栏目名称</td>

	</tr>

	<tr>

		<td width="143">ParentID</td>

		<td width="157">数字</td>

		<td>父栏目ID</td>

	</tr>

	<tr>

		<td width="143">ParentPath</td>

		<td width="157">文本</td>

		<td>栏目路径</td>

	</tr>

	<tr>

		<td width="143">Depth</td>

		<td width="157">数字</td>

		<td>栏目层数</td>

	</tr>

	<tr>

		<td width="143">RootID</td>

		<td width="157">数字</td>

		<td>根栏目ID</td>

	</tr>

	<tr>

		<td width="143">Child</td>

		<td width="157">数字</td>

		<td>子栏目数</td>

	</tr>

	<tr>

		<td width="143">PrevID</td>

		<td width="157">数字</td>

		<td>同级的上一个栏目ID</td>

	</tr>

	<tr>

		<td width="143">NextID</td>

		<td width="157">数字</td>

		<td>同级的下一个栏目ID</td>

	</tr>

</table>

<br>

请问如何输出如下这样的形式？

	<p><textarea rows="13" name="S1" cols="66"><ul>

	<li>上海</li>

	<li>广东<ul>

		<li>深圳<ul>

			<li>宝安区 

			<ul>

				<li>龙华</li>

				<li>沙井</li>

				<li>平湖</li>

			</ul>

			</li>

			<li>福田区</li>

			<li>罗湖区</li>

		</ul>

		</li>

		<li>广州</li>

	</ul>

	</li>

</ul>

</textarea></p>

</body>

</html>


我用ASP写了一个，但还是有点问题，发现少了两个"</li>",不知道问题出在哪里，分不够的话，我还可以加分。
为何不能发附件呢？


<%

Call getMenuData("CL_sysClass3")



'**************************************************

'函数名：getMenuData(dbTableName)

'作  用：生成菜单数据

'参  数：getMenuData(数据表名)

'返回值：

'**************************************************

Function getMenuData(dbTableName)

       Dim Rs,SQL,i,n

       Dim inta,ndep,pdep,intb,str1

       SQL = "SELECT ClassID,ClassName,ParentID,Depth,Child FROM "&dbTableName&" ORDER BY RootID,OrderID "

       Set Rs = Conn.Execute(SQL)

       If Rs.Bof And Rs.Eof Then

              Exit Function

       Else

              n = 0

              pdep = 0

              Response.Write("<ul>")

              While Not(Rs.Eof)

                     ndep = Rs("Depth")

                     Select Case (ndep-pdep)

                            Case 0 

                                   If n = 0 Then

                                          Response.Write("<li>")                            '兄弟

                                   Else

                                          If Rs("ParentID") = 0 Then

                                                 Response.Write("</li><li></li><li>")                     '兄弟

                                          Else

                                                 Response.Write("</li><li>")                     '兄弟

                                          End If

                                   End If

                            Case 1 

                                   Response.Write("<ul><li>") '子节点

                            Case Else                                                                        '父亲

                                   str1 = "</li>"

                                   For i = 1 To (pdep-ndep)

                                          str1 = str1 + "</ul>"

                                   Next 

                                   If Rs("ParentID") = 0 Then

                                          str1 = str1 + "</li><li></li><li>"

                                   Else

                                          str1 = str1 + "</li><li></li><li>"

                                   End If

                                   Response.Write(str1)

                     End Select 

                     Response.Write(""&Rs("ClassName")&"")

                     pdep = ndep

                     n = n + 1

                     Rs.Movenext()

              Wend

              For i = 1 To pdep

                     Response.Write("</li></ul>")

              Next

              Response.Write("</ul>")

       End If

       Rs.Close:Set Rs = Nothing

End Function

%>


输出后：


<ul>

  <li>常规管理

    <ul>

      <li>宇通

        <ul>

          <li>权限</li>

        </ul>

      </li>

      <li></li>

      <li>系统相关2</li>

      <li>权限管理</li>

    </ul>

  </li>

  <li></li>

  <li>网站管理

    <ul>

      <li>中国

        <ul>

          <li>广东

            <ul>

              <li>广州</li>

              <li>深圳

                <ul>

                  <li>福田区</li>

                  <li>南山区</li>

                </ul>

              </li>

              <li></li>

              <li>中山</li>

            </ul>

          </li>

          <li></li>

          <li>广西</li>

        </ul>

      </li>

      <li></li>

      <li>日本</li>

      <li>印度</li>

    </ul>

  </li>

  <li></li>

  <li>版面管理</li>

  <li></li>

  <li>用户相关</li>

  <li></li>

  <li>风格界面

    <ul>

      <li>联想</li>

      <li>惠普</li>

      <li>sfer</li>

      <li>adwe</li>

      <li>sfera</li>

    </ul>

  </li>

  <li></li>

  <li>贴子管理</li>

  <li></li>

  <li>数据处理

    <ul>

      <li>ddwwad</li>

      <li>nghbbn</li>

    </ul>

  </li>

  <li></li>

  <li>文件管理

    <ul>

      <li>上传头像管理</li>

      <li>上传文件管理</li>

    </ul>

  </li>

  <li></li>

  <li>插件管理

    <ul>

      <li>菜单管理</li>

      <li>个性圈子管理</li>

    </ul>

  </li>

  <li></li>

  <li>系统相关

    <ul>

      <li>系统信息检测</li>

      <li>系统日志

        <ul>

          <li>正确</li>

          <li>错误</li>

          <li>其它

            <ul>

              <li>警告</li>

            </ul>

        </ul>

      </li>

      <li></li>

      <li>帮助管理</li>

      <li>更新缓存</li>

    </ul>

</ul>

...全文
234 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhouzangood 2009-08-25
  • 打赏
  • 举报
 回复
友情帮顶
manoen 2009-08-17
  • 打赏
  • 举报
 回复
谢谢大家的回复，用什么语言都可以的。用递归有些不太满意。。。。
imshi 2009-08-17
  • 打赏
  • 举报
 回复
asp啊,忘得差不多了...
用asp.net做这个真是太容易了
slund 2009-08-17
  • 打赏
  • 举报
 回复
试试js.
Jinglecat 2009-08-17
  • 打赏
  • 举报
 回复
转 Web/ASP 版本，已经忘了 ASP 语法了
zhengqian529 2009-08-17
  • 打赏
  • 举报
 回复
是要做一个菜单结构么?
再网上搜索下dtree看看,是需要那样子的么?
银狐被占用 2009-08-17
  • 打赏
  • 举报
 回复
递归
huyou1983218 2009-08-17
  • 打赏
  • 举报
 回复
Repeater
zhulong1111 2009-08-17
  • 打赏
  • 举报
 回复
vb啊 顶下
hui_1019 2009-08-17
  • 打赏
  • 举报
 回复
<asp:Repeater ID="repeater1" runat="server">
<ItemTemplate>
<p><textarea rows="13" name="S1" cols="66"><ul>
<li>
<%# Eval("City") %>
<ul>
<li><%# Eval("Area") %>
<ul>
<li><%# Eval("address") %></li>
</ul>
</li>
</ul>
</li>

</ul>
</textarea></p>

</ItemTemplate>
</asp:Repeater>
阿非 2009-08-17
  • 打赏
  • 举报
 回复
... 这是asp.net 版块 ~
HTML从入门到精通
HTML是网页制作最基础的编程语言，本课程主要介绍html语言，以及html标签、html文件结构、head标签,还有在html中的注释代码的作用。除此之外课程还回讲解HTML中的常见标签，如div，p，a，span，ul，li，table，form，iframe等。课程重点：表单标签。表单是网页中重要的元素之一，是网页与服务器进行数据交换的主要标签。
HTML上的ul li标签消除,去掉ul li 前面的点与空白（div+css）
如果直接在网页用 ul li 标签，默认情况下有一个小黑点，并且每个li前面还有一段空白，尤其是li中包括图片的情况。为什么会出现这种情况？ul li 是 html 中的列表标签，所以默认每个li前面都有一个小黑点。而每个li前面空白与 padding 和 margin 有关，padding 是内间距，margin 外边距。仅用文字说明不太形象，下面将分别举例说明去掉 ul li前面的点的方法和列...
html中ul li前面小黑点样式 ul li一些样式
对于很多人用div来做网站时，总会用到，但在显示效果时前面总是会有一个小黑点，这个令很多人头痛，但又找不到要源，其它我们可以用以下方法来清除。 1、在CSS中写入代码。找到相关性的CSS，在。.li和.ul下写入list-sytle:none;当然有的会这样来写list-style-type:none, 这种写法特别是在一些CMS中最常见。 2、在相关的页面找到head部分写入下面的代码 lis
html ul li多级菜单,通过ul li标签实现二级菜单后添加a标签出现的问题
菜单实现后，弹出、悬浮变色什么的都没有问题如图：仅仅给ul的每个li的内容添加a标签后，就是下面的样子的NewsNewZealandAustraliaBritainFrancecss代码：.nav_ul,.nav_ul li{height: 30px;display: inline-block;}.nav_ul li{line-height: 30px;padding-left: 15px;p...
ul li横向排列php,如何让ul实现横向排列不换行的效果
大家在页面布局时有没有遇到这种情况，让ul横向排列时，它会换行，但是这不是我们希望看到的效果，你知道怎么处理这种情况吗？这篇文章就和大家聊聊如何让ul实现横向排列不换行，感兴趣的欢迎阅读评论。刚学前端不久，尝试着写各种布局。今天想实现一个横向排列的照片列表，于是最先想到的就是利用ul将list-style设置为none。但是这样只是仅仅将ul默认为横向排列，并没有限制ul一定不换行。当ul设置的宽...
.NET社区

62,072

社区成员

669,028

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章