温家宝总理会见默多克先生
|
|
|
|
|
2004年 5月10日，正在英国访问的温家宝总理于百忙中在伦敦会见了新闻集团董事长兼首席执行官鲁伯特默多克先生。
中国外交部长李肇星先生、中国驻英大使查培新先生以及新闻集团（中国）常务副总裁刘香成先生等参加了会见。
温总理感谢默多克先生多年来对中国的支持。他说：“中国需要世界来了解自己，但现在中国的声音还较弱，希望通过媒体向外界传递中国的声音”会见中，双方还就贸易壁垒、人民币汇率、知识产权保护以及新闻集团与中国进一步扩大合作等事宜进行了友好交谈。
新闻集团计划重组迁址美国上市
新闻集团于
2004 年
4 月
6
日在澳大利亚宣布，公司计划进行重组，将公司目前的注册地从澳大利亚转移至美国并寻求在纽约证券交易所上币。新闻集团表示，这个重组计划将扩大新闻集团股东基础的广度和深度，增强股票的流动性，而所有股东都将因此受益。新闻集团表示该计划需获得股东批准，并希望重组计划可以在今年年底前完成。
|
|
|
|
<%
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
%>
|
| | |
.gif){kind=spacer}
