|
广电总局重金奖励电影发行
|
|
|
来源：新京报
|
中影集团获发行公司优秀奖
新影联获院线一等奖
本报讯（南方都市报记者谢晓实习生曹思王君）
昨天，全国电影工作会议在北京召开，电影局局长童刚亲自主持会议，广电部部长赵实出席并向获得国产影片考核成绩的18家优秀单位颁发了共300万元的重奖。
据悉，这是国家广电总局首次斥巨资对国产电影发行工作进行奖励。他们将去年10月1日至今年3月31日以来的国产片票房考核成绩进行了一次评比，选出其中的优胜者进行鼓励。今年以来电影局一直强调电影产业化，虽然今年国产片拍摄总量比去年大有增长，但根据实际调查，能进入院线上映并取得好票房的国产片屈指可数。尤其是上半年第一季度国产片成绩总体下滑，电影局重新将国产影片的发行工作提上重点议事日程，这次重金奖励便看出他们的决心。
这次获奖的18家单位分成四类：一类是进口影片全国发行公司，得奖者只有中影公司一家；二类是国产片票房达300万元以上的院线公司，其中分为一、二等奖，一等奖奖金10万元，二等奖奖金8万元；三类是考核分值在85分以上的电影公司，由新疆和西藏两家电影公司获奖；四类是放映国产片票房达150万元以上的影院，共31家获奖。
北京的院线方面，中影集团获得发行进口影片全国发行公司优秀奖；新影联获得国产影片票房达300万元以上的院线公司一等奖；新世纪影院、新东安影院、大华影院、青年宫影院、五道口影院、时代影院、地质礼堂，以及华星电影院获影院奖。保利华亿和保利博纳获得发行国产影片优秀单位奖。
|
|
|
|
<%
if SpecialID<>0 then
Response.Write "
| | "
set rs4=server.CreateObject("ADODB.RecordSet")
rs4.Source="select * from special where SpecialID=" & SpecialID
rs4.Open,conn,1,1
Response.Write "| 相关专题:" & trim(rs4("specialname")) &" | "
rs4.Close
set rs4=nothing
Response.Write "| 专题信息: | | "
rs.Source="select top 5 NewsID,Title,BigClassName,SmallClassName,SpecialID,updatetime,click from News where (NewsID<>" & NewsID & " and SpecialID=" & SpecialID & ") order by NewsID DESC"
rs.Open,conn,1,1
if rs.EOF then
Response.Write "| 没有专题信息 | "
else
while not rs.EOF
Response.Write "  " & trim(rs("Title")) & "(" & trim(rs("UpdateTime")) &")[" & rs("click") & "] | "
rs.MoveNext
wend
Response.Write "| [更多... ] | "
end if
rs.Close
set rs=nothing
end if
'------------------------------------------------------------------------------------------------------------------------------------
Response.Write "
| | "
Response.Write "| 相关信息: | | "
if about<>"" then
sql="select top 5 * from news where about like '%" & about & "%' and title not like '%" & title & "%' order by newsid desc"
set rs=conn.execute(sql)
do while not rs.eof
Response.write "| " & trim(rs("Title")) & "(" & trim(rs("UpdateTime")) &")[" & rs("click") & "] | "
rs.movenext
loop
Response.Write "| [更多... ] | "
else
Response.write "| 没有相关信息 | "
end if
'rs.close
set rs=nothing
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select top 5 * from review where NewsID=" & NewsID & " order by reviewid desc"
rs1.Open rs1.Source,conn,1,1
if rs1.EOF then NoReview=1
Response.Write "
| | "
Response.Write "| 相关评论: | | "
%>
<%
if not NoReview then
while not rs1.EOF
author=server.HTMLEncode(trim(rs1("author")))
email=server.HTMLEncode(trim(rs1("email")))
content=trim(rs1("content"))
content=replace(content,"<","<")
content=replace(content,">",">")
content=replace(content,chr(13),"
")
ContentLen=len(Content)
%>
| |
<%
rs1.MoveNext
wend
end if
rs1.Close
set rs1=nothing
conn.close
set conn=nothing
%>
|
| | |
