<% 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' and ( Biography is not null or Hyperlink is not null) order by 姓名" ' 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 "" '2004年8月29日恢复数据库中的CHISID字段，在显示界面删除族谱链接。 ' Response.write " " ' For I=1 To ficount-5 ' Response.write "" ' Next Response.write "" While Not rs.EOF 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 "" ' 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(1).Value & "

" & rs(I).Value & "

" & rs(0).Value & "

" & rs(1).Value & "

" & rs(I).Value & "

" & rs(6).Value & "

" & rs(7).Value & "

" & rs(8).Value & "

" & rs(9).Value & "

暂未入谱

浏览族谱

" Response.write "