组织机构

<%@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 %> 组织机构

返回首页
云霄概况

名优特产

旅游天地

供销社简介
供销社简介组织机构
投资指南

组织机构

云霄县供销合作社联合社

邮政编码：363300 区号：0596

姓名	职务	电话	手提
方利民	主任	8532078	13906968818
张洲明	副主任	8534520	13806902183
施伟民	副主任	8534520	13605030298

科室	姓名	电话
人秘科	科长：林盘陀　副科长：高庆平	8532077
财计科	科长：吴锦添　副科长：方添顺	8532017
业务科	科长：方云龙　副科长：刘玉金	8524101
系统工会	副主席：吴云忠	13806949495
网点开发部	副经理：高咸熙	8532017

单位	姓名	电话
农贸公司	经理：方清和副经理：陈永进周雪彬	8515073
土产日杂公司	经理：沈振寿	8532074
果品食杂公司	经理：方丽珍	8532087
茶叶公司	经理：吴歧土	8530396（宅）
供销综合商场	经理：方汝超	8536791
供销中兴有限公司	经理：柳志民	8532049
莆美供销社	主任：陈加山	8534491(宅）
东厦供销社	主任：周奕熙	8537966(宅）
陈岱供销社	主任：汤造生副主任：林耀章	8667577
列屿供销社	主任：林永金	8688129
火田供销社	主任：方文平	8535927（宅）
车圩供销社	主任：张昆渊	8536257（宅）
马铺供销社	主任：吴耀明	8788109
马田供销社	主任：张进福	8763827（宅）

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