ASP递归层级表格数据展示

最新推荐文章于 2021-05-11 21:27:01 发布

黑衣教主

最新推荐文章于 2021-05-11 21:27:01 发布

阅读量660

点赞数

分类专栏： ASP

本文链接：https://blog.csdn.net/webczw/article/details/8206490

版权

ASP 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

代码如下：

<!--#include file="include/config.asp"-->
<!--#include file="common/sub_function.asp"-->
<htm>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>2012年6月工程进度报审表</title>
</head>
<body>
<table border="1"  cellpadding="0" cellspacing="0">
  <tr>
    <td width="260">项目费用名称</td>
    <td width="120">分项权重%</td>
    <td width="120">截止上月累计进度完成%</td>
    <td width="120">本月完成进度%(或里程碑点)</td>
    <td width="120">截止本月累计进度完成%</td>
    <td width="120">备注</td>
    </td>
  </tr>
  <%call wbs_tree(93,1)%>
</table>
<%
Function wbs_tree(id,i)
strSQL="SELECT * from PLN_projwbs where parent_wbs_id="&id&" order by seq_num"
Set rsTest = Server.CreateObject("ADODB.Recordset") '打开纪录集对象
rsTest.Open strSQL, cnn 
if not rsTest.eof then
	do while not rsTest.eof 
		wbs_id = rsTest("wbs_id")' WBS主键ID
		wbs_name=rsTest("wbs_name")'WBS名称
		haschild = ccint(rsTest("haschild"))'是否有子节点
		style = " style=""padding-left:"&(i*30)-30&"px"""'左填充WBS名称
		response.Write("<tr><td"&style&">"&wbs_name&"</td><td>1</td><td>1</td><td>1</td><td>1</td><td>1</td></tr>")
		if haschild=1 then
			call wbs_tree(wbs_id,i+1)'i为层级数
		end if
	rsTest.movenext
	loop
	rsTest.close 
	set rsTest=nothing 
end if
End Function
%>
</body>
</html></html>
<!--#include file="include/dispose.asp"-->

运行效果图如下：

黑衣教主

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
ASP递归层级表格数据展示

代码如下：2012年6月工程进度报审表项目费用名称分项权重% 截止上月累计进度完成% 本月完成进度%(或里程碑点) 截止本月累计进度完成% 备注 <%Function wbs_tree(id,i)strSQL="SELECT * from PLN_projwbs where parent_w
复制链接

扫一扫