池氏宗亲
历史名人录 当代名人录 池氏通讯录 网络留踪 人名速查

池氏名人录

池氏通讯录

添加新成员 修改已有记录的内容 按姓名音序排列 按籍贯音序排列 按更新时序排列 给版主留言
<% CoStr="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("chistxl.mdb") Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open CoStr CommandText="select * from namelist order by 姓名" Set rs=Server.CreateObject("ADODB.Recordset") rs.Open CommandText,Conn,1,1 ficount=rs.Fields.Count Response.write "" Response.write "" For I=1 To ficount-7 If I <> 14 Then Response.write "" End If Next Response.write "" '2004年8月29日恢复数据库中的CHISID字段，在显示界面删除族谱链接。 ' Response.write "" Response.write "" While Not rs.EOF existHL=rs(14).Value Response.write "" If rs(14).ActualSize<1 Then Response.write "" Else Response.write "" End If For I=2 To ficount-7 If I=3 Then If rs(3).Value=true Then Response.write "" Else Response.write "" End If Else If I<>14 Then Response.write "" End If End If Next If rs(19).ActualSize<1 Then Response.write "" Else Response.write "" End If ' If rs(20).ActualSize<1 Then ' Response.write "" ' Else ' Response.write "" ' End If Response.write "" rs.MoveNext WEND Response.write "
" & rs(I).Name & "传记族谱
" & rs(1).Value & "" & rs(1).Value & "男女" & rs(I).Value & "暂无传记暂未入看族谱
" Response.write "
池氏通讯录目前收录了" & rs.RecordCount &"条记录，收集工作仍在进行中。" Response.write "
如发现错讹、断链等，或有任何建议和线索，请与阿池联系。" rs.Close Set rs=nothing Set Conn=nothing %>
添加新成员 修改已有记录的内容 按籍贯音序排列 给版主留言

另注：

  1. 提示：本列表属于宽幅列表,只方便大致浏览。要查看每人的详细资料,请使用人名速查。
  2. 自动维护通讯录数据库的相应功能模块实现之前的有关信息如属不当公布，请速通知本人，以便及时取下。
  3. 如有非池姓来宾，请在留言簿上留言，或给我写信。

　　　　　　　　　　　　　　　　　　　阿池　hackchi@hackchi.com   于02.12.5