<%dim rs,rs1,count,num,page,line%>

文化概览 基金政策 实施项目 发展公告 基金动态 网上申报 主办单位： 地址： 邮编： 电话： 传真： 电子邮件： <%if request("content")=3 or request("content")="" then%> <% set rs = server.CreateObject("adodb.recordset") rs.open " select * from news where ifid=3 order by id desc", dbconn,3,2 if not rs.eof then %> <% if request("page")<>"" then page=cint(request("page")) else page=1 end if %> <% rs.PageSize=8 rs.AbsolutePage=page %> <% count = 0 while not rs.eof and count < rs.pagesize if not isnull(rs(1).value) and len(rs(1).value) > 0 then response.write "" else response.write "" end if rs.movenext count = count + 1 wend %> ◇ " & cstr(rs(1).value) + " ◇ " & cstr(left(rs(1).value,20)) + " <%if page<>1 then%> 第一页 <%else%> 第一页 <%end if%> <%if page>1 then%> >前一页 <%else%> 前一页 <%end if%> <%if page >后一页 <%else%> 后一页 <%end if%> <%if page<>rs.PageCount then%> >最后一页 <%else%> 最后一页 <%end if%> <%rs.close%> <%end if%> <%end if%> <%if request("content")=1 then%> <% set rs = server.CreateObject("adodb.recordset") rs.open " select * from news where ifid=1 order by id desc", dbconn,3,2 if not rs.eof then %> <% if request("page")<>"" then page=cint(request("page")) else page=1 end if %> <% rs.PageSize=8 rs.AbsolutePage=page %> <% count = 0 while not rs.eof and count < rs.pagesize if not isnull(rs(1).value) and len(rs(1).value) > 0 then response.write "" else response.write "" end if rs.movenext count = count + 1 wend %> ◇ " & cstr(rs(1).value) + " ◇ " & cstr(left(rs(1).value,20)) + " <%if page<>1 then%> 第一页 <%else%> 第一页 <%end if%> <%if page>1 then%> >前一页 <%else%> 前一页 <%end if%> <%if page >后一页 <%else%> 后一页 <%end if%> <%if page<>rs.PageCount then%> >最后一页 <%else%> 最后一页 <%end if%> <%rs.close%> <%end if%> <%end if%> <%if request("content")=2 then%> <% set rs = server.CreateObject("adodb.recordset") rs.open " select * from news where ifid=2 order by id desc", dbconn,3,2 if not rs.eof then %> <% if request("page")<>"" then page=cint(request("page")) else page=1 end if %> <% rs.PageSize=8 rs.AbsolutePage=page %> <% count = 0 while not rs.eof and count < rs.pagesize if not isnull(rs(1).value) and len(rs(1).value) > 0 then response.write "" else response.write "" end if rs.movenext count = count + 1 wend %> ◇ " & cstr(rs(1).value) + " ◇ " & cstr(left(rs(1).value,20)) + " <%if page<>1 then%> 第一页 <%else%> 第一页 <%end if%> <%if page>1 then%> >前一页 <%else%> 前一页 <%end if%> <%if page >后一页 <%else%> 后一页 <%end if%> <%if page<>rs.PageCount then%> >最后一页 <%else%> 最后一页 <%end if%> <%rs.close%> <%end if%> <%end if%>   ☆当年申报项目 ☆当年批准项目 ☆基金最新信息   版权所有：浦东新区宣传部 上海浦东政府网站设计制作