如何编写家谱世系图？

以word 2007为例，方法如下：

1、依次单击“插入”、插图框中的“SmartArt”，在出现的对话框中选择“层次结构”、在右边出现的“组织结构图”中选中竖排或横排的结构图例，双击出现的“文本”，填写家谱姓氏辈份等信息。

2、家族人丁兴旺的可以在不同的辈份（行或列）添加多个文本，具体方法是点击想要添加位置附近文本框，在菜单栏中点击“添加形状”，在子菜单中选择在后、前、上、下添加即可铅敬。

3、页面布局可以设槐腔慎置为横板，纸张设置大些，因为家谱人员太多，一张圆竖A3横板往往都写不下。

分类: 电脑/网络 >>程序设计 >>其他宏李编程语言

问题描述:

这个网站wjct里..比如搜索姓陈的.会有两个排列方式.一个叠式.一个塔式.叠的容易实现.塔的结构.用ASP是怎么实现的.我不太会用递归.请告诉解决.给个思路也行..

这个是具 *** 置wjct/pedigree?id=41&idn=陈铺头世系宗谱（二门）

解析:

sub tree(parentid,istop)

if istop then

sql="select * from tree where id=" &parentid &" and parentid=0"

else

sql="select * from tree where parentid=" &parentid

end if

set rs=server.createobject("adodb.recordset")

rs.open sql,conn,1,1

if not rs.eof then

redim arr_temp(rs.recordcount)

i=0

response.write "<table border=0 cellspacing=2 cellpadding=0><tr>"

while not rs.eof

arr_temp(i)=rs("id")

response.write "<td align='center' bgcolor='#CCCCCC'>" &rs("title") &"</td>"

i=i+1

rs.movenext

wend

response.write "</tr><tr>"

for j=0 to i-1

response.write "<td>"

Call tree(arr_temp(j),false)

response.write "</td>"

next

response.write "</tr></table>"

end if

end sub

call tree(1,true)

测试通过!~

要数据库+源码的,请下载:

irich/images/tree.rar

请在5号前下载,,要不5号后我不枯判担没绝改保还能不能下

---