%@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()
%>