|
作者：佚名 来源：中新社 时间：2006-6-23 4:21:18 |
|
第三届中国昆曲艺术节将于七月五日至十三日在中国苏州举行，来自港台的昆曲社团将首次在本次艺术节上展演亮相。
中国文化部艺术司今日在此间公布了第三届中国昆曲艺术节的节目安排。中国内地七个昆曲院团将献演由“国家昆曲艺术抢救、保护和扶持工程”专项资助排演的三台新创剧目，和五台优秀传统整理改编剧目。
三台新创剧目是上海昆剧团的《一片桃花红》、浙江昆剧团的《公孙子都》、湖南省昆剧团的《湘水郎中》；五台优秀传统整理改编剧目分别是北方昆曲院的《百花公主》、上海昆剧团的《邯郸梦》、江苏省昆剧院的《小孙屠》、江苏省苏州昆剧院的《西施》以及浙江永嘉昆剧团的《折桂记》。
本次艺术节的一大亮点即港台昆曲社团将首次亮相展演。香港京昆剧坊演出的《武松与潘金莲》、台湾昆剧团的《风筝误》以及台湾兰庭昆剧团的《狮吼记》。
艺术节期间还将举办中国昆曲论坛、纪念昆曲《十五贯》晋京五十周年纪念大会、沈传芷诞辰一百周年子弟传承演出等一系列活动。这也是继二000年首届昆曲艺术节举办以来规模最大的一次活动。
昆曲艺术被誉为中国民族戏曲的“幽兰”。中国文化部和财政部共同实施了“国家昆曲艺术抢救、保护和扶持工程”，从二00五年起至二00九年，每年投入资金一千万元人民币用以抢救、保护和扶持昆曲这门古老艺术。近年来涌现一批《牡丹亭》、《长生殿》及《桃花扇》等有市场影响的剧目。
<%
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)
%> |
用户登录 
新用户注册 
