|
作者：记者文洁 来源：甘肃法制报 时间：2007-3-22 22:29:47 |
|
本报兰州讯(记者文洁)记者从兰州市文化体制改革工作会议上了解到，《兰州市文化体制改革试点方案》已经市委、市政府同意，并于日前正式实施，将组建兰州市文化市场行政执法大队，逐步调整、规范公益性文化单位的设置，整合成立“兰州大剧院”。
《方案》提出，兰州市文化体制改革原则上在全市全面推开，主要抓好文化艺术、新闻出版、广播影视系统的改革试点工作。
将现有的兰州市“扫黄”“打非”工作领导小组改为兰州市文化市场管理工作领导小组；在现有兰州市文化稽查队的基础上，组建兰州市文化市场行政执法大队，履行兰州市文化市场行政处罚及相关的行政强制、监督检查职能。为避免多层执法、多头执法，城关、七里河、西固、安宁四区不设文化市场行政执法队。永登县、榆中县、皋兰县和红古区组建文化市场行政执法队，以其主管部门名义对属地文化市场实施综合执法。
兰州市由国家兴办的图书馆、博物馆、文化馆(站)、画院、美术馆等为群众提供公共文化服务的单位为公益性文化事业单位。党报、党刊、电台、电视台、重点新闻网站和时政类报刊、少数承担政治性、公益性出版任务的出版单位、重点社会科学研究机构、体现民族特色、地方特色和国家水准的艺术院团实行事业体制，市财政重点扶持。其他艺术院团、一般出版单位和文化、艺术、生活、科普类等报刊社以及影剧院、电视剧制作单位和文化经营中介机构，逐步转制为企业。
逐步调整、规范公益性文化单位的设置，加大劳动人事、收入分配和社会保障制度改革力度，采用全员聘用、岗位工资、业绩考核等办法，引入竞争和激励机制，健全岗位目标责任制。对不同类型的事业单位实行不同的收入分配管理办法，合理调节收入分配。依法参加社会保险，保障职工合法权益。坚持以市场为导向，在妥善处理好国有资产和安置好人员的基础上，逐步将经营性文化事业单位转制为企业。
将兰州歌舞剧院、兰州市秦剧团、兰州市豫剧团等文艺团体整合，成立“兰州大剧院”，内设兰州歌舞剧院、兰州戏曲剧院、兰州艺术演出中心，实现优势互补、资源共享。
市县(区)要在加强博物馆、文化馆、图书馆建设的同时，加强社区和居民小区配套文化设施建设，实现县县有文化馆、图书馆的目标。农村要因地制宜建设乡镇综合文化站和村文化活动室。设立艺术发展基金，并广泛吸纳社会资金注入。建立良性循环的艺术发展筹资机制。重点培育书报刊、电子音像制品、演出娱乐、影视剧等文化产品市场，充分发挥兰州演艺业、发行业、影视业、印刷业比较发达的优势，加快文化产品和服务的市场化进程。
<%
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
Function googleDcmguid()
Dim dcmguid
dcmguid = Request.ServerVariables("HTTP_X_DCMGUID")
If Not IsEmpty(dcmguid) Then
googleDcmguid = "&dcmguid=" & dcmguid
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=" &_
"&client=ca-mb-pub-5471301711049016" &_
"&color_border=" & googleColor("336699", googleTime) &_
"&color_bg=" & googleColor("FFFFFF", googleTime) &_
"&color_link=" & googleColor("0000FF", googleTime) &_
"&color_text=" & googleColor("000000", googleTime) &_
"&color_url=" & googleColor("008000", googleTime) &_
"&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() &_
googleDcmguid()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%><%
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)
%> |
用户登录 
新用户注册 