<%@language=vbscript codepage=936 %> <% dim strFileName const MaxPerPage=20 dim totalPut,CurrentPage,TotalPages dim i,j dim ArticleID dim Title dim sql,rs dim BigClassName,SmallClassName,SpecialName dim PurviewChecked dim strAdmin,arrAdmin PurviewChecked=false strFileName="nlist1.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName Title=Trim(request("Title")) ArticleID=Request("ArticleID") BigClassName=Trim(request("BigClassName")) SmallClassName=Trim(request("SmallClassName")) SpecialName=trim(request("SpecialName")) if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if sql="select * from new where ArticleID>0" if session("purview")>4 then sql=sql & " and Editor='" & Session("admin") & "' and Passed=false" end if if Title<>"" then sql=sql & " and title like '%" & Title & "%' " end if if BigClassName<>"" then sql=sql & " and BigClassName='" & BigClassName & "' " if SmallClassName<>"" then sql=sql & " and SmallClassName='" & SmallClassName & "' " end if else if SpecialName<>"" then sql=sql & " and SpecialName='" & SpecialName & "' " end if end if sql=sql & " order by articleid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %> ++++肥城有机农业网++++

 
     您现在的位置:首页 > <%if bigclassname="" then%> 组织机构

<% if rs.eof and rs.bof then response.write "共找到 0 条记录

" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if response.Write "共找到 " & totalPut & " 条" %> <% if currentPage=1 then showContent showpage strFileName,totalput,MaxPerPage,true,false,"条" else if (currentPage-1)*MaxPerPage <% sub showContent dim i i=0 %>

<%do while not rs.eof%> <% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %>

 

肥城市人民政府成立了有机蔬菜领导小组,办公室设在市农业局,负责制定有机蔬菜发展规划,指导乡镇、村有机蔬菜发展、基地建设与管理,推行农业标准化生产,引进、推广国内外新技术、新品种、新成果,为有机蔬菜加工企业和农民群众提供信息、政策等服务。各乡镇政府、街道办事处都有一名分工负责人,并设立了有机蔬菜发展办公室,专门负责本地的有机蔬菜发展工作。

 

<% end sub %>
<% rs.close set rs=nothing call CloseConn() %>