<%MDBname="news"%> <% 'on error resume next set conn=server.createobject("ADODB.CONNECTION") 'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(""&MDBpath&"../databases/data/"&MDBname&".asp") '如果你的服务器采用较老版本Access驱动,请用下面连接方法 connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(""&MDBpath&"../databases/data/"&MDBname&".asp") conn.open connstr %> <% newshu=2 '每个分类显示最新文章数 toplen=10 toplen_wz=13 chalen=2 search=search&"
" search=search&"

" search=search&"" search=search&"" search=search&"" set rs=server.CreateObject("ADODB.RecordSet") set rs_info=server.CreateObject("ADODB.RecordSet") set rs_yl=server.CreateObject("ADODB.RecordSet") set rs_t=server.CreateObject("ADODB.RecordSet") function Title(content) if content<>"" then Title=content Title=replace(Title,"[加粗]","") Title=replace(Title,"[倾斜]","") Title=replace(Title,"[下划线]","") Title=replace(Title,"[删除线]","") if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" Title=replace(Title,"[红色]","") Title=replace(Title,"[蓝色]","") Title=replace(Title,"[绿色]","") Title=replace(Title,"[紫色]","") Title=replace(Title,"[酱色]","") Title=replace(Title,"[橙色]","") if instr(1,Title,"0 then Title=Title+"" Title=replace(Title,"[建议]","[建议]") Title=replace(Title,"[注意]","[注意]") Title=replace(Title,"[下载]","[下载]") Title=replace(Title,"[公告]","[公告]") Title=replace(Title,"[转载]","[转载]") Title=replace(Title,"[焦点]","[焦点]") Title=replace(Title,"[社会]","[社会]") Title=replace(Title,"[推荐]","[推荐]") Title=replace(Title,"[原创]","[原创]") end if End function function Site_Link(showType,showNum) dim link_i,link_ii link_i=0 link=0 if showType=1 then sql="select top "&showNum&" * from SiteLink where isLogo=1 order by DateTime" Rs.open sql,conn,1,1 if not(Rs.eof and Rs.bof) then do while not Rs.eof Site_Link = Site_Link & ""&vbcrlf link = link + 2 if link mod 6 =1 then Site_Link=Site_Link&"
" end if Rs.movenext loop end if rs.close else sql="select top "&showNum&" * from SiteLink where isLogo=0 order by DateTime" Rs.open sql,conn,1,1 if not(Rs.eof and Rs.bof) then do while not Rs.eof Site_Link = Site_Link & ""&rs("mySiteName")&""& vbcrlf link_i = link_i + 1 if link_i mod 8 =0 then Site_Link=Site_Link&"
" end if Rs.movenext loop end if rs.close end if end function strSite_Link_Text=Site_Link(0,8) strSite_Link_Logo=Site_Link(1,24) i=0 sql="select top 30 title,id,dj,date from info where date>Now()-7 order by hits desc" rs.open sql,conn,1,1 if rs.eof then top="还没有文章" else do while not rs.eof filetop=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) if instr(rs("Title"),"0 then toplen1=toplen+20 if len(rs("Title"))>toplen1 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"
" end if else if len(rs("Title"))>toplen then titley=left(rs("Title"),toplen_wz)&"" else titley=rs("Title") end if end if if rs("dj")=6 then Txtop=Txtop&"·"&Title(titley)&"
" else Txtop=Txtop&"·"&Title(titley)&"
" end if i=i+1 if i>=30 then exit do rs.movenext loop end if rs.close '今日导读开始 i=0 sql="select top 12 id,title,tid,date from info order by date desc" rs.open sql,conn,1,1 if rs.eof then infolist="·还没有文章" else for i=1 to 12 if rs.eof then exit for rs_t.open "select * from infotype where id="&rs("tid"),conn,1,1 if not rs_t.EOF then TN=split(rs_t("tname"),"|") end if rs_t.close filetop=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) datetime=year(rs("date"))&"_"&month(rs("date"))&"_"&day(rs("date"))'时间格式:年/月/日 datetime1=month(rs("date"))&"/"&day(rs("date"))'时间格式:月/日 '今日导读标题断行开始 if len(rs("Title"))>17 then titley=left(rs("Title"),17)&"..." else titley=rs("Title") end if '今日导读标题断行结束 infolist=infolist&""&lm&"·"&Title(titley)&"
" rs.movenext next end if rs.close '今日导读结束 rs2=conn.execute("select count(*) from info where year(date)&month(date)&day(date)=year(date())&month(date())&day(date())") shuinfo=rs2(0) Dim list_4(20) Dim list_5(20) Dim list_6(20) sql="select * from specialx where tj=1 and spics<>''" rs.open sql,conn,1,1 if NOT rs.EOF then do while not rs.eof kk=kk+1 SN=split(rs("sname"),"|") for i = 0 to ubound(SN)-1 next SSY_name=SN(0) list_4(kk)=""&SSY_name&"
"&rs("introduce")&"" list_5(kk)="" rs.MoveNext loop end if rs.close sql="select * from specialx where tj=1 and spics=''" rs.open sql,conn,1,1 if NOT rs.EOF then do while not rs.eof tt=tt+1 SN=split(rs("sname"),"|") for i = 0 to ubound(SN)-1 next SSY_name=SN(0) list_6(tt)=""&SSY_name&"" rs.MoveNext loop end if rs.close rs.open "select * from infotype ",conn,1,1 if not rs.eof then ts=rs("ts") TN=split(rs("tname"),"|") TI=split(rs("ts"), ",") for i = 0 to ubound(TN)-1 if i=ubound(TN)-2 and ubound(TN)>1 then TTY_id=TI(i) TTY_name=TN(i) end if all_type_top_id=TI(i) all_type_name=TN(i) thistype=thistype & "-> "&TN(i)&"" thistitle=thistitle & " - "&TN(i)&"" next end if rs.close i=0 sql="select * from info where pic<>'' and commend='1' order by date desc" rs.open sql,conn,1,1 if rs.eof then image="还没有图片文章" else do while not rs.eof if instr(rs("Title"),"0 then toplen1=toplen+20 if len(rs("Title"))>toplen1 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"
" end if else if len(rs("Title"))>toplen then titley=left(rs("Title"),toplen)&"" else titley=rs("Title") end if end if fileimg=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) noid=noid&" and id<>"&rs("id")&"" i=i+1 if rs("dj")=6 then image=image&"" else image=image&"" end if pic=rs("pic") pic=Replace(pic, "../../", "") image=image& "
"&titley&"
" if i=6 then exit do rs.movenext loop end if rs.close '公告开始 sql="select top 1 id,newsname,addtime,newsnote from Announce order by addtime desc" rs.open sql,conn,1,1 if rs.eof then infolist="·还没有公告" else do while not rs.eof Announce=Announce&""&rs("newsnote")&"["&rs("addtime")&"]
" rs.movenext loop end if rs.close '图文混排开始 i=0 sql="select * from info where pic<>'' and commend='1' order by date desc" rs.open sql,conn,1,1 if rs.eof then DefaultPic="还没有图片文章" else do while not rs.eof infoy=left(rs("info"),108)&"..." if instr(rs("Title"),"0 then if len(rs("Title"))>10 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"" end if else if len(rs("Title"))>1 then titley=left(rs("Title"),16)&"..." else titley=rs("Title") end if end if fileimg=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) noid=noid&" and id<>"&rs("id")&"" i=i+1 if rs("dj")=6 then DefaultPic=DefaultPic&"" else DefaultPic=DefaultPic&"" end if pic=rs("pic") pic=Replace(pic, "../", "") DefaultPic=DefaultPic&"
"&Titley&"

  "&infoy&"[详细报道]" if i>=1 then exit do rs.movenext loop end if rs.close '图文混排结束 list=list&"" rs.open "select * from infotype where tj=1 order by id",conn,1,1 if NOT rs.EOF then allshu=rs.recordcount Dim list_1(20) Dim list_2(20) Dim list_3(20) do while NOT rs.EOF ii=ii+1 list=list&""&split(rs("tname"),"|")(rs("tj")-1)&"|" list_1(ii)=""&split(rs("tname"),"|")(rs("tj")-1)&"" list_2(ii)="

更多内容 ...
" i=0 sqqq_yl="" sql_yl="select * from infotype where ts like '"&rs("ts")&"%'" rs_yl.open sql_yl,conn,1,1 if not rs_yl.eof then do while not rs_yl.eof sqqq_yl=sqqq_yl& " or tid="&rs_yl("id")&"" rs_yl.MoveNext loop end if rs_yl.close rs_info.open "select id,title,dj,date from info where tid="&rs("id")&""&sqqq_yl&" order by id desc",conn,1,1 if NOT rs_info.EOF then do while not rs_info.eof fileming=year(rs_info("date"))&month(rs_info("date"))&day(rs_info("date"))&hour(rs_info("date"))&minute(rs_info("date"))&second(rs_info("date")) if instr(rs_info("Title"),"0 then chalen1=chalen+20 if len(rs_info("Title"))>chalen1 then titlex=left(rs_info("Title"),chalen1)&""&"..." else titlex=rs_info("Title")&"" end if else if len(rs_info("Title"))>chalen then titlex=left(rs_info("Title"),chalen)&"..." else titlex=rs_info("Title") end if end if if rs_info("dj")=6 then list_3(ii)=list_3(ii)&"["&split(rs("tname"),"|")(rs("tj")-1)&"]"&Title(titlex)&""&datetime1&"
" else list_3(ii)=list_3(ii)&"["&split(rs("tname"),"|")(rs("tj")-1)&"]"&Title(titlex)&""&datetime1&"
" end if i=i+1 if i>=newshu then exit do rs_info.movenext loop end if rs_info.close rs.MoveNext loop end if rs.close set rs=nothing set rs_yl=nothing set rs_info=nothing conn.close set conn=nothing%> 香港文汇报珠三角新闻网_「水晶宫」:剔透藏玄机 处处高科技

您的位置:首页 > 综合新闻 > 时政要闻

 

「水晶宫」:剔透藏玄机 处处高科技

 

wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2007-12-23


■「南海一号」即将安家的「水晶宫」,游客未来可通过长200、厚15厘米、造价达800万元的亚克力板,欣赏沉船真容。图为模拟图。

 

 「南海一号」22日成功整体浮出水面后运往阳江,其将于27日「安家」的海上丝绸之路博物馆内的「水晶宫」,立刻成了众人关注的下一个焦点。尽管尚未完工,但这个环环相扣的波浪形建筑物已经显露出令人赏心悦目的外观。阳江市官员透露,造价1.6亿的博物馆将于明年底开馆,中国公民可免费参观。而相关专家表示,要看到「南海一号」的全貌,可能还要等几年甚至几十年。

 

 据了解,对已经整体出水的「南海一号」,专家会先进行保湿防腐处理。沉箱在进入「水晶宫」后,并不会立即打开,而是会等到宫内水温、微生物生长情况等都与「南海一号」沉没海域环境相近后进行,以防止船体及文物发生干裂等变化,预计需时两个月。

 

龙骨瘦身 蓄水三万立方

 

 据阳江市文化局局长冯绍文介绍,海上丝绸之路博物馆从西至东分为12345号拱,其中最大的椭圆形舱体就是专门保存「南海一号」的3号拱──「水晶宫」。

 

 专家告诉本报记者,游客要进入「水晶宫」,需先步行10分钟,沿2号拱那长达50的引桥拾阶而上,穿越长长的走廊向东即可。细心点的人会发现,这里无处不是弧形的面板。「水晶宫」的总设计师冼剑雄将此称为「龙骨」,能起到令建筑物「瘦身」的效果,有些钢筋的直径甚至达36毫米,为一般建筑罕见。

 

 在「水晶宫」内,除了可在水下观光走廊透过长200、厚15厘米、造价达800万元的亚克力板俯视「南海一号」原型,还可以观看考古人员在现场的发掘工作。据悉,当「水晶宫」内注入12深的海水后,蓄水将达3万立方米,海水从附近海域抽取,经过滤处理,循环运转。

 

冷光照明 输氮气减溶氧

 

 据悉,海上丝绸之路博物馆设计方案的目标为冲刺「世界标志性建筑」,因此,防酸碱、防风化、耐紫外线和抗氧化等性能显得尤其重要。

 

 专家表示,「水晶宫」将用冷光源替代暖光源,以避免红外线和紫外线的破坏。此外,为了降低微生物的存活量,可能会往海水里输入氮气,减少水中的溶氧量。

 

 至于其它几个舱体,1号拱和2号拱均为常设展厅,可藏放展品3万件。最引人遐想的当属1号拱上方珍品展览室的「拱中拱」设计,不但造型奇特,更彰显未来主人的身份。室内灯光会随着参观者接近或离开渐渐点亮或渐渐熄灭。「这主要是考虑到红外光的热作用和紫外线的短波领域会对文物造成损伤」,采用的光源亦会选择带紫外滤光层的灯具,同时会用防热滤光器,将辐射吸收或反射掉。

 

 4号拱和5号拱则不会对游客开放,分别是行政办公室、专家办公专用室,还有藏放珍品的库房。 ■本报南海一号打捞报道小组阳江22日电

 

「南海一号」事件簿

 

1987年 首度发现于广东阳江外海,被认定为目前年代最久远、船体最大、保存最完整的古商船;

02年初 国家和广东省的考古队进驻东平镇,进行沉船的初期考古发掘;

023月 「南海一号」进行小规模试掘,打捞出金、银、铜、铁、瓷类文物4,000余件;

0210月 国家正式确定打捞,并定下「原地打捞、整体保护、就地展示」的原则;

0512月 广东海上丝绸之路博物馆动工,「南海一号」未来将安置在馆内的「水晶宫」中;

0748 筹备5年后,沉船整体打捞工程正式启动;

07420 打捞和清理出文物60套、300件,包括一件精美的鎏金龙纹手镯;

075月 量身定造的巨型钢沉箱(即沉井)抵达打捞现场,标志着整体打捞行动正式展开;

071221 沉井起吊,并顺利吊起,「南海一号」重见天日。

 

中国古沉船 料逾10万艘

 

22日打捞现场俯拍全貌。新华社

 

 中国南海海域与地中海、加勒比海并称世界「三大沉船坟墓」,这片海面下的沉船数目预计超过2,000艘,其中最早的可以追溯到南北朝。在文物收藏界,历来有「一船十墓」的说法,保守估计,一艘长30、宽10左右的普通中型商船,仅瓷器就能装载10万件以上,而现在一个明宣德年的青花大盘,在文物市场可叫价几百万元。

 

 研究海洋社会经济史的厦门大学历史研究所所长杨国桢教授表示,宋元以来的中国古代沉船数量可能远远超过今人的想象。历史学界发现的关于宋元时期对航海的零星记载表明,当时十之八九的商船都沉没了。

 

 据统计,除了南中国海拥有的古沉船,在宁波、张家港、泉州、广州、福州等中国历史上最繁忙的贸易港口周围,亦可能分布大量的古代沉船。更有学界猜测,宋元以来,中国沿海地区可能沉没了10万艘以上的货船。可见,中国的古沉船打捞将是一个数量极其可观、酝酿着巨大财富和机遇的庞大新兴产业群。

 

 以今次「南海一号」古沉船为例,根据探测估计,整船文物可能达到6万至8万件,其文物价值曾有业内人士估计超过千亿美元,历史价值更是难以估量。

 

打捞业势旺 年生意额数亿

 

  【本报南海一号打捞报道小组阳江22日电】中国深海打捞事业的发展,给相关配套产业带来了巨大商机。广州打捞局负责「南海一号」打捞的总监刘伟良透露,本次「南海一号」打捞所需装备相当一部分都是从香港采购,主要是美国产品。

 

 此次「南海一号」大型打捞船「华天轮」号造价6亿元,广州打捞局副局长邝镜明表示,尽管造价高昂,但若是租给国外公司,每天的租金可高达11.5万美元。这样算来,只需8年到10年就可以收回成本。

 

 据了解,国际市场目前每年的海洋工程产品需求量约为500亿美元。沉船打捞形成的设备定制、工程招标、博物馆建设、旅游开发等一系列环节所形成的产业链群都可以赚钱,所造就的就业岗位也相当可观。

 

 从中国海底沉船的数量和规模来看,无疑将是一个价值数以亿元计和涉及相当多沿海城市和海域的庞大新兴产业群,无论在财富的积累效应还是国家文物的保护上,人们都有理由认为,这里将有一个充满希望的未来。

 

「阿波丸」沉船惹迷思

 

 人们同样期待,静静躺在福建附近海底像谜一样的日本「阿波丸」号沉船,最终也能够被中国人打捞出海,让传说中搭载在这艘船上的北京人头盖骨以及多达40吨的黄金等当年日本从中国掠夺的财富,能够重见天日。

 

印证海洋文明 广东志在申遗

 

■「南海一号」整体打捞举行起浮仪式。新华社

 

 据了解,目前广东省博物馆所藏的国家一级文物数量不过406件,而「南海一号」文物全部出水后,极有可能让这一数字翻倍。有人甚至说,依托「南海一号」的水下考古是广东一跃成为中国文物强省最直接、最有特色的路径。

 

 广东省文化厅副厅长景李虎认为,按照目前探摸阶段的成果显示,「南海一号」船头朝向西南240度,极有可能是由广州或徐闻出海驶向海外。「它与广州城中的伊斯兰教『光塔』、清真先贤古墓等遗址可以连成一条线索,一同见证广东2,000年来长盛不衰的海洋文明。」据悉,广东拟将以「南海一号」为基础整合徐闻古港、广州黄埔古港,共同申报海上丝绸之路世界文化遗产。

 

考古添新据 还原宋时风

 

 专家还将关注点投向「南海一号」的造船技术上。宋元是中国历史上造船技术大发展的高潮时期,宋船广泛使用了指南针等航海技术,还发明了隔水舱,船体巨大还可以养猪、种菜。「但是宋代发达的造船没有留下一张图纸,『南海一号』打捞出水后无疑为研究宋代造船提供了千载难逢的实物资料。」

 

 此外,「南海一号」未来出水的每一件文物,都可能高度浓缩当时的生活方式、贸易方式,提供陆地考古无从获得的左证,为今人展开一幅极为生动的宋人生活画卷。

 

铁器织品保存 全球未有良方

 

  【本报讯】据中新社22日电:在「亚洲第一吊」华天龙轻舒巨臂缓缓提起「南海一号」的剎那,随着沉井周边四泻的海水荡漾开去,20年的中国水下考古史翻开了新的一页。

 

 然而,出水后的「南海一号」及其文物的后期保护问题又摆在了中国水下考古专家的面前。2002年从「南海一号」出水的部分瓷器由于侵入瓷器釉面的盐分结晶,撑破原有的光滑釉面,现已出现裂痕。经过海水浸泡后的铁器、丝织品如何妥善保存,在世界范围内也还没有得到解决。这对「南海一号」来说,将是今后多年的大课题。

 

 广东省考古研究所魏峻博士说,对「南海一号」船体本身及瓷器的保藏,有赖于目前在中山大学进行的「南海一号」水环境研究的进展,预计在明年「水晶宫」注水前可以完成。

责任编辑:cnred 文章页数第[1]页 

页面功能 【我来说两句】【字体: 】【打印】 【关闭

相 关 连 接
·还没有相关文章
网 友 评 论
·还没有相关的评论!
发 表 评 论
您的大名: (点击这里注册)
友情提醒:评论请限制在100字以内,有长篇大论欢迎到论坛发表:)
 

综合新闻|广东新闻|专题新闻

>> 本类热点新闻

·朱小丹任穗书记 林雄掌粤宣
·新劳动法咨询 港商提10质
·黄云龙任广东省副省长
·粤调整五地级市首脑
·张德江近日赴京汪洋下周抵粤
·400亿超级石化 落户广东
·许宗衡:深港共建创新圈
·港珠澳大桥敲定明年动工
·南沙赢中科石化400亿项目
·粤筹建三条大西南铁路
·温总巡粤 为五中全会做调研
·「十一五」末 粤总产值势超
·珠澳深层合作 横琴或成试点
·广东前省长梁灵光辞世
·阳江军演 176个航班取消
·张德江:永远忘不了广东
·粤4000万元出口商品遭退
·粤港边界 铁网将拆
·佟星林木声任粤副省长
·穗深莞构筑扫黑铁三角
·港人内地养老 应享同等福利
·港政协委员吁粤设辅警
·港商向张德江黄华华进言
·三年投资一百亿 条条大路催
·十一.五商机之广东篇.广东
·港珠澳大桥 香港口岸方案三
·珠三角新政与港企出路四之三
·粤收紧赴港澳签注审批
·粤政府出招吸港企北迁
·温总:深港合作将增自由度

 

合作媒体

合作及广告联系电话: 020-83825987


文汇报简介 | 广告服务 | 读者联谊 | 在线订报 | 在线投稿 | 站内公告 | 设为首页 | 收藏本站
新闻中心地址:广州市沿江中路323号临江国际大厦15楼 电话:020-83825987  传真:020-83817466
网管信箱:webmaster@wwpprd.com  编辑信箱:editor@wwpprd.com
香港文汇报珠三角新闻网 版权所有©Copyright 2004 www.wwpprd.com
来访统计:  技术支持:中国红电子商务频道