|
王栓成退休前是石河子市检察院的检察长，检察战线的全国劳模。退休以后，他没有躺在功劳簿上享清福，而是积极参加社会公益活动，被人们称为“活雷锋”。
王栓成家住市二十三社区，2002年社区成立后，他被推选为社区老年协会会长、社区关协委员、居民代表。
社区成立之初，由于经费紧张，会员入会申请表没有钱复印，他就自己出资复印入会申请表400余份，在大家的努力下，社区老年人入会率达百分之八十以上。目前，社区老年协会成员已达400多人。为了开展社区老年文化活动，王栓成多方筹措资金，先后举办了“农行杯”“银力杯”等老年活动比赛，活跃了社区文化生活。在他的联系下，驻区单位赞助了5000余元，为社区添置了一套音响设备。他自己还向社区捐助500元买设备。
王栓成还是石河子秦腔团和社区戏曲队、秦腔队的团长，他不辜负大家的期望，四处筹措资金1万元，为秦腔团购买了器乐设备。去年9月，他带领秦腔团到农八师一四九团，在田间地头为拾花季节工演出。秦腔队还有两人被推荐走进中央电视台11频道地方戏《过把赢》表演节目。
去年，师、市有关部门为社区添置两套室外健身器材。为了使安装好的器材完好使用，他自愿承担起了社区健身器材的义务看护员。
在王栓成的建议下，社区设立了法律咨询服务点。他还自告奋勇给青少年讲法制教育课。
王栓成常说，就是要为社会多做点事，这样心情才愉快，身体也健康！
<%
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)
%> |
用户登录 
新用户注册 
