|
锋。网站荣幸的邀请了李爱琴、全巧民、马友仙、任丙汉、刘随社、李东桥、张晓斌、王军武、冀福记、栗宽民、陈爱美等各位老师担当名誉版主，感谢各位老师对[中国秦腔网]的关心。正是在众多具有较高文化修养的创办者和各位文化名人的共同努力下，[中国秦腔网]的访问量迅速攀升，访客数量与日俱增，日访问量一度突破了3万大关。
今年7月1日起，[中国秦腔网]开始实行注册论坛仅2个多月，2次刷新全国所有戏曲网站的单月注册人数，第一个月今年7月份一个月注册人数突破700人，刷新了所有戏曲网站单月注册的最高记录，8月份单月注册人数突破1200人，从今年7月1日起，截止9月9日，[中国秦腔网]仅2个月的注册会员人数就达2322人，这样的成绩在全国戏曲网站中都是首屈一指的，[中国秦腔网]的火暴程度可想而知，[中国秦腔网]也被誉为中国三大戏曲网站之一。目前[中国秦腔网]已和[中华戏曲网]、[中国戏剧场]、[京剧艺术网]、[宇扬评剧苑]、[河北梆子网]5大戏曲网站建立了亲密的合作关系，各大网站随时转发[中国秦腔网]新闻，进一步扩大了秦腔的影响力。
[中国秦腔网]两年来得到社会各界的广泛关注和支持，陕西省振兴秦腔办公室、西安易俗社、陕西省戏曲研究院、西安市五一剧团、西安市秦腔二团等单位的众多秦腔艺术家为网站提供大量珍贵详实的图文资料，或亲临指导网站建设。甘肃、青海、宁夏、新疆等省（区）的剧团、演员也给以极大的支持。网站的迅速发展壮大得到了新华社、《人民日报》《中国文化报》、《大雅旅游》（美国）、陕西电视台《都市快报》、陕西电视台《秦之声》、《华商报》、《西安商报》、《三秦都市报》、《西北信息报》、陕西人民广播电台《戏曲大观园》、、西安人民广播电台《长安大戏园》、陕西农村广播电台、甘肃人民广播电台、兰州人民广播电台、咸阳广播电台、《当代戏剧》等众多媒体的关注，对网站的动态进行了及时有力的报道，[中国秦腔网]与相关媒体建立了良好的合作关系。
[中国秦腔网]作为秦腔艺术的门户网站，不但搭建了艺术家与广大戏迷的交流平台，而且吸引了更多的年轻观众，尤其是让一大批大学生和时代青年喜欢上了秦腔艺术，据初步统计，[中国秦腔网]的访客平 上一页 [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)
%> |
用户登录 
新用户注册 
