池氏宗亲-学术论文池氏作者名录

池氏宗亲

池氏名人录

　池氏学术论文名录

<% 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(I).Value & "

" & rs(1).Value & "

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