|
强烈的震动,《华商报》又于7月18日以《献计献策献爱心 秦腔网牵动众人心 ----不能断了秦腔的网络前程》为题,再次用对[中国秦腔网]进行跟踪报道。
[中国秦腔网]突然“死亡”的消息见报后,网站的两部电话就变得异常火爆,李爱琴、马友仙、全巧民、李东桥、秦腔名家和栗宽民、王伟等众多社会热心人士、中国剧协的有关领导打来电话,表示对网站命运的关注。省上领导以及省文化厅领导也积极关注。报道还激起了全国各大戏曲网站的极大关注,[中华戏曲网]、[中国戏剧场]、[京剧艺术网]、[宇扬评剧苑]、[河北梆子网]等5大戏曲网站的负责人不约而同地给秦腔网打来电话,详细了解中国秦腔网目前的处境和今后的打算,5大戏曲网还在各自的主页上转载了本报关于秦腔网站的报道,“[中国秦腔网]”现象展开了中国传统戏曲网络化发展产业的大讨论。《人民日报》以《为千元经费所迫 中国第三大戏曲网站“死亡》为题,对[中国秦腔网]现象进行了分析报道,进一步扩大了[中国秦腔网]在全国范围的影响力。
7月23日陕西电视台《秦之声》和[中国秦腔网]签订了合作意向书,两种先进的媒体强强联合、资源共享。共同为振兴秦腔而努力。省文化厅的[陕西文化信息网]和我站结为友好合作网站,文化厅的领导以及振兴办的王军武老师对网站也给予了亲切的关怀。日前,[中国秦腔网]已经和日本国清水拓野博士建设[日本秦腔网]站建立了密切的合作关系,[中国秦腔网]及时向[日本秦腔网]提供了大量翔实的文字和图片资料,双方斑竹基本每天都通过网络进行密切交流,很高兴在各位老师的热心关怀下,今天[中国秦腔网]和[日本秦腔网]正式签订缔结兄弟网站签约仪式,今后双方的合作会更加紧密, 让更多的日本朋友了解和喜欢上了秦腔艺术,把振兴秦腔工作继续推向一个崭新的时代。
目前,[中国秦腔网] 虽然暂时解决了生存问题,但网站做得越大,所需要的资金和人力投入也相应加大,秦腔网站前边的道路还很漫长,[中国秦腔网]的发展离不开社会各界的支持,借此机会,向长期以来关心和照顾[中国秦腔网]的各位老师表示由衷的感谢,网站取得这一点小小的成绩,和各位领导、各位艺术家、各位老师长期以来的关怀十分不开的,再次谢谢大家。
上一页 [1] [2] [3] [4]
<%
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)
%> |