<%@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 %> 云霄县概况
返回首页
云霄概况
名优特产
旅游天地

供销社简介

投资指南

云霄概况

  云霄县位于福建省南部沿海,处于闽粤交界地带和厦门、汕头两经济特区之间,国道

324线贯穿全境。我县是盛名远播的“开漳圣地”,1998年被国务院批准为沿海对外开放的县

份之一,1996年跃上‘福建省经济发展十佳县’行列,同时又是全国能源百强县。全县现有

人口40万人,总面积1166平方公里,耕地面积19.65万亩,山地103万亩,海岸线长87公里,

浅海滩涂和淡水面积19.5万亩。县境依山傍海,属低山丘陵地带。

  种植业以粮食、油料、果、茶、菜等为主要作物。全县有水果44种,主要品种有枇杷,

杨桃,荔枝,龙眼,香蕉,蜜柚等。全县水果种植面积31万亩,投产面积13万亩,枇杷种植

10万亩,其中早钟六号5万亩,获得“中国枇杷之乡”称号。还有5万亩高优农业示范区和

6.5万亩反季节蔬菜基地。

  渔业资源丰富,利用15万亩浅海滩涂,开发建设水产养殖基地,水产总产量15万吨,有

泥蚶、对虾、蟹、文蛤、巴非蛤、太平洋牡蛎等水产珍品,远销国际市场,其中,泥蚶、巴

非蛤、太平洋牡蛎、文蛤四个规模达万亩以上,我县被列为第二批国家海域使用管理示范区。

  云霄,正以花园式别墅群,争芳斗艳的江滨花园,将军山旅游胜景以及雨后春笋般崛起

的幢幢新楼,向世人昭示时代发展跃动进程,展现现代文明城市风采。

 


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

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