池氏宗亲-当代名人录

<% ' session("voted")=False '为名人投票准备——2004.10.9 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 man where Type like '3' order by GoogleIndex DESC,姓名,FameIndex DESC" ' CommandText="select * from man order by Name1" Set rs=Server.CreateObject("ADODB.Recordset") rs.Open CommandText,Conn,1,1 recount=rs.RecordCount ' ficount=rs.Fields.Count ' Response.write "池氏名人查询结果" ' Response.Write "
共发现" & rs.RecordCount &"个记录!
" ' Response.write "

" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" '2009年3月26日不显示“来源”一栏 ' Response.write "" '2004年8月29日恢复数据库中的CHISID字段，在显示界面删除族谱链接。 ' Response.write " " ' For I=1 To ficount-5 ' Response.write "" ' Next Response.write "" pos=0 While Not rs.EOF pos = pos+1 existHL=rs(11).Value Response.write "" Response.write "" If rs(13).ActualSize>0 Then Response.write "" Else If rs(11).ActualSize<1 Then Response.write "" ' For I=1 To ficount-5 ' Response.write "" ' Next Else 'Response.write "" Response.write "" ' For I=2 To ficount-5 ' Response.write "" ' Next End If End If Response.write "" '排名及指数值 Response.write "" Response.write "" Response.write "" '2009年3月26日不显示“来源”一栏 ' Response.write "" ' If rs(14).ActualSize<1 Then ' Response.write "" ' Else ' Response.write "" ' End If Response.write "" rs.MoveNext WEND rs.Close Set rs=nothing Set Conn=nothing Response.write "

投票

" & rs(1).Name & "

指数

" & rs(6).Name & "

" & rs(7).Name & "

" & rs(8).Name & "

" & rs(9).Name & "

族谱信息

" & rs(I).Name & "

投一票→

" & rs(1).Value & "

" & rs(I).Value & "