天津外国语学院斯语系首页

<%@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 %> 天津外国语学院斯语系首页

教学效果

一、学生专业能力

　本专业共有学生6名，所有学生均为第一志愿学生，专业志向坚定。通过一年的基础斯瓦希里语学习，学生在听、说、读、写、译各个方面都得到了全面的发展，基本功普遍扎实：2007-2008第一学期期末测试中，笔试成绩均为优秀，口试成绩3优3良。2008年4月，我专业学生赴北京外国语大学与其斯语专业师生进行交流，流利的口语及扎实的语法得到了北外老师的一致好评，也展示了我专业学生的风采。

　　　　　　　　　　　师生共赴北外进行实践教学

二、专业相关活动

１、创办斯瓦希里语语言与文化研讨社：我系于2007年11月创办斯语社，迄今已开展了3次活动，其主题分别为“东非概况简介”、“肯尼亚外教教非洲舞”、“东非食品节”。在斯语社，学生们通过游戏、舞蹈、唱歌等方式向全校师生介绍东非文化、并教授简单斯瓦希里语。这对增强学生专业水平、加深对专业文化的了解等方面都起到了积极的作用。

　　　第一次斯语社活动—东非概况简介

　　　　　　　　第二次斯语社活动—肯尼亚外教教非洲舞　　　　　第三次斯语社活动—东非饮食文化

2、参加外文话剧比赛：我系于2007年参加由亚非语学院组织的外文短剧比赛。学生将“梁祝”经过自己的改编，用斯瓦希里语向大家展现了斯语版的经典故事，让大家第一次能真正领略到斯语的魅力。

3、“关注非洲、走进非洲”的讲座：2007年11月，应我校邀请，著名学者，南开大学历史学院，北京大学非洲研究中心研究员，中国非洲问题研究会原副会长，现任顾问，张象教授来我校进行讲座。张教授是著名非洲问题专家，他从中非关系历史、现状以及如何面对中非关系的发展等方面作了深入浅出的讲解，学生受益匪浅。

“中国和坦桑尼亚外交关系史”的讲座：

5、接待肯尼亚留学生：我系学生在课余常常与来自肯尼亚的留学生进行交流，陪同他们参观古文化街、与留学生一起过圣诞节等。学生通过与外国留学生的交流，有效地提高了口语水平。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　与肯尼亚留学生共度圣诞、参观古文化街

三、其他学院活动

1、积极参加亚非语学院各项体育竞赛，体现了团结协作精神。2007年秋季排球比赛获得“最佳团队奖”，2008年春季排球比赛获得第三名的好成绩。

2、积极参加亚非语学院各项团队活动，曾获得“校史校情与校规校纪”优秀奖、亚非语学院书画展中，我系学生周丽获得书法三等奖和绘画二等奖。

3、其他：我系学生积极参加学校运动会、亚非语学院运动会，他们奋力拼搏、团结协作的精神得到了大家的一致认可。

天津外国语学院亚非语学院斯瓦希里语系制作

<% gsgg.Close() Set gsgg = Nothing %>