|
作者：周媛 来源：西安晚报 时间：2008-6-17 4:02:58 |
|
（《西安晚报 》2004-10-20报道 记者/周媛）中国秦腔网遭“黑客”攻击，社会各界在对不法之徒进行遣责的同时，也纷纷伸出援助之手，尽快恢复秦腔网的呼声日益高涨。记者昨从省文化厅获悉，由省振兴秦腔办公室牵头发起了“恢复中国秦腔网”秦腔名家大型捐助义演活动。10月23日晚，这场由数十位秦腔名家联袂推出的精彩演出将在易俗剧场与观众见面。
捐助义演名家响应
据悉，参加此次义演的名家阵容相当整齐，既有李爱琴、郝彩凤、段林菊、雷开元、吴德等老一辈艺术家，也有李小锋、刘随社、李淑芳、齐爱云、张保玮、张涛、薛广民、穆晓鹏等深受观众欢迎的知名演员。得知是为中国秦腔网义演，演员们无不积极响应，有的推掉已谈好的演出投入到这场公益活动中来。23日，秦腔名家们将演唱各自的拿手选段，并不取分文报酬，义演门票收入将全部捐助给中国秦腔网。
刘彭涛还在为网站奔波
记者昨天见到中国秦腔网创建人刘彭涛时，他正跑前跑后联系义演事宜，情绪比前几天好多了。据他介绍，他虽已向西安、上海等地的网监支队报了案，但由于种种原因，“黑客”至今无法找到，而中国秦腔网也只有四五个静态页面在维持。“好在有秦腔名家、网友们的鼓励和支持，让我逐渐恢复了信心”。省振兴秦腔办公室主任王军武说：“秦腔是古老的，它要发展，必须与现代传媒结合起来。中国秦腔网作为中国第三大戏曲网站，曾为秦腔事业做出积极贡献，现在当务之急就是筹措资金，让秦腔网尽快恢复起来。”他希望广大戏迷能支持这场义演，为中国秦腔网出把力。
<%
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)
%> |
用户登录 
新用户注册 
