<%@LANGUAGE="VBSCRIPT"%> <% set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_xj_STRING news.Source = "SELECT ID, title, time, pic FROM news ORDER BY ID DESC" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 3 news.Open() news_numRows = 0 %> <% set picnews = Server.CreateObject("ADODB.Recordset") picnews.ActiveConnection = MM_xj_STRING picnews.Source = "SELECT ID, pic, alt FROM picnews ORDER BY ID DESC" picnews.CursorType = 0 picnews.CursorLocation = 2 picnews.LockType = 3 picnews.Open() picnews_numRows = 0 %> <% set pic = Server.CreateObject("ADODB.Recordset") pic.ActiveConnection = MM_xj_STRING pic.Source = "SELECT ID, pic FROM news ORDER BY ID DESC" pic.CursorType = 0 pic.CursorLocation = 2 pic.LockType = 3 pic.Open() pic_numRows = 0 %> <% set ynews = Server.CreateObject("ADODB.Recordset") ynews.ActiveConnection = MM_xj_STRING ynews.Source = "SELECT ID, title, time FROM ynews ORDER BY ID DESC" ynews.CursorType = 0 ynews.CursorLocation = 2 ynews.LockType = 3 ynews.Open() ynews_numRows = 0 %> <% set stars = Server.CreateObject("ADODB.Recordset") stars.ActiveConnection = MM_xj_STRING stars.Source = "SELECT * FROM stars ORDER BY ID DESC" stars.CursorType = 0 stars.CursorLocation = 2 stars.LockType = 3 stars.Open() stars_numRows = 0 %> <% Dim Repeat4__numRows Repeat4__numRows = 5 Dim Repeat4__index Repeat4__index = 0 pic_numRows = pic_numRows + Repeat4__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 5 Dim Repeat2__index Repeat2__index = 0 ynews_numRows = ynews_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Repeat1__numRows = 5 Dim Repeat1__index Repeat1__index = 0 news_numRows = news_numRows + Repeat1__numRows %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter r = Request.QueryString("index") If r = "" Then r = Request.QueryString("offset") If r <> "" Then MM_offset = Int(r) ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record i = 0 While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1)) MM_rs.MoveNext i = i + 1 Wend If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page i = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size)) MM_rs.MoveNext i = i + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = i If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record i = 0 While (Not MM_rs.EOF And i < MM_offset) MM_rs.MoveNext i = i + 1 Wend End If %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' 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 %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %> 欢迎访问“谢晋影视艺术学院”网站
 
 
学院院歌

    上海师范大学谢晋影视艺术学院（公办），前身是上海谢晋-恒通明星学校。面向全国部分省市招生，至今已毕业了多届学生，他们中大部分已活跃在影视界，如“小燕子”赵薇，“金锁”范冰冰，上海电视台生活时尚频道“气象小姐”朱莉叶，东视新闻娱乐频道“娱乐在线”的金宇宸和刘薇、范雨林、李解、刘军、严宽、晋松、岳鼎、牟凤彬、乐瑶、曹议文、沙柏宁、陈彦等。成立了全国高校第一个经过中视协批准的纪录片创作基地，同时又是上海市唯一的大学生影视艺术实践基地。学生们在上海市的各大文艺活动中崭露头角，在2007首届上海市大学生影像大赛暨广播影视论坛中，85%的获奖作品都出自我院学生。
    学院由著名电影导演谢晋任院长，旨在创办一个全新观念的影视学院，培养一批未来的广播影视新星，并就中国广播影视教育如何更好更快地培养优秀人才，探索一条新的途径。学院依托综合性大学的办学优势及人文环境，发扬原谢晋—恒通明星学校的办学传统，继续拓展“密集型训练、高起点教学、全方位培养、实践中提高”的办学特色，结合中外广播影视教育的经验，注重实际表演技能的培养，使学生在艺术修养、表演、主持实践和技能训练等方面得到全面发展。在学期间将重点组织和推荐学生参加各种艺术实践活动，以培养学生的实践能力和创新能力。

表演专业（本科学制四年） 培养学生德、智、体、能全面发展，培养具有丰富文化艺术知识和道德修养的与时俱进的影视表演人才。强调学生实践能力和综合能力的培养。主要专业课程有：表演、影视实习、台词、形体、舞蹈、声乐、武术、世界电影史、中国电影史、电影美学、艺术概论、影视概论、影视剧名著赏析、艺术欣赏、技能训练、英语等。

播音与主持艺术专业（本科学制四年）培养学生德、智、体、能全面发展，具有深厚文化艺术知识及较高造诣的艺术主持、播音人才。强调学生实践能力和综合能力的培养。主要专业课程有：播音与主持、中国播音学、广播电视传播学、中国语言文学、新闻采写基础、编辑与评论、逻辑学、表演、形体、声乐、艺术概论、艺术欣赏、电视音乐音响、数字化影视制作、双语播音与主持、英语等。

广播电视编导专业（本科学制四年） 该专业设影视制作、影视编导二个专业方向。培养学生德、智、体、能全面发展，培养适应当前及未来影视业需求的复合型多功能人才。教学中将始终贯彻艺术与技术紧密结合的思想，强调计算机能力的培养和艺术素养的提高，注重学生创作实践和创作技能的培养，特别是在现代数字影视领域中的实际操作能力的学习和训练。将为影视业、音像业、广告业以及各企事业单位输送从事影视制作、广告设计、影视编创、记者、导演和新闻传播等工作的中、高级专门人才。开设的主要课程：影视艺术概论、影视文学写作、影视美学、影视批评、影视编剧、影视导演艺术、平面构成、色彩构成、立体构成、摄影艺术、电视摄像艺术、电视照明、电视音乐与音响、电视系统基础、电视编辑艺术、独立制片、电视制作实践、计算机图像处理、计算机动画、数字电视与传媒技术、广告策划与创意等。

表演专业 专修班（学制一年）
表演专业专修班一年（一年专修班是原谢晋恒通明星学校的特色班）是为了适应市场需求，满足各种层次的需要而设立的。它有三个显著的特点：一是培养周期短。通过密集型训练，在学习中实践，在实践中学习，从而达到培养目标。二是相对年龄要小。它可以充分挖掘和展现年轻人的天资和魅力。三是可以继续深造。表演专业强调学生实践能力和综合能力的培养。主要专业课程有：表演、影视实习、台词、形体、舞蹈、声乐、武术、艺术概论、影视概论、影视剧名著赏析、艺术欣赏、技能训练、英语等。


表演专业 专升本（学制二年）本专业主要针对相关专业（表演、戏曲表演、舞蹈、音乐表演等）的专科毕业生开设的。通过两年的继续学习，成为本科毕业生（授予文学学士学位）。表演专业强调学生实践能力和综合能力的培养。主要专业课程有：表演、影视实习、台词、形体、舞蹈、声乐、技能训练、英语等。

（夜大学）表演（本科） 学制四年(脱产)/学制五年 它紧紧依托于学院的优质教育资源，按照普及影视知识、进行影视方面的专业技能和综合素质培训的这一办学宗旨，其教学内容、课程设置均同表演本科。凡报考我院夜大学的考生均应参加文化考试和专业加试。文化考试、专业考试时间为2005年11月。文化考试科目--语文、数学、英语、文科综合（历史+地理）；专业加试内容同本、专科。（详见我院的《夜大学招生简章》）

（夜大学）表演专升本 （学制三年）它紧紧依托于学院的优质教育资源，按照普及影视知识、进行影视方面的专业技能和综合素质培训的这一办学宗旨，其教学内容、课程设置均同表演专业专生本。
 
地址：中国上海市桂林路100号　邮编：200234　电话：021-64322029　64322031　传真：021-54643341
 
本网站版权所有:上海师范大学　谢晋影视艺术学院
 
<% news.Close() %> <% picnews.Close() %> <% pic.Close() %> <% ynews.Close() %> <% stars.Close() %>