|
范冰冰出任反盗形象大使
|
|
|
来源：新京报
|
|
《千机变2》举行“千名经销商、万人律师团”反盗版誓师大会
范冰冰为《千机变2》担任反盗形象大使。
（记者冯睿）即将于本月上映的香港魔幻巨制《千机变2花都大战》昨日举行了“千名经销商、万人律师团”反盗版誓师大会。同时，《千机变2》主演之一的范冰冰被英皇电影有限公司委任为该片反盗版形象大使。
8月8日在北京民族文化宫举行的全球首映典礼是该片首次公开放映，为杜绝不法分子乘机盗版，片方和发行方准备了一系列专业的防盗版措施———观众门外存包、放映厅的入口处将安置高敏感度安检门，辅以高精密手持式安检仪，聘请专业技术人员持精密监测仪器检查放映大厅等。
电影局艺术处处长江平在发布会现场发表了一段激情洋溢的讲话。他指出，如果不是因为盗版，《十面埋伏》的票房将是1亿7千万元人民币上下，至今受到的损失为3千万元人民币左右。江平号召中国电影界各方面人士共同努力、严防盗版。在介绍这次活动的反盗版大使范冰冰时，江平提到了近期受到多方关注的赵薇，他认为这些年轻演员为中国电影做出了自己的贡献，“对待这些德艺双馨的演员，我们应该给予更多保护。”
|
|
|
|
<%
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
%>
|
| | |
