|
作者:duyulong 来源:网易 时间:2008-6-17 14:02:58 |
|
[图]2004年10月23日重建中国秦腔网秦腔名家捐助义演首场照片
(中国秦腔网附图 赵煜/摄)
(网易2004-11-1报道)中国秦腔网遭遇黑客攻击,引起了社会各界的强烈反响。“一方有难,八方支援”,为了重建中国秦腔网, 由陕西省振兴秦腔办公室牵头,本报和我省多家媒体共同发起的“重建中国秦腔网秦腔名家捐助义演” 23日晚在易俗社小剧场隆重举行。
此次名家义演得到了省戏曲研究院、西安易俗社、西安市五一剧团、西安市青年秦腔艺术团等多家演出团体的关注和支持。秦腔表演艺术家李爱琴、郝彩凤、段林菊、吴德和优秀中青年演员张宝玮、刘随社、李淑芳、张涛、薛广民、穆小鹏、晁宏波、惠敏莉、胡林焕、晁洪勃、李东锋等登台亮相,为观众献上了自己的拿手唱段,有“秦腔四灵童”之称的小丑星程思源也献上了自己的看家本领。此次义演的消息公布后,戏票很快售罄,演出当天出现一票难求的场面。剧场内座无虚席,连过道上都站满了观众。由于是援助义演,所有演员都不拿一分钱报酬,观众被艺术家和新秀们的高尚品德所感动,西安艺术学校秦腔培训中心和西安市兴农饲料厂现场各捐赠2000元。整个演出气氛热烈,高潮迭起。演出由张晓彬主持,他轻松风趣的主持风格为晚会增色不少。
未能参加23日演出得众多秦腔名家新秀得知消息后,积极和有关部门联系,纷纷要求参加义演,以自己的实际行动支持重建中国秦腔网,为此,24日晚上,在易俗社小剧场将增加了一场义演活动,秦腔著名演员武宏霞、康健海、李宏刚、谭天杏、张武宏、屈鹏等名家新秀到场演出,西安市艺术学院秦腔培训中心的同学们也进行了精彩的演出,为重建秦腔网献上自己的爱心。本次义演的售票所得收入和社会捐款将全部用于中国秦腔网的重建,所有费用将向社会公布。
<%
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)
%> |