|
作者：梧桐 来源：中国戏剧场 时间：2004-4-15 |
|
中国戏剧场消息：费尽周折，终于拿到将于18日在扬州举行的第21届中国戏剧梅花奖颁奖晚会的节目单，不客气地说，这台晚会若能“成功”举行并顺利播出的话，将是对梅花奖甚至整个中国戏剧界的莫大嘲讽和玷污。
正所谓烟花三月下扬州之时，便是梅花醉落竹西楼之日。
现在对18日将要发生的“故事”做评论还为时尚早，并且，这份节目单上还标明“以实际演出为准”。我们只好怀着忐忑虔诚地期待：实际演出将会把这份节目单全盘推翻，尽可能地还戏剧之本来面目。
附：第21届中国戏剧梅花奖颁奖晚会节目单（以实际演出为准）
主持人：张政 朱迅 王小丫 张国立
戏曲联唱《梅花香满瘦西湖》（韩再芬、茅善玉、小香玉、赵志刚）
歌曲《烟花三月下扬州》（张燕）
歌曲《琼花》（吴兢）
音舞诗画《茉莉扬州》（乔榛 丁建华 姜克美等）
小品《餐车Party》（魏积安）
歌曲《涛声依旧》（毛宁）
歌曲《花花世界》
《不如跳舞》（陈慧琳）
《金猴闹扬州》（六小龄童及登封塔沟武术学校学生）
戏歌《一个小心愿》（萧雅）
小品《中外宾客逛扬州》（丁广泉等）
杂技《梅花赋》（沈阳军区前进杂技团）
歌曲《COLORFULDAYS》（朴树）
歌曲《希望》 《风雨中的美丽》（韩红）
歌曲《今夜你会不会来》 《两个人的烟火》（黎明）
交响京剧《梅》（尚长荣 张火丁）
歌曲《大江放歌》（戴玉强 杨洪基 幺红 郑咏）
<%
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)
%> |
用户登录 
新用户注册 
