" Response.write "" Response.write "" If rs(12).ActualSize<1 Then Response.write "" Else Response.write "" End If Response.write "" Response.write "

" & rs(13).Value & "

" & rs(13).Value & "

" rs.Close '下面开始在著作库中按名人码查找作品 ' CommandText="select * from thesis where 作者 like '" & tname & "'" CommandText="select * from writer where ChiswID like '" & IDnum & "'order by 年份,北图编号" ' Set rs=Server.CreateObject("ADODB.Recordset") rs.Open CommandText,Conn,1,1 If rs.RecordCount > 0 Then Response.Write "

" & tname & "主要著作：

" ' ficount=rs.Fields.Count Response.write "" Response.write "" ' For I=0 To ficount-2 ' Response.write "" ' Next 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 ficount-2 ' Response.write "" ' Next Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" rs.MoveNext WEND Response.write "

" & rs(I).Name & "	书名	地点	出版社	年份	页数	版式	北图编号	合作者
" & rs(I).Value & "	" & rs(1).Value & "	" & rs(2).Value & "	" & rs(3).Value & "	" & rs(4).Value & "	" & rs(5).Value & "	" & rs(6).Value & "	" & rs(7).Value & "	" & rs(8).Value & "

" Response.Write "
本站共收录" & rs.RecordCount &"部主要著作!
" End If rs.Close '下面开始在学位论文库中按名人码查找论文 CommandText="select * from thesis where ChiswID like '" & IDnum & "'" ' Set rs=Server.CreateObject("ADODB.Recordset") rs.Open CommandText,Conn,1,1 If rs.RecordCount > 0 Then Response.Write "

" & tname & "学位论文：

" ' 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 "" Response.write "" Response.write "" While Not rs.EOF Response.write "" Response.write "" For I=3 To 11 ' If I <>1 and I <>2 Then Response.write "" ' End if Next Response.write "" rs.MoveNext WEND Response.write "

论文类别	作者姓名	籍贯	论文题目	地点	培养单位	年份	页码	版式	收藏号	指导老师	领域分类
" & rs(0).Value & "	" & rs(I).Value & "

" ' Response.Write "
共有" & rs.RecordCount &"个记录!
" End If rs.Close '下面开始在学术论文库中按名人码查找论文 CommandText="select * from paper where ChiswID like '" & IDnum & "'order by 年份" ' Set rs=Server.CreateObject("ADODB.Recordset") rs.Open CommandText,Conn,1,1 If rs.RecordCount > 0 Then Response.Write "

" & tname & "主要学术论文：

" ' 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=2 To 9 Response.write "" Next Response.write "" rs.MoveNext WEND Response.write "

作者姓名	论文题目	期刊名	年份	页码	收藏号	合作者	关键字
" & rs(I).Value & "

" Response.Write "
本站共收录" & rs.RecordCount &"篇主要学术论文!
" End If rs.Close Set rs=nothing Set Conn=nothing Response.write "