<%@LANGUAGE="VBSCRIPT"%> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 news_numRows = news_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim news_total Dim news_first Dim news_last ' set the record count news_total = news.RecordCount ' set the number of rows displayed on this page If (news_numRows < 0) Then news_numRows = news_total Elseif (news_numRows = 0) Then news_numRows = 1 End If ' set the first and last displayed record news_first = 1 news_last = news_first + news_numRows - 1 ' if we have the correct record count, check the other stats If (news_total <> -1) Then If (news_first > news_total) Then news_first = news_total End If If (news_last > news_total) Then news_last = news_total End If If (news_numRows > news_total) Then news_numRows = news_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (news_total = -1) Then ' count the total records by iterating through the recordset news_total=0 While (Not news.EOF) news_total = news_total + 1 news.MoveNext Wend ' reset the cursor to the beginning If (news.CursorType > 0) Then news.MoveFirst Else news.Requery End If ' set the number of rows displayed on this page If (news_numRows < 0 Or news_numRows > news_total) Then news_numRows = news_total End If ' set the first and last displayed record news_first = 1 news_last = news_first + news_numRows - 1 If (news_first > news_total) Then news_first = news_total End If If (news_last > news_total) Then news_last = news_total End If End If %> <% Dim MM_paramName %> <% ' *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = news MM_rsCount = news_total MM_size = news_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End If End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record news_first = MM_offset + 1 news_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (news_first > MM_rsCount) Then news_first = MM_rsCount End If If (news_last > MM_rsCount) Then news_last = MM_rsCount End If End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&" End If MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = MM_urlStr & "0" MM_moveLast = MM_urlStr & "-1" MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size) If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0" Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size) End If %> 新会科技信息网_新会区网上企业展厅
     

 

 

 

 


大鳌镇
 

    改革开放以来,我镇在上级的正确领导下,在镇委镇府的统一协调下,团结奋斗,开拓进取,积极推进经济体制和经济增长方式的根本转变,坚持以“三个有利于”为标准,围绕营造我市“五个环境”和打好“三张牌”,积极引导和扶持外资、个体私营经济发展,初步建立起社会主义市场体制,社会经济得到持续、稳定、快速的发展,乡镇面貌得到了很大的改善,人民生活水平得到了很大的提高。
( 一 ) 、经济发展情况
    大鳌镇经济发展以工业为主。在“九五”期间,全镇经济持续发展。 2001 年,我镇国内生产总值达 7.2 亿元,工农业总产值 23.7 亿元,其中集装箱特色企业工业产值 19.3 亿元,地方财政收入 2700 万元,比 2000 年增力口了 200 万元,增长率为 8 %。今年 1-6 月,全镇国内生产总值 3.2 亿元,工业总产值 10.5 亿元,全镇第一至第二季度实现财政收入 1800 万元。
     “九五”期间,我镇工业发展势头迅猛,各单位、部门围绕企业转制、弓 | 进夕卜资、发展私营企业。目前镇办企业转制已经完成,全镇共有企业 1182 家,其中集装箱企业及其配套企业 30 家,其产业产值 16.2 亿元,已形成集装箱为主导,带动各行业共同发展的良好经济格局。在各级的支持和企业的自身努力下,企业呈现出新的生机和活力。 2001 年全镇的利用外资 1864 万美元,三资企业出口总,值达 1.0144 亿美元。由此表明,夕卜资企业已成为我镇工业的“大半壁河山”,是我镇经济的重中之重。由此,前来投资办厂客商不断增多,企业规模不断扩大。 2002 年全镇新发展企业有 50 家,投资总资达 1.3 亿万元,其中新办企业共 35 家,投资总额达 8200 万元,扩大生产规模的企业 15 家,新增投资总额达 4800 万元,使我镇个体私营经济及外资合资企业的后劲进一步增强,为今后的经济发展奠定了基础。
     “九五”期间,我镇基础设施日渐完善,社会事业蓬勃发展,人民生活不断提高。全镇铺设水泥路 90 公路,镇到各村道路全路达到二级水泥路标准。 1992 年,我镇公路成为新会市达标公路,并投资 300 多万元安装新鳌公路和沙角工业园等主要路段的路灯,健全道路网络已初步形成,全镇共有电话用户 2500 户,同时, IC 电话、移动电话、无线寻呼、图文传真、邮政快件等已在我镇得到广泛使用,镇供电部门通过扩容改造了 1 万伏高压线路 10 公里,新增和更换高耗变压器 80 台,改造了大鳌高压电网。建有 11 万伏变电站一座。另外, 2001 年镇自采水厂投资近 1000 万元新建一座自来水厂,使自来水日供水量达 3 . 8 万吨,并投资 250 万元进行自来水管网改造,满足全镇居民和各工商企业的用水需要。教学工作不断完善。 2001 年,全镇高中普及率达 91 . 3 % o 广播电视站完成有线电视信号光纤联网工程,成功使用光纤联网信息。全镇共有影剧场、文化中心、中心公园等文化休闲娱乐场所 130 多个,镇文化站被评为广东省一级文化站。镇容镇貌、卫生环境不断改善。 2001 年,全镇职工人平纯收 16780 元,比 2000 年增 5 %,全镇农民人均收入达 5980 元,比 2000 年增 8 %,个人在信用社存款余额为 3 . 33 亿元,全镇人均存款 1 万元,全镇拥有电视用户 8000 户,普及率 98 %,摩托车近 5000 辆,人民生活基础达到小康水平。
( 二 ) 、企业产业特色
     大鳌镇外资合资企业和个体私营企业在改革开放过程中,在国家对非公有制经济政策的调整中,通过镇委、镇政府制定的民营企业发展优惠措施下,逐渐形成了以集装箱为基础,以集装箱为龙头的特色产业。全镇 1182 家工业企业中,集装箱配套企业 30 家,其中产值超 500 万元的有 7 家,超千万元有 3 家,超亿元企业 2 家。大鳌镇已经成为全世界集装箱生产基地之一,整个集装箱生产特色企业继续保持迅猛发展势头。
     广东新会中集集装箱有限公司是我镇的龙头企业之一,前身是新会大利集装箱有限公司,始建于 1980 年,是中国较早的集装箱专业生产厂之一,最初由大鳌镇独资,经过 20 年来的发展,新会中集已从小型企业发展到集集装箱、五金化工、轧钢、货运、金融等多位于一体的集团公司。公司目前生产的集装箱,半挂车、空港设备、木地板全部出口。多年来,在各级党政和有关部门的关怀和支持下,不断发展,屡获殊荣。 1995 年公司重组后,中集的发展飞跃前进,在全球物流装备方面遥遥领先,创下骄人记录,集装箱产量销量从 1996 年连续多年保持世界第二,到 2000 年中集取得了 38 %的世界集装箱市场份额,成为国际集装箱业第二大的供应商。目前,新会中集集装箱有限公司年生产标准箱 10 万只,在同行中排行世界第二。
     中集集装箱有限公司,经过多年的发展,逐步由小变大,由低级到高级,持续提高自身在世界的地位。把握机遇,实现资产重组。在 1995 年,中集集团的领导层慧眼相中新会大利集装厂,通过多次谈判成功收购后,改名为新会中集集装箱有限公司,并以年产 10 万标准箱的辉煌业绩实现成功收购,使面 I 临困境的旧厂焕发出惊人生机,?成为中集集团的重要干货箱生产基地。该公司占地 150000 平方米,员工 3500 人,生产集装箱晶有 20 英尺、 40 英尺、 45 英尺、 48 英尺、 55 英尺。 2000 年,集装箱已通过 IS09002 国际认证。
     中集集团多次获得重大荣耀。 2000 年荣列“ 2000 中国最大 1000 家企业 ( 集团 ) 营业收入第 70 名”、国际商报评比出: 2000 年至 2001 年度中国最大 500 家外商投资企业第 11 位。去年 10 月 18-20 日,总裁麦估良被邀参加上海“ 2001 年 APEC 工工商领导人峰会”。 2001 年,集装箱冷藏箱产量已逼近世界第一位。 2000 年 6 月,广东省统计局公布 2000 年广东省工业企业集团 50 强中,中集集团创出口额第一位主营业务收入第 10 位。
     新会中集集装箱木地板有限公司始建于 2000 年 4 月,是我国国内第一家专业生产集装箱木地板的大型公司,由中集集团兴建和管理。公司按照中集集团总部,“高起点,高标准”,栗求,进行总体规划布局,并分三期实施设计与建设,今年第一季度完成第三期工程,投资 150 万美元建立原木旋切生产线,每年可生产 80000 立方米木地板单板,为公司增加 5000 万元产值。新会集装箱钢管有限公司是大鳌镇经济发展实业总公司与武汉实业有限公司合资兴建的企业,该企业位于大鳌镇沙角工业区。西靠西江河畔,北近大鳌镇过境公路,占地面积 9000 平方米,其中厂房面积 2000 平方米,总投资 1180 万,现、有员工近 100 人。投产于 1998 年初,年产量达 12000 吨,产值超 4200 万元旷去年,总产值达 6000 万元。该企业管理完善,设备先进。技术力量雄厚,指导产品为集装箱用钢管。产品取得 IS09002 认证。根据客方需要,可生产不同规格的钢管。产品除满足新会中集集装箱有限公司外,其余销往全国各地,是大鳌镇效益较好的企业之一,多次被评为大鳌镇的先进企业。
     新会力天化学有限公司是深圳客商在大鳌镇独资经营的私营企业,厂区占地面积 6000 平方米,总投资 800 万元,去年 3 月份试产成功,年生产水溶性酚醛树酯粘胶 8000 吨,年产值 2000 万元,主要用于集装箱木地板生产,是新会中集集装箱木地板有限公司的配套企业。经过多年努力,我镇已建立了以集集箱为龙头进行招商引商,不停引进其配套产业,现在继续洽谈集装箱门锁杆厂、溶剂厂等 10 家集装箱配套企业,?使我镇 集装箱行业更繁荣。
今后 3--5 年经济发展目标
( 一 ) 、指导思想
     在遵循社会主义市场经济的内在规律,深入分析国内外环境的前提下,全面总结改革开放和现代化建设的成功经验。以率先基本实现现代化的总任务、总目标统揽全局,全面贯彻市委市府关于'“工业立市、科教兴市、旅游旺市”的发展战略,坚持以经济建设为中心,抢抓机遇,努力争创新优势,加快发展步伐,把我镇两个文明建设推上新台阶。
( 二 ) 、战略目标
     今后四年,在上级有关部门的领导支持下,更加团结和依靠全镇各级干部群众,真抓实干,保持社会经济的持续快速发展,经济发展总体上要超过珠江三角洲的平均发展水平。主要体现为科技发达,经济实力雄厚,人民生活富足厂民主法制健全,社会风气良好。
四年里,主要是优化调整产业结构,大力发展外资和民营企业,培养和吸收高层次知识人才,依靠科技进步,推动产业升级,为率先基本实现现代化奠定坚实基础。
( 三 ) 、奋斗目标
1. 国民经济持续快速发展。到 2005 年,全镇国内生产总值达 10.5 亿元,比 2001 ,年增长 1.7 倍,年平均增长 13 %,人均国.内生产总值达 30880 元,比 2001 年增长 1.7 倍,年平均增长 10 . 8 %,全镇工农业总产值达 35.86 亿元,比 2001 年增 L5 倍多,年平均增长 8.6 %,加快第三产业发展速度,年平均增长速度达 20.6%. 调整优化产业结构,使三大产业结构比例为: 13 : 55 : 320 .
2. 大力发展三高农业和有机农业,引进优质高值新品种和加快农业产业化,现代化进程,建立有机食品生产基地、无公害蔬菜生产基地和绿色食品生产基地。
3. 工业继续保持良好的发展势头,力争至 2005 年产值超 5000 万元企业超 20 家,产值超亿元达 5-6 家。
4. 充分发挥第三产业发展优势,促进第三产业中的商业、饮食业、交通运输业、房地产业、邮电通讯业、金融保险业和居民服务业等发展。
5 .吸收和培养科技人才、发展高新技术产业,逐步向信息咨询、科学研究和综合技术服务等新兴行业发展,为我镇经济知识化、信息化、网络化奠定基础。
6. 展外向型经济新领域,创造有利条件,积极吸引外资,增强出口创汇能力,使出口总值比“九五”期末增加两倍。
7 .加强基础设施建设,完成商业步行街、成人学校、图书馆、广播电视大楼、及市场改造等重点工程。狠抓大鳌墟建设规划的落实,把大鳌建设成为交通畅顺、基础设施配套齐全、商业贸易繁旺、人民安居乐业的新城镇。
8. 强综合财力,财税收入维持稳定增长,“十五”期末全镇财政收入比“九五”期末接近翻一番。
9 .人民生活水平明显提高,到 2005 年,全镇职工年收入达 20500 元,年平均增长 8 %以上,农民人均年收入达 8155 元,年平均增长 8 %以上,人均储蓄存款超 3 万元,年平均增长 10 %以上。人民生活基本达到富裕,并向中等发达国家水平靠近。
10. 抓紧计划生育工作,按上级下达的计划人口自然增长率控制在 9 ‰ 以下,到 2005 年,全镇总人口控制在 3.6 万人以内。

 


关于我们 | 网站导航 | 联系我们 | 加入收藏 | 设为主页


广东省江门市新会区科学技术局  版权所有 ©
江门市新会区生产力促进中心、广州市华工电脑网络工程有限公司    制作维护