%@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
%>
名优特产---水产
 |
 |
 |
 |
 |
|
|
|
|
名优特产---水果类、水产类
水产类
巴非蛤:(俗称“花蚶”)县内巴非蛤生产驰誉中外,出口欧美、日本等地,放养浅海滩涂巴非蛤3万亩,7万亩野生巴非蛤在深海区,年产20万吨,除每年3-4月份禁捕期外,常年上市,巴非蛤主要分布在列屿、陈岱、东厦镇。
云霄泥蚶:泥蚶口味独特,营养丰富,饮誉遐迩,引进外地泥蚶养殖新技术,改变过去养殖习惯。“海塔”牌泥蚶获得国家工商局商标注册的基础上,进一步打响“云霄泥蚶”品牌,大力发展“蓝色产业”,全县实现泥蚶养殖1万亩。我县被列为第二批国家海域使用管理示范区。泥蚶主要产区:东厦镇的竹塔,陈岱镇的礁美。竹塔泥蚶己闻名省内外。
文蛤:我县漳江下游出海口新浮洲的文蛤,肉脆嫩,清甜溢香,厉来饮誉港、澳、台地区及东南亚各国。许多联合体和个体户大量向广西采购运至我县新浮洲等地放养增殖,经1个月或1个季度放养即可重捕出售,其肉质与新浮洲所产的不相上下。目前,文蛤养殖1万亩以上。
牡蛎(又称大蚝):我县漳江下游的石仔关的大蚝比其他地区所产海蚝肥嫩,清甜爽口。大蚝生产在水深6-8米之底下,夏秋二季每天每人敲捕十多公斤,现在推行人工放养吊蚝技术,把蚝壳一个个系在尼龙索上,成串吊在养殖区的海水中,使蚝苗附在壳中生长,年可收获2季,除供应县内外,大部分远销广东及港、澳等地。目前,牡蛎养殖1万亩。
缢蛏:每年7-8月间,缢蛏捕获上市,产品畅销闽西北,以及广东、港、澳等地,深受青睐。实行联产承包责任制后,联合体、个体投入养殖缢蛏的有竹塔、东崎等15个村。1996年养殖4500亩,产量5109吨。
银鱼:银鱼又是县内水产名牌产品,其中银鱼干远销东南亚各国。漳江口海淡水交汇处是银鱼栖息、繁殖、生长的优越场所,在东厦镇佳洲岛海湾,白塔长港溪湾一带盛产银鱼,常年11-12月份都有银鱼群体在索食、回游,年生产量达20-40吨。县水产局于1994-1995年在漳江内湾两次人工放流银鱼苗65万尾。
对虾、竹蛏、 、鳗鱼
 
 
|
|
|
| |
|
关于我们 | 联系我们
| 欢迎留言 | 广告服务
Copyright
© 2000-2001 All Rights Reserved
版权所有 福建省漳州市供销合作社
Tel:0596-2024979 Fax:0596-2022948
漳州立达电脑公司制作
建议使用800*600分辨率
|
<%
news.Close()
%>
<%
agora.Close()
%>