|
作者：樊宁 来源：新华网江苏频道 时间：2007-1-11 14:19:06 |
|
间随手记下的，10年浩劫虽经6次抄家，这些笔记竟没有完全散失。"
"编书太苦了，要耐得住寂寞"，顾笃璜感叹。他主编的《昆剧传世演唱珍本全编》线装本，16函共160本，附有工尺谱和注释，囊括了他经手收集到的附有曲谱的舞台演出本，他的女儿打字、排版，自学成才的老曲友戚启民负责校对，都不取报酬。他说，保护昆剧是一项神圣事业，需要"志愿军"，要有点奉献精神，甚至需要为昆剧事业献身的殉道精神。
昆剧面临最大的转机，是被列为世界文化遗产后，人们对传统文化重新认识，令顾笃璜悲哀的是，人们太浮躁、太功利主义了，真正把昆剧当学问认真研究的人太少了。"我不是研究昆剧的，因为工作需要从事昆剧，为了工作，所以学习，昆剧是综合艺术，博大精深，我说对昆剧略知一二已经很狂妄了，把我这样对昆剧略知一二的人当作昆剧专家，岂不是悲剧？因为连对昆剧略知一二的人也不多了，这说明了昆剧消亡的状况，昆剧几成'绝学'了，后继无人。"他长叹。
轰动台湾--执导全本《长生殿》
2001年，顾笃璜组建了6个剧组，同时并进，只用40天赶排了5台传统昆剧，主要在苏州忠王府的古戏台上演出，参加首届昆剧艺术节，反响强烈，引来了苏州昆剧应邀赴台湾演出。他为赴台演出定身打造了6台传统剧目，从剧本到扮相非常传统，大获成功，台湾观众看到了更为传统的昆剧，耳目为之一新。
这引起台湾石头出版股份有限公司董事长陈启德极大兴趣，慕名找到顾笃璜，请他导演一台大戏，到台湾演出。顾笃璜认为，《长生殿》是昆剧中剧场性最好的一出戏，场面恢弘，很能抓住观众，建议排演《长生殿》。2002年，"当了10年昆剧观众，再也忍不住，投重金从事昆剧推介事业"的陈启德投资，由顾笃璜导演，苏州昆剧传习所、中国昆曲博物馆、苏州昆剧院3方联合组成中国苏州昆剧艺术团，排演《长生殿》。
洪昇的《长生殿》创作于清康熙年间，是昆剧全盛期的代表作，通过描写李隆基、杨玉环的爱情故事，折射出唐皇朝一段由盛极而动乱的历史，作者有感而发，寄托身处异族统治之下的亡国之痛。《长生殿》被公认是最经典的昆剧作品，全本50折。
昆剧《长生殿》由顾笃璜节选、整理并任艺术总监兼总导演，这是他第四次导演昆剧《长生殿》。为适应现代观众，演出全剧没有可行性，因而必须删节，他初选28折，仍因时间过长，又压缩为27折。浓缩剧本，他采取的原则是只删、不改、不加，凡属表演有承传的折子，尽量少删或不删，以便保持传统表演格局，其余各折，表演已经不传的，为了紧缩时间，便作一点删节。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
<%
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
Function googleDcmguid()
Dim dcmguid
dcmguid = Request.ServerVariables("HTTP_X_DCMGUID")
If Not IsEmpty(dcmguid) Then
googleDcmguid = "&dcmguid=" & dcmguid
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=" &_
"&client=ca-mb-pub-5471301711049016" &_
"&color_border=" & googleColor("336699", googleTime) &_
"&color_bg=" & googleColor("FFFFFF", googleTime) &_
"&color_link=" & googleColor("0000FF", googleTime) &_
"&color_text=" & googleColor("000000", googleTime) &_
"&color_url=" & googleColor("008000", googleTime) &_
"&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() &_
googleDcmguid()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%><%
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)
%> |
用户登录 
新用户注册 