|
作者:倪晓英 来源:苏州日报 时间:2006-8-21 3:56:05 |
|
http://www.subaonet.com 2006年08月21日苏州新闻网本报讯(记者)苏州昆剧院的一批年轻的昆剧演员,将在世界舞台上展示中华文化的瑰丽——青春版《牡丹亭》将于今年9月10日至10月10日在美国加州连演四轮十二场。文化部已将青春版《牡丹亭》纳入“国家昆曲艺术抢救、保护和扶持工程”优秀剧目,并结合青春版《牡丹亭》一剧在培养青年演员方面的突出成绩,给予了两项共计50万元人民币的奖励。昨天,青春版《牡丹亭》赴美演出动员大会在苏昆举行,文化部艺术司副司长蔺永钧,江苏省文化厅副厅长尹明,市委常委、宣传部部长周向群等到会为演职人员加油、鼓劲。
由白先勇领衔、两岸三地合作打造、苏州昆剧院演出的青春版《牡丹亭》,至今已在两岸四地巡演75场,直接进场观众超过10万人次。更为可喜的是,年轻观众的比例达到了60%%,青春版《牡丹亭》至今已在北京大学等11所高校演出46场,在大学生中引发了昆曲热。青春版《牡丹亭》一剧,将人才培养、艺术传承与打造品牌剧目、推广昆曲联系起来,探索出了以戏带功、通过剧目排演传承演员的有效途径,被认为是社会文化精英与职业院团共创的一项综合性文化工程。
本次赴美演出,是我省近十年来最大的对外艺术交流盛事,也是中国戏曲第一次以社会运作和商业演出的形式走向国际。剧组将先后走进美国加利福尼亚州柏克莱大学、尔湾大学、洛杉矶大学、圣芭芭拉大学,还将进行多次校园和社区推广演出。青春版《牡丹亭》作为首场演出剧目参加2006-2007季加利福尼亚州圣芭芭拉大学文化艺术节,圣塔芭芭拉市市长还将演出青春版《牡丹亭》的一周命名为“牡丹亭周”。为了此次演出的成功,白先勇已在加州做巡回宣传。白先勇在越洋电话中说,目前,加州的观众对青春版《牡丹亭》的期待越来越热烈,单张最高票价86美元和一套最高210美元的演出票,已基本售出。
<%
Function googleColor(value, random)
Dim colorArray
colorArray = Split(value, ",")
googleColor = colorArray(random Mod (UBound(colorArray) + 1))
End Function
Function googleScreenRes()
Dim screenRes, delimiter, resArray
screenRes = Request.ServerVariables("HTTP_UA_PIXELS")
delimiter = "x"
if IsEmpty(screenRes) Then
screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS")
delimiter = ","
end If
resArray = Split(screenRes, delimiter, 2)
if (UBound(resArray) + 1) = 2 Then
googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1)
end If
End Function
Dim googleTime, googleDt, googleScheme, googleHost
googleTime = DateDiff("s", "01/01/1970 00:00:00", Now())
googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer)))
googleScheme = "http://"
if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://"
googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST"))
Dim googleAdUrl, googleAdOutput
googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_
"ad_type=text_image" &_
"&channel=6495040935" &_
"&client=ca-mb-pub-9595218071455095" &_
"&dt=" & googleDt &_
"&format=mobile_single" &_
"&host=" & googleHost &_
"&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_
"&markup=xhtml" &_
"&oe=utf8" &_
"&output=xhtml" &_
"&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_
"&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_
"&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_
googleScreenRes()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%> |