池氏宗亲-网络留踪

池氏宗亲

网络留踪

池氏名人录

　　　　　　　　　　　　　网络留踪录

<% CoStr="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/chi/db/chiwhos.mdb") Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open CoStr CommandText="select * from netrace order by 更新日期 DESC,姓名" 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 <> 13 Then Response.write "" End If Next Response.write "" '2004年8月29日恢复数据库中的CHISID字段，在显示界面删除族谱链接。 ' Response.write "" Response.write "" While Not rs.EOF existHL=rs(13).Value Response.write "" If rs(13).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=15 Then Response.write "" Else If I<>13 Then Response.write "" End If 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 & "	男	女	" & Left(rs(I).Value,100) & "	" & rs(I).Value & "	暂无	传记	暂未入	看族谱

" Response.write "
网络留踪录目前收录了" & rs.RecordCount &"条记录，收集工作仍在进行中。" Response.write "
如发现错讹、断链等，或有任何建议和线索，请与阿池联系。" rs.Close Set rs=nothing Set Conn=nothing %>

另注：

提示：本列表属于宽幅列表,只方便大致浏览。要查看每人的详细资料,请使用人名速查。
本栏目的信息全部属于网上公开信息，如有异议，请速通知本人。

　　　　　　　　　　　　　　　　　　　阿池　hackchi@hackchi.com 于04.9.21