" search=search&"" 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%>

报料、招商、投诉热线:020-83825987 在线订报  在线投稿 网站首页 | 活动视窗 | 时政要闻 | 金融财经 | 产经新闻 | 社会新闻 | 科技动态 | 教育文化 | 旅游休闲 | 饮食娱乐 | 粤港合作 泛珠新闻 | 广州 深圳 珠海 佛山 汕头 中山 东莞 江门 韶关 河源 梅州 惠州 汕尾 阳江 湛江 茂名 肇庆 清远 潮州 揭阳 云浮

您的位置：首页 > 广东新闻 > 韶关 　 走进八卦围 如堕迷魂阵 　 wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:160 时间:2006-6-3 ——探访粤北翁源神秘客家围屋   本报珠三角新闻中心记者：唐苗苗、徐超　通讯员：李先德   　粤北翁源县城以北15公里，有个粤北客家围屋中独一无二的神秘「八卦围」。这个始建于明朝弘治年间的村落，因其围屋按八卦布局建造而称奇。记者初次入内，仿如撞入诸葛亮布下的八卦阵，扑朔迷离。转头顾盼间，两匹白马迎面奔来，数千矮屋拔地而起，550年来的历史在这纵横交错的卵石道上一一重演。千家万户大摆宴席赶「关社」的景象，太平天国残部屠村血流成河的景象……如今随着围内居民的陆续迁走，这个曾经盛极一时的大围已日显破败之象，让人叹惜几许荒唐几许伤！   　夏日雨后，在当地人的带领下，记者一行来到了翁源县江尾镇葸茅岭一个被远近村民笑称为「迷魂村」的八卦围。首先映入眼帘的，是大围正中央入口处一座恢弘的宗祠。提步而入，四个门坎把宗祠由里到外分成四个部分，每一部分的石柱上都篆刻有对联，即使年代久远，一笔一划仍显苍劲有力。   张姓村庄 传为张九龄后裔   　其中「千秋事业承，十策家声继曲江」一联，是八卦围村民渊源的有力左证。据闻，八卦围的村民全部姓张，祖先张文公从福建迁至曲江，最后辗转来到翁源落户，对联中的「十策」指的是唐代宰相张九龄的「十策方略」，「十策家声继曲江」说明村里的张姓族人全是张九龄的后裔。   　在祠堂中心右墙上悬挂着经过装裱的红榜，上面写着「张九龄（宰相）后裔葸茅岭族谱」。听村里的人说，这个祠堂以前用于供奉全村人的祖先牌位，即使是九成多村民已经迁出八卦围的今天，村民们逢红白喜事，仍要回到这个祠堂操办。   白马神话 造就迷魂八卦阵   　走出祠堂，左转右拐地，记者被带进了「八卦阵」。只见八卦围内所有的房屋建筑均为砖木结构，屋形多呈弧线状，一环一环地，由一条条纵横交错的鹅卵石小道连接，由里到外按八卦图形层层加串起来，大围四周还设有干、坤、巽、寅四门，就连门口的鹅卵石都呈太极形状，非常奇特。葸茅岭村委会副主任张金真告诉记者，整个大围占地21,300多平方米，共有小房屋1,653间，街巷89条。就是这些宽窄不一的街巷构成了「迷魂阵」，再加上房屋外形相似，外人进入如无向导，半个小时内必会迷路，不知所向。   　村落何以建成八卦形状？村里老人讲了一个有趣传说。相传张文公从福建迁至翁源后，其妻妾不合闹分居。小老婆发现她经常傍晚挑满一缸水到早上就没了，怀疑是大老婆欺负她，就在水缸附近埋伏窥视。三更时分，只见两匹白马过来把水喝光。小老婆沿途追去，发现两匹马跑到一个草墩里面就消失不见了。随后在草墩中，小老婆挖出了两缸白银！小老婆觉得这是块宝地，于是请来风水先生，打算在此处建房安居。风水先生观察此地应发千家丁口，于是设计了八卦围，嘱咐张氏祖宗，以后人口不断增多便按照八卦层层加串扩建，八卦村由此得来。   历经沧桑 村落破败待整修   　每年农历交春后的第五个戊午日，是八卦围的「关社节」。一到这一天，家家户户都会走亲访友大宴宾客。但如今行走在阡陌之间，偶尔能听到犬吠声声，偌大的村围却人迹罕至。张金真告诉记者，八卦围在鼎盛时期曾住过二三千人，但随着村民陆续往外迁出，如今的八卦围只剩不到30户人家，且均为老龄人或极其穷困的家庭。   　八卦围历经550年的沧桑，早已荒草丛生，砖墙倒塌。这一独特的历史文化遗产已被翁源县政府列为县级文物保护单位，却因资金匮乏，未能得到修复。   　村中最老的张婆婆今年90岁，她这一辈子都不愿意走出八卦围。承载了她所有儿时的记忆、青春豆蔻风姿的八卦围，如今在现代文明的侵蚀下，也像她一样慢慢老去……   常闹笑话：新娘嫁错郎 村妇入错房   　据村民介绍，由于围内建筑排列错综复杂，导致入者迷路闹出许多笑话。据称，以前八卦围内曾有两家人在同一日娶媳妇，由于街巷众多，房屋相似，送亲队伍竟然找错了新郎家门，差点让新娘入错洞房。 　刚过门的新娘子，不熟悉村中道路，也经常笑料不断。农业集体化时期，村民们日夜干活，非常疲累。有些村妇夜间走出大围去如厕，回来时由于道路昏暗加上实在太困，竟然入错房门，与不相识的男人共度一晚，到第二天早上醒来才惊觉大叫。   　还有村民告诉记者，围屋极盛时期，村子大了，什么人都有，有个别宵小之辈利用八卦围内巷子多、狭窄、弯道多的特点，经常对路经的妇女揩油。为了保护自己，围屋的年轻村妇晚上出门前要在胸前扣上一个无耳粪箕。围屋少妇晚上出门带粪箕成了当地的特色。   惨烈灾难：抵御太平军 血流成河   　八卦围这座550年的奇特老村落，可谓历经沧桑。自明朝中后期兴建以来，到了上世纪末围屋居住人口达二三千人，盛极一时。但也就在此时，八卦围遭遇了历史上最为惨烈的灾难。   　据记载，清咸丰九年（1859年），太平军余部惠州农民起义军戚火姑部北上途经八卦围，因士兵掠食被村民射杀10多人。为了报复，太平军把八卦围围得水泄不通，要求围内村民挂太平军军旗以示投降。围内老弱妇孺已事先躲避，剩下300多名青壮年男子凭松树炮、长矛、大刀等抵抗。   　由于八卦围构造独特，包围紧密，太平军苦攻一月后改用火烧。据村里84岁的张志新老人介绍，当时村民们为了逃命，躲避在巽门土楼里，从窗口逐个往外跳，却被守候在窗外的太平军一一刺杀，并随手将尸体抛进巽门外的水塘里。   　太平军撤走后，事前撤出的老弱妇孺回到村里，却见村里已成人间地狱，血流成河，水塘里堆满了村民的尸体。   　如今这口曾被挖出数百具骸骨的水塘，水面上早已长满浮萍，平静无波地，继续见证八卦围的兴衰起落。   专家关注：八卦围历史文化价值极高   　据张金真介绍，在八卦围中央的阴阳交汇点上，原有一口直径达3米的古井，水质清凉，是全围人唯一的水源。但在1993年一次地震中古井塌方了，目前被泥土乱草所湮没。如今的八卦围已经淡出了寻常百姓的生活，却作为一种古代建筑的标本，被专家所关注。   全国最大客家围屋   　中国民俗学会理事、风水文化与建筑民俗专业委员会副主任、秘书长，广东民俗文化研究会副秘书长曾祥委作为客家文化研究专家，曾五次带着学生到八卦围考察。曾祥委对本报表示，经他和学生亲自数过，八卦围现有房屋800多户，占地21,300平方米，这些数据都在目前记载数据中居冠，可以说八卦围是目前中国有文字记载的最大的客家围屋。   　曾祥委说，除了规模大，八卦围类八卦图形而建，坐西南向东北，依四大天局设干、坤、巽、寅四门，在风水上非常讲究，是非常独特的。 　再加上村内有很多民间文化传说，又经历过太平天国屠村的历史，可以说八卦围具有很高的历史文化价值。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 网 友 评 论 田心张:     田礼禾:    太平军屠城、屠村的事迹所在多有，赖不掉的。他们干的并不都是好事！这里也没什么起义，被杀的都是规规矩矩的百姓。 满洲狗:    明明是满洲狗镇压我们大汉民族的起义，进行了屠村！却要赖到我们自己人头上来！~这个作者分明就是汉奸！ 田礼禾:    八卦围座坤向艮，原开乾、艮、巽门，称为“四大天局”，后来加开寅门，在风水上非常讲究，井是文革期间开的，是风水山葸茅岭所在，我去过后才填的，咸丰一役死三百余人，县志有载。现在的围子是重修的，原来三面环水，非常注重防御功能。 发 表 评 论 您的大名:（点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·港商6亿投南雄生物发电 ·南雄招商「四面」突破 ·仁化藉丹霞山发展旅游业 ·翁源以园区为平台招商引资 ·韶关推优惠政策 引港商产业 ·千年古镇故事多 ·中国旅游胜地——丹霞山 ·仁化冀五年财税收入翻番 ·乳源县政府来港会乡贤 ·走进八卦围 如堕迷魂阵 ·韶关建大丹霞生态旅游圈 ·韶关市府来港推介经贸 ·仁化五大产业成经济支柱 ·韶关退出产煤大市行列 ·仁化建四园区迎产业转移 ·韶关打造大丹霞旅游圈 ·徐建华当选韶关书记 ·新界总商会青委考察韶关 ·韶关市府邀港各界恳谈 ·政经学会文促会游韶关 ·韶关教育关注弱势群体 ·乳源西京古道 对接海上丝路 ·韶关设粤港农业合作示范区 ·韶关今年引资426亿 ·韶关机场军转民 港澳半小时 ·韶关暴雨炸坝泄洪 ·广东丹霞山 18日举行集体 ·50对中外新人丹霞完婚 ·新丰江流域 向工业说不 ·韶关发行百万《应急手册》

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