<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> 党风廉政
　　图片新闻 >>>
　 <% count=1 set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from First_Category where CateName='党风廉政'" rs.open sql,conn,1,1 Cateid=trim(rs("Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Second_Category where Second_CateName='党风廉政首页' and Cateid='"&Cateid&"'" rs.open sql,conn,1,1 Second_Cateid=trim(rs("Second_Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Third_Category where Third_CateName='近期工作重点' and Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"'" rs.open sql,conn,1,1 Third_Cateid=trim(rs("Third_Cateid")) rs.close set rs = nothing %>
　　文件学习 >>>
<% set rs=server.createobject("adodb.recordset") sql = "select * from News where Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"' and Third_Cateid='"&Third_Cateid&"' and sh='1' order by posttime desc" rs.open sql,conn,1,1 do while not rs.eof and count<8 posttime=datevalue(rs("posttime")) %> <%count=count+1 rs.movenext loop rs.close set rs = nothing %>
中共中央纪委关于严格禁止利用职务上的便利谋取不正当利益的若干规定
更多...  
<% count=1 set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from First_Category where CateName='党风廉政'" rs.open sql,conn,1,1 Cateid=trim(rs("Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Second_Category where Second_CateName='党风廉政责任制重点及分工' and Cateid='"&Cateid&"'" rs.open sql,conn,1,1 Second_Cateid=trim(rs("Second_Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Third_Category where Third_CateName='年度工作重点' and Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"'" rs.open sql,conn,1,1 Third_Cateid=trim(rs("Third_Cateid")) rs.close set rs = nothing %>
　 年度工作重点 >>>
<% set rs=server.createobject("adodb.recordset") sql = "select * from News where Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"' and Third_Cateid='"&Third_Cateid&"' and sh='1' order by posttime desc" rs.open sql,conn,1,1 do while not rs.eof and count<8 posttime=datevalue(rs("posttime")) %> <%count=count+1 rs.movenext loop rs.close set rs = nothing %>
<%if len(trim(rs("title")))>20 then%> <%=left(trim(rs("title")),20)%>... <%else%> <%=trim(rs("title"))%> <%end if%>
更多... 
<% count=1 set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from First_Category where CateName='党风廉政'" rs.open sql,conn,1,1 Cateid=trim(rs("Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Second_Category where Second_CateName='党风廉政责任制重点及分工' and Cateid='"&Cateid&"'" rs.open sql,conn,1,1 Second_Cateid=trim(rs("Second_Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Third_Category where Third_CateName='责任制分工' and Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"'" rs.open sql,conn,1,1 Third_Cateid=trim(rs("Third_Cateid")) rs.close set rs = nothing %>
　　责任制分工 >>>
<% set rs=server.createobject("adodb.recordset") sql = "select * from News where Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"' and Third_Cateid='"&Third_Cateid&"' and sh='1' order by posttime desc" rs.open sql,conn,1,1 do while not rs.eof and count<8 posttime=datevalue(rs("posttime")) %> <%count=count+1 rs.movenext loop rs.close set rs = nothing %>
<%if len(trim(rs("title")))>20 then%> <%=left(trim(rs("title")),20)%>... <%else%>唐山市科技局2006年党风廉政建设和反腐败工作要点及责任制分工
更多... 
<% count=1 set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from First_Category where CateName='党风廉政'" rs.open sql,conn,1,1 Cateid=trim(rs("Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Second_Category where Second_CateName='机关效能建设' and Cateid='"&Cateid&"'" rs.open sql,conn,1,1 Second_Cateid=trim(rs("Second_Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Third_Category where Third_CateName='整体安排' and Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"'" rs.open sql,conn,1,1 Third_Cateid=trim(rs("Third_Cateid")) rs.close set rs = nothing %> <% set rs=server.createobject("adodb.recordset") sql = "select * from News where Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"' and Third_Cateid='"&Third_Cateid&"' and sh='1' order by posttime desc" rs.open sql,conn,1,1 do while not rs.eof and count<8 posttime=datevalue(rs("posttime")) %> <%count=count+1 rs.movenext loop rs.close set rs = nothing %>
<%if len(trim(rs("title")))>25 then%> <%=left(trim(rs("title")),25)%>... <%else%> <%=trim(rs("title"))%> <%end if%>
更多... 
　
<% count=1 set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from First_Category where CateName='党风廉政'" rs.open sql,conn,1,1 Cateid=trim(rs("Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Second_Category where Second_CateName='机关效能建设' and Cateid='"&Cateid&"'" rs.open sql,conn,1,1 Second_Cateid=trim(rs("Second_Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Third_Category where Third_CateName='实施方案' and Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"'" rs.open sql,conn,1,1 Third_Cateid=trim(rs("Third_Cateid")) rs.close set rs = nothing %> <% set rs=server.createobject("adodb.recordset") sql = "select * from News where Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"' and Third_Cateid='"&Third_Cateid&"' and sh='1' order by posttime desc" rs.open sql,conn,1,1 do while not rs.eof and count<8 posttime=datevalue(rs("posttime")) %> <%count=count+1 rs.movenext loop rs.close set rs = nothing %>
<%if len(trim(rs("title")))>25 then%> <%=left(trim(rs("title")),25)%>... <%else%> <%=trim(rs("title"))%> <%end if%>
更多... 
　
<% count=1 set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from First_Category where CateName='党风廉政'" rs.open sql,conn,1,1 Cateid=trim(rs("Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Second_Category where Second_CateName='机关效能建设' and Cateid='"&Cateid&"'" rs.open sql,conn,1,1 Second_Cateid=trim(rs("Second_Cateid")) rs.close set rs = nothing set rs=Server.CreateObject("ADODB.Recordset") sql = "select * from Third_Category where Third_CateName='实施细则' and Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"'" rs.open sql,conn,1,1 Third_Cateid=trim(rs("Third_Cateid")) rs.close set rs = nothing %> <% set rs=server.createobject("adodb.recordset") sql = "select * from News where Cateid='"&Cateid&"' and Second_Cateid='"&Second_Cateid&"' and Third_Cateid='"&Third_Cateid&"' and sh='1' order by posttime desc" rs.open sql,conn,1,1 do while not rs.eof and count<8 posttime=datevalue(rs("posttime")) %> <%count=count+1 rs.movenext loop rs.close set rs = nothing %>
<%if len(trim(rs("title")))>25 then%> <%=left(trim(rs("title")),25)%>... <%else%> <%=trim(rs("title"))%> <%end if%>
更多... 
　

　

Copyright &copy; 2005 All Rights Reserved
唐山市科技局