<%@LANGUAGE="VBSCRIPT"%> <% Dim gsgg__MMColParam gsgg__MMColParam = "1" If (Request.QueryString("1") <> "") Then gsgg__MMColParam = Request.QueryString("1") End If %> <% Dim gsgg Dim gsgg_numRows Set gsgg = Server.CreateObject("ADODB.Recordset") gsgg.ActiveConnection = MM_rsc_STRING gsgg.Source = "SELECT * FROM news WHERE n_type = " + Replace(gsgg__MMColParam, "'", "''") + " ORDER BY n_ID DESC" gsgg.CursorType = 0 gsgg.CursorLocation = 2 gsgg.LockType = 1 gsgg.Open() gsgg_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 gsgg_numRows = gsgg_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 天津外国语学院斯语系首页
 
师资队伍
  
     
 
芮菊芬 斯瓦希里语系系主任。
2000年毕业于北京外国语大学亚非学院斯瓦希里语专业，获文学学士学位。
2006-2007年在北京外国语大学亚非学院斯瓦希里语专业进修研究生课程。
现为天津外国语学院“外国语言学及应用语言学”专业硕士生。
 
发表论文三篇：
《浅谈斯瓦希里语教学与英语的并行比较》天津外国语学院学报 2007.6

《从谚语中洞悉中国和东非文化的异同》天津外国语学院学报 2008.6

《从文字系统的变化看斯瓦希里语的发展》 洛阳外国语学院《东方语言》 2008.6
 
 
 
骆元媛 2007届斯语专业班导师
2007年硕士毕业于北京外国语大学亚非系斯瓦希里语语言文学专业。本科阶段，主修斯瓦希
里语，辅修外交学，于2004年同时获得文学及法学双学士学位。
 
发表论文两篇：
《斯瓦希里文化探析》（《亚非研究》，时事出版社，2007年11月）

《斯瓦希里语与中非关系》（《西亚非洲》，社科院西亚非洲研究所，2008年6月）等。

 
 
 
 
曹勤 外聘客座教授
原北京外国语大学亚非学院斯瓦希里语专业副教授
 
 
 
 
 
张象 外聘客座教授
著名非洲问题专家，曾任职于南开大学历史学院，北京大学非洲研究中心研究员，中国非洲
问题研究会原副会长，现任顾问。
 
 
 

成功申请科研项目三项：
骆元媛老师主持的天津外国语学院“十一五科研规划07年度科研项目”—青年项目“斯瓦希里语与中非关系”。

单体瑞老师主持的市级教改立项“斯瓦希里语课程体系设置的研究”。
张海梅老师主持的校级教改立项“斯瓦希里语专业教学体系的建设研究”。
 
 
天津外国语学院亚非语学院斯瓦希里语系制作
<% gsgg.Close() Set gsgg = Nothing %>