|
100年前，浙江绍兴嵊州甘霖乡东王村的农民将门板铺在稻桶上，搭成简易戏台，嵊州说唱艺人登台演戏。就是这次的粉墨登场，标志着一个新剧种――中国越剧的诞生。
100年后，浙江和上海两地的政府将和文化部一起，共同主办一系列的活动，以纪念这个中国著名的地方戏曲剧种诞辰100周年。
越剧是一种以浙江嵊州方言和民间音乐为渊源，博采绍剧、京剧、昆曲、话剧、电影等多种艺术精华的地方剧种。它由最初民间的自发说唱，到进军大上海一唱而红，最终逐渐风靡全国，完成了从沿门卖唱的曲艺样式到中国知名戏曲形态的演变。目前，国内尚有越剧专业艺术团体和民间职业剧团330多个。
为纪念越剧发展的百年历史，27日，文化部和浙江、上海两地政府将联袂在浙江杭州举办"中国越剧诞辰100周年纪念大会"。届时，当年曾在上海滩红极一时、至今仍然健在的部分"越剧十姐妹"袁雪芬、范瑞娟、傅全香、徐玉兰等将在身体允许的前提下出席纪念大会。老一辈越剧表演艺术家袁雪芬和新一代越剧表演艺术家茅威涛将在大会上发言。
此外，主办方还将举办"中国越剧百年高峰论坛"、越剧百年纪念碑揭幕仪式、优秀越剧剧目展演以及越剧故乡行、经典越剧影片展演等一系列活动。针对越剧票友，主办方还将举办"超级越迷"大赛、"越剧娃娃沙龙""我与越剧"征文比赛等活动。
10月，越剧的发源之地浙江绍兴还将举办2006中国越剧艺术节。届时，全国优秀的越剧表演艺术家将参与到这一系列的纪念活动中来，共同展示和纪念越剧百年的辉煌。
<%
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)
%> |
用户登录 
新用户注册 
