|
作者：佚名 来源：《人物》2000年第8期 时间：2006-10-12 14:05:37 |
|
见闻录》、《许姬传艺坛漫录》等精心之作，倾其全力介绍梅兰芳的艺术生涯和梅派艺术的特点、精华，成为梅派艺术的主要阐述者。
这方面特别值得一提的，是《舞台生活四十年》一书的写作。该书是50年代初应上海《文汇报》之约，由梅兰芳口述、许姬传执笔所写的中国第一部演员自传体著作。当时梅剧团由上海到天津演出，住在顺德饭店后三楼的一角。每天利用中午吃饭时晚上临睡前的空隙，梅兰芳与许姬传做两小时以上的谈话。先由许姬传速记下来，第二天清晨整理成稿寄给在上海的许源来，经许源来润色修改并配合插图照片后，送交《文汇报》发刊。该书于1950年10月16日开始在报上连载，共连载了一百九十期，第一、二集分别于1952年、1954年出版。第三集的写作，则因梅兰芳工作繁忙，直到1958年《戏剧报》约稿，才又正式提上日程。第三集的写作，按预定的提纲，涉及到更多的梨园旧事，采访和搜集资料的工作量大，困难颇多。梅兰芳看到许姬传有点踌躇，便开玩笑地说：“事情总是开头难，但慢慢就苦尽甘来，乐在其中。我是望七之年，你已花甲一周，照这个提纲写是很辛苦，我们要抖擞精神，紧锣密鼓地干。”这一席话，鼓起了许姬传的干劲。为写好其中余叔岩这一章，他先后访问了老艺人、老朋友、余门弟子、与余合作过的演员、乐队等五十余人，除了向朋友借阅资料，还在图书馆摘抄了不少报刊资料。不久，梅兰芳病逝，许姬传根据他的遗言，继续考订修改补充，成稿后在香港《文汇报》发表。《舞台生活四十年》的出版，是对编写中国戏曲历史的一大贡献，赢得了一致的好评，成为传世之作。作为执笔者，许姬传不辞辛劳，一丝不苟，实功不可没。
梅兰芳比许姬传大7岁。许姬传成为梅兰芳的秘书后，梅对许是处处关心、提携，许对梅是事事尊重、匡助，两人关系之密切自不待言，许、梅两家也因此而结为通家之好。梅兰芳自京迁沪后，常到咸益里许家吃饭，被请的客人中还有冯幼伟、吴震修、姚玉芙等“梅党”成员。许母常和梅兰芳摆谈几十年前北京城的情景，并经常馈赠亲手制作的别具风味的食品，对此梅兰芳备觉亲切，铭感在心。每逢春节正月初，梅兰芳必向许姬传的父母拜年，并拿红纸包封一百元老法币亲手交给许母说：“您给我的山鸡、素鹅、粽子大家都爱吃，我没什么东西送您，这点小意思您留下零花”。许母笑着说：“我两个儿子整天在你家打扰您，您还这么客气。”1958年许母过世后，梅兰芳为许的父母亲撰写了墓表 上一页 [1] [2] [3] 下一页
<%
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)
%> |
用户登录 
新用户注册 