中国民族史研究

<% '显示内容标题列表 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 %>

《治学往事录》前言

中国社会科学院民族学与人类学研究所副所长：黄行

为纪念中国社会科学院民族学与人类学研究所建所50周年，研究所编篡了一套所庆纪念文集。与其他研究所沿革、著述类文集相比，这部《同仁述往》主要是请本所部分老中青学者记述个人经历的一人、一事、一时之感想、心得和随笔。记述内容的时间跨度几十年，地域纵横数千里。所记人物、事件多未见于研究所的正式文档和学者们的研究著作，看似平淡无奇，但却是从各位学仁个人的感悟和视角，真实而鲜活记录的研究所部分重要砥柱人物和重要事件的片段，贯穿起这些片段遂可构成一部时隐时现的所史记忆。
民族学与人类学研究所的学术框架主要由民族学、民族理论、民族历史、民族语言等相对独立的学科组成，不同学科在不同时期的研究任务、研究课题和学科带头人的情况也迥异。50年来研究所各学科由诸多著名学者制订设计了学科的建设规划，牵头承担完成过多项重要和优秀的研究成果，这些研究成果实施过程和学者研究活动的背后发生过许多鲜为人知的故事和细节。《同仁述往》回忆和披露的这些故事和细节可以使人进一步了解研究成果和学者活动的一些始末和背景，了解诸学科建设发展的用心良苦与艰辛备尝，这些对于继承发扬学科传统，铭记先贤、砥砺后学也不无意义。

2008年12月