中国民族史研究

<% '显示内容标题列表 Sub ShowList(menuID,num,moreurl) dim sql,rs,i,title,url,img 'on error resume next Err.Clear Set rs=Server.CreateObject("ADODB.Recordset") sql = "" sql = sql & "select * from tbl_content where mnCode='"&menuID&"' order by tbl_content.relativedate desc" rs.Open sql,conn_sql,1,1 if err.number<>0 then Response.Write "查询数据库时出错："& err.Description Err.Clear Response.Write "查询数据库时出错" end if if rs.RecordCount>0 then Response.Write "" for i=1 to num if rs.EOF then exit for end if title = rs("title") img = rs("img") url = rs("url") if img="1" then img = "(图文)" else img = "" end if Response.Write "" Response.Write "" Response.Write "" Response.Write "" rs.MoveNext next Response.Write "" Response.Write "

·	" & title & "("&formatDateYYYYMMDD(rs("relativedate"))&")
更多...

" else Response.Write "暂无数据" end if rs.Close set rs = nothing End Sub %> <% '显示子标题列表 Sub ShowTopicList(menuID) dim sql,rs,i,title,url,rowCount rowCount=2 i=0 Err.Clear Set rs=Server.CreateObject("ADODB.Recordset") sql = "" sql = sql & "select * from tbl_menu where parentcode='"&menuID&"' order by sortNo" rs.Open sql,conn_sql,1,1 if err.number<>0 then Response.Write "查询数据库时出错："& err.Description Err.Clear Response.Write "查询数据库时出错" end if if rs.RecordCount>0 then Response.Write "" do until rs.EOF if i mod rowCount = 0 then i=0 Response.Write "" end if title = rs("cnname") url = rs("mncode") Response.Write "" Response.Write "" rs.MoveNext i=i+1 loop '内循环结束 i=i+1 '补齐td if i< rowCount then for j=0 to rowCount-i Response.Write "" next end if Response.Write "

" & title & "

" else Response.Write "暂无数据" end if rs.Close set rs = nothing End Sub %> <% '显示首页图片列表 Sub ShowImgList(menuID,num,moreurl) dim sql,rs,i,title,url,img 'on error resume next Err.Clear Set rs=Server.CreateObject("ADODB.Recordset") sql = "" sql = sql & "select top 6 * from tbl_content where mnCode='"&menuID&"' and img='1' order by tbl_content.relativedate desc" rs.Open sql,conn_sql,1,1 if err.number<>0 then Response.Write "查询数据库时出错："& err.Description Err.Clear Response.Write "查询数据库时出错" end if if rs.RecordCount>0 then Response.Write "" Response.Write "" for i=1 to num if rs.EOF then exit for end if title = rs("title") img = rs("img") url = rs("url") contentID = rs("ID") if img="1" then strsql2="select * from tbl_img where contentID='" & contentID & "' and imgType='小图'" set rs_newBook1=conn_sql.execute(strsql2) if not rs_newBook1.eof then imgPath=rs_newBook1("path") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if else img = "没有图片" end if rs.MoveNext next Response.Write "" Response.Write "

更多...

" else Response.Write "暂无数据" end if rs.Close set rs = nothing End Sub %>

论著目录编辑说明

值此中国社会科学院民族学与人类学研究所建所五十周年之际，我们汇编了所内同仁学术研究成果的目录，以展示半个世纪以来本所在科学研究方面的成就。
        我所科研人员成果目录的全面收集整理工作始于2006年，组建了以网络信息中心为主，科研处、人事处和老干部办公室参与的科研成果整理工作团队。至2007年3月，共收集整理全所437人（其中在职152人，离退休人员170人,         还有在所曾经工作过或已经逝世的同志百余名）的成果目录10367项。2008年7－10月，又向在职科研人员征集了2007－2008年6月间正式发表的成果目录284项。总量达到10651项。
        本目录征集范围为2008年6月前发表的学术性著述，因此除影视、软件和数据库以外，所有非正式出版物刊载和大量的研究报告等著述未予收录。本目录提供的6852项学术成果，其中专著515部，合著182部，工具书121部，译著113部，学术论文5124篇，影视片106部，其他类型学术成果458项，中文以外文种的成果有233项。
        虽然本目录尚不足以完整体现本所五十年来在学术研究方面的工作成就，且疏漏难免，但是它作为一份学术成果档案，在反映我国民族研究事业各学科发展繁荣的历史过程和现实状况方面提供了一个代表性的缩影。为此，在这份目录付梓之际，我们对本所广大科研人员、已故学者遗属提供学术信息表示衷心的感谢！对参与征集、梳理、筛选和编辑本目录的全体人员表示由衷的敬意！

编者

2008年12月10日