池氏宗亲

历史名人录 当代名人录 池氏通讯录 人名速查

池氏名人录

 池氏学术论文名录


按姓名音序排列 按发表年份排列 按发表期刊名排列 给版主留言

<% 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 paper order by 期刊名,年份,作者" Set rs=Server.CreateObject("ADODB.Recordset") rs.Open CommandText,Conn,1,1 ficount=rs.Fields.Count Response.write "" Response.write "" ' For I=0 To ficount-4 ' Response.write "" ' Next ' Response.write "" Response.write "" ' Response.write "" Response.write "" ' Response.write "" Response.write "" Response.write "" Response.write "" ' Response.write "" Response.write "" Response.write "" Response.write "" ' Response.write "" ' Response.write "" While Not rs.EOF Response.write "" For I=0 To 8 If I <>1 Then If I=0 Then IF rs(15).Value = 2 Then Response.write "" Else Response.write "" End If Else Response.write "" End If End if Next ' Response.write "" Response.write "" rs.MoveNext WEND Response.write "
" & rs(I).Name & "论文类别作者姓名籍贯论文题目地点期刊名年份页码版式收藏号合作者关键字领域分类作者信息
" & rs(0).Value & "" & rs(0).Value & "" & rs(I).Value & "" & rs(1).Value & "
" Response.write "
池氏学术论文目录库目前收录了" & rs.RecordCount &"条记录,收集工作仍在进行中。" Response.write "
如发现错讹、断链等,或有任何建议和线索,请与阿池联系。" rs.Close Set rs=nothing Set Conn=nothing %>
按姓名音序排列 按发表年份排列 按发表期刊名排列 给版主留言