<%@LANGUAGE="VBSCRIPT"%> <% set news = Server.CreateObject("ADODB.Recordset") news.ActiveConnection = MM_newspage_STRING news.Source = "SELECT * FROM sunnews ORDER BY newstime DESC" news.CursorType = 0 news.CursorLocation = 2 news.LockType = 3 news.Open() news_numRows = 0 %> <% set agora = Server.CreateObject("ADODB.Recordset") agora.ActiveConnection = MM_newspage_STRING agora.Source = "SELECT * FROM sunagora ORDER BY agoratime DESC" agora.CursorType = 0 agora.CursorLocation = 2 agora.LockType = 3 agora.Open() agora_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 12 Dim Repeat1__index Repeat1__index = 0 news_numRows = news_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 11 Dim Repeat2__index Repeat2__index = 0 agora_numRows = agora_numRows + Repeat2__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' 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 %> <% set conn=server.createobject("adodb.connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("../db/buysell.mdb") set gqbiao = Server.CreateObject("ADODB.Recordset") Source = "SELECT top 10 * FROM 供求信息 order by 发布日期 desc " gqbiao.CursorType = 0 gqbiao.CursorLocation = 2 gqbiao.LockType = 3 gqbiao.Open Source,conn,1,1 gqbiao_numRows = 0 %> 名优特产---水果
返回首页
云霄概况
名优特产
旅游天地

供销社简介

投资指南

名优特产---水果类水产类

水果类


  乌山优质枇杷:以莆美大山和平金山两个万亩早熟优质枇杷基地为龙头,大力实施“1113”工程,全县种植优质枇杷10万亩,产量15万吨,我县获得“中国枇杷之乡”称号。
  枇杷性能介绍
  枇杷是我国南方名果,其果实鲜美,富含蛋白质、维生素C、胡萝卜素、钙、磷、铁等人体所必须的营养物质,具有止咳、润肺、清热、健胃等功效。
  云霄县是福建省枇杷生产区之一,乌山精选枇杷更以其肉细、汁多、皮薄、酸甜可口、风味独特而闻名遐迩。
  

  下河金枣:属芸香科金柑属,亦称金桔,学名罗浮。金枣果树需经嫁接,方能保持其优良性状。下河金枣皮薄肉嫩,色香味俱佳。过去下河金枣远销新加坡、香港等东南亚各国,广东潮汕地区和诏安县作金枣精制品的原料。金枣制品有咸甜等,咸金枣可作药用,甜金枣则为喜庆时节上乘佳品,金枣种植面积1.22万亩,总产2259吨。

  下河杨桃:杨桃是云霄传统的拳头产品之一,一度曾以粒大、果甜、色亮泽等优点,畅销港澳东南亚市场。下河乡下河村种植杨桃己有148年的历史。乡里聘请省农科院专家建立品种改良实验园,在下河规划建设了500亩杨桃种植示范基地,选出当地品种“虎尾种”进行推广种植,牵头引进马来西亚水晶杨桃,台湾软枝杨桃等品种,进行高接换种,并在全乡试验推广种植,他还注重帮助果农提高疏花、疏果、套袋等方面的技术,使杨桃在色泽、颗粒、甜度方面进一步提高了品质。

  至目前此,该乡杨桃种植面积己达到5000亩,其中:下河村种植面积3000亩,全县种植杨桃2万亩。产品销往广州、深圳、上海、厦门等地,就下河村每天销量1万公斤。这是近年来该乡调整农业结构,发展特色种植的成绩。他们还准备申请“绿标”,取得进军国际市场“入门券”。

  琯溪蜜柚。琯溪蜜柚栽培历史悠久,曾为清朝宫廷贡品,它具有调节人体新陈代谢之功效,又有降压舒心,祛痰润肺,消食醒洒,降火利尿等作用,对脊炎、脓肿症、便秘、糖尿病等患者亦有一定的疗效。
  琯溪蜜柚品质优等,价格合理,欢迎品尝、享用。

 

 

 


关于我们
| 联系我们 | 欢迎留言 | 广告服务
Copyright © 2000-2001 All Rights Reserved
版权所有 福建省漳州市供销合作社
Tel:0596-2024979  Fax:0596-2022948
漳州立达电脑公司制作 建议使用800*600分辨率

<% news.Close() %> <% agora.Close() %>