|
宇扬评剧苑自创建到现在已经整整两年的时间了，从一个小小的个人评剧网站，发展成今天这样初具规模的大型评剧专业网站。回首过去，有如百味瓶，有欣喜、有成就、有心酸，也有伤感。宇扬作为中国第一家也是目前唯一一家的评剧专业网站，我们没有经验，没有可以借鉴的地方，更不是评剧专业人士，但我们有的就是对弘扬评剧的执著、奉献和在互联网上创立评剧家园的勇气。
尽管我们这个评剧家园很贫穷，但毕竟是互联网络上第一颗灿烂的小星星，来自五湖四海的朋友纷纷注册会员，主要管理员利用全部业余时间采访、制做和维护这个家园，近百位评剧艺术家表示无偿的支持和帮助宇扬评剧家园的建设和提供资料。
在会员和艺术家的倡议下，本苑于去年的今天的举办了“宇扬评剧苑建苑一周年”的活动，上午为“评剧与网络”的研讨会，下午为“宇扬评剧苑建苑一周年名家联谊会”，来自北京、天津、石家庄、沈阳、长春等评剧院团的评剧表演艺术家20余位共聚一堂，和我们宇扬人一起庆祝宇扬的一周岁生日。这些艺术家的到来，给宇扬的一周岁生日增添了无限的魅力和活力，这些艺术家的到来，宇扬也为没有能力给任何的报酬感到内疚。可是宇扬使大家聚到一起，为的是弘扬评剧艺术，为评剧的信息化摇旗呐喊。通过一天的庆祝，使艺术家和艺术家之间有了亲密的交流，有的老朋友有数十年没有见面了，这次见面后相拥而泣。也使艺术家和戏迷之间有了亲密的接触，戏迷和艺术家合影、签字留念……。
在这点上，一周年的网聚是非常成功的，然而也出现了一系列不愉快，因为我们也是凡人，我们的工作有不足之处，主要是资金和精力因素，主要管理人员照顾老艺术家多一些，对会员照顾不够，因而给某些个别人以可乘之机，至于网聚后部分版主因种种原因离开宇扬，这不证明网聚的失误，但个别人的所作所为严重影响了宇扬的形象，给宇扬造成了不良影响，网聚后一些老艺术家相继向管理员反映，如某位版主冒充某报社的记者进行评剧采访，某位版主打着宇扬的旗号去天津采访莲小君老师（哪位认识莲小君老师的朋友可以问问莲小君老师我说的有没有错误）的事情……。由于宇扬是公益性网站，宇扬的经费就是我和susu两个人的工资，宇扬的各位版主全部出自自愿，没有任何报酬，有的只是奉献。本着团结友好、相互理解的出发点，对于这一切我们采 [1] [2] [3] 下一页
<%
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)
%> |
用户登录 
新用户注册 
