|
五项新举措让陕西农民看到好电影
去年,陕西省农村电影改革发展和数字化放映工作成绩骄人,全年放映电影37.2万场,首次实现全省一村一月一场电影的目标,其中数字电影覆盖率实现40%,建立了有效的数字电影放映网络、节目网络、培训网络、服务网络和监控网络,受到国家有关部委的充分肯定。前不久,省文化厅召开了农村电影工作会议,把农村电影工作作为全厅今年工作的重中之重进行研究谋划。省文化厅副厅长乐可锡在接受记者采访时说,开年以来,陕西省农村电影工作再推新举措,力争将数字电影覆盖率提高到60%,让更广大的农民群众能看到看好数字电影。
举措一 全面推行农村电影公益放映目标责任制
今年,陕西省将在全省全面建立各级农村电影公益放映目标责任制,一是层层分解落实公益放映场次,签订分级责任书,确保完成年度目标任务;二是加强对公益放映场次的严格考核和统计,对数字和胶片电影均实行双签回执单制度,杜绝弄虚作假;三是对各级政府财政补贴公益场次的经费,明确规定发放时间和程序。通过目标责任管理,建立责权清晰,分权科学,突出服务的管理模式,使往日的粗放式管理向精细化管理转变,确保农村电影放映“保质、保量、准时”。
举措二 全面落实农村电影各级财政补贴制度
今年,省政府把农村电影公益放映工程列入民生建设“八大工程”,列入各级政府工作的考核体系,这项工作受到了各级党委、政府前所未有的重视和支持。在中省两级财政每场公益场次补贴100元的基础上,全省各市县(区)为每场次公益放映再行配套80元—100元放映补贴,使得每场公益场次补贴不低于180元,为农村电影各院线公司培育壮大和服务站放映队伍稳定发展提供了坚实的支撑。省财政为数字电影放映地区增加拨款建设数字节目卫星接收站,为每县服务站配备数字电影服务车,资助各级数字电影技术人员和放映员培训工作,所拨款项是历年最多的一年。
举措三 实施公益场次财政补贴资金阳光工程
实施公益场次补贴资金阳光工程,让广大农民群众享受不折不扣的文化服务,是今年抓好农村电影工作的又一重要举措。阳光工程即为公开农村电影放映补贴资金使用情况,杜绝暗箱操作,规范资金划拨流程,明晰各方提取标准,并在市院线公司,县服务站和放映点公开上墙。在满足院线公司正常经营、稳步发展的基础上,补贴资金向基层放映一线倾斜,确保场次补贴分配公平合理,充分调动农村电影放映各方积极性。建立省市县三级举报制度,公布监督举报电话,落实监督举报责任,接受媒体、放映员和农民群众监督。建立健全农村电影放映公示制度,在每村中心位置制作农村电影公益放映公示牌,宣传农村电影公益放映政策,公布投诉电话,提前两天对放映活动进行公示。对占用、挪用补贴资金及克扣放映员放映工资的责任单位和责任人严肃处理,对服务态度不佳,放映质量不达标,群众投诉较多的放映员收回设备,取消公益放映资格,重新调配放映员。
举措四 大力提升放映动态监管水平
在成功应用农村数字电影放映GPS定位监控系统基础上,省文化厅与有关单位着手研发新一代的技术监控系统,通过技术升级,实现远程可视化管理,研制视频回传可视动态监控系统。这一监控系统对农村电影放映监控可以准确地提供完整的数据和图像,极大地强化了农村电影放映监控技术手段,提升了农村电影放映动态监管水平。这项技术监控系统计划今年在全省数字电影放映地区推广。
举措五 筹拍一批精品数字电影戏曲剧目
为了让国家舞台艺术精品工程剧目和农民群众耳熟能详的传统经典戏曲剧目开拓“第二演出舞台”,丰富广大农村地区对数字电影戏曲节目的需求,从节目源头推进文化创新,省文化厅积极实施精品工程和经典戏曲数字化,以实现优秀戏曲剧目大众化。名列国家舞台精品工程榜首的眉户现代戏《迟开的玫瑰》、经典秦腔剧《铡美案》、《十五贯》等戏曲节目的筹拍工作正在紧张进行中。拍摄精品戏曲剧目既有积极的公益文化意义,又填补了数字电影戏曲节目的空白。
<%
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)
%> |