|
作者:潇湘夜雨 来源:宇扬评剧苑 时间:2003-7-27 |
|
取了忍耐并默默作着弥补的工作。为了改版,我们用了两个月的时间策划、整理了相关文件,改版后,使宇扬焕然一新,使之更加成熟、专业。现在的宇扬,不但是各位会员、朋友们的家园,也是艺术家的家园,大家有所不知,现在许多评剧专业人员、艺术家经常来到宇扬查找资料、查询信息、到论坛发表观点,到聊天室和会员们聊戏唱戏。
随着宇扬两周年的来临,宇扬在论坛中开辟了一个板块来庆祝宇扬两周年的活动,有众多宇扬会员发表了感情至深的诗歌和文章,来抒发对这个评剧网络家园的感情。多年不谋面的花月仙老师,尽管她老人家身体状况欠佳,尽管她老人家自己保留的资料非常非常有限,然而花老师却在宇扬二周年之际亲手将一个远方戏迷赠送她的本人唱腔精选交到我的手中,老人家拉住我的手说:“小伙子,大家想听我唱戏,你就放上吧!有什么困难尽管来找我。” 我还清楚的记得去年网聚后的一天,花淑兰、筱紫玉老师在离京之际的嘱托:“不管有多大的困难,宇扬一定要办下去,有困难就说话。”刘小楼老师因年迈没有参加网聚,得知我们网聚成功的消息后,用电话向宇扬祝福。郑桂芳老师、李红霞老师为支持宇扬,放下重病的亲人,长途跋涉来京;在这次宇扬全面改版之际,82岁的中国评剧院老院长胡沙老师亲笔为宇扬题写了站名;最难忘的就是本月13日由宇扬诚邀的著名评剧表演艺术家,张派小生创始人张德福老师来到了宇扬,参观了宇扬的网站和询问了当前宇扬的现状,参观完网站后,欣然提笔为在留言簿上题写了“宇扬评剧苑开辟了评剧信息化的先河”。下午16:00整,在我们的带领下,张德福老师来到了宇扬评剧聊天室,和宇扬的会员一起通过互联网为宇扬庆祝两周岁的生日。……太多了,一言难尽呀,想到这些,我的眼泪不禁淌了下来。
宇扬能够取得今天的成绩,不是一个人两个人能够办到的事情,他的成长,需要大家的支持和呵护,在此,我感谢两年来支持、帮助我、和我共同甘共苦的副苑长susu,感谢一直默默支持宇扬的各位版主(风雨归舟、星河、zht1974、qm、春秋亭、百吉、秀云、毒人)和各位会员。我深知,宇扬评剧苑仅仅二周年,在互联网上依然还是一株脆弱的幼苗,在宇扬今后的道路上依然是崎岖不平,但我既然选择和创造了宇扬,宇扬就是我的生命,我会在大家的支持帮助下克服重重困难将宇扬进行到底的。我相信,不久的将来,宇扬评剧苑必将成为互联网上一颗璀璨的明 上一页 [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)
%> |