• ·省社情民意调查热线电话:12340
  • ·统计局值班电话:0591-88019330
  • ·统计局办公室电话:
      0591-88019215
  • ·纪检监察举报投诉电话:
      0591-88019378
  • ·政风行风热线:0591-88019378
  • ·统计违法案件举报电话:
      0591-88019248
  • ·信息服务中心电话:
      0591-88019392
  • ·截止2009年11月15日
  • ·累计收件:32621件
  • ·累计办结:30605件
  • ·昨日收件:1件
  • ·昨日办结:0件
<% set rs=GetRs("select top 1 * from zxft where is_index=1 order by FirstEditTime desc,id desc") if not rs.eof then %> <% end if rs.close:set rs=nothing %>
    <% sql = "select id,city,title,AddTime,sel_ZxType from t_Zrxx where sel_ZxType=1 and Islook=1 order by AddTime desc,id desc" reval = "" reval = reval & "" & vbCrlf reval = reval & "" & vbCrlf reval = reval & "
  • ·{{title,114}}
  • " & vbCrlf reval = reval & "
    " & vbCrlf response.Write replace_tag(sql,reval) %>
信件查询:
    <% sql = "select id,city,title,AddTime,sel_ZxType from t_Zrxx where sel_ZxType=2 and Islook=1 order by AddTime desc,id desc" reval = "" reval = reval & "" & vbCrlf reval = reval & "" & vbCrlf reval = reval & "
  • ·{{title,114}}
  • " & vbCrlf reval = reval & "
    " & vbCrlf response.Write replace_tag(sql,reval) %>
信件查询:
<% Set rs = server.createobject("adodb.recordset") rs.open "select top 1 * from subject order by id desc",conn2,1,1 if not rs.eof then %>
method="post" name="formResearch"> <% set rsT=server.CreateObject("adodb.recordset") sqlT="select top 1 * from title where sid="&rs("id")&"" rsT.open sqlT,conn2,1,1 if not rsT.eof then %>
    <% set rsQ=server.CreateObject("adodb.recordset") sqlQ="select top 4 * from Question where tid="&rsT("id")&"" rsQ.open sqlQ,conn2,1,1 if not rsQ.eof then do while not rsQ.eof %> <%if rsT("mode")=1 then%>
  • " type="radio" value="<%=rsQ("id")%>" /> <%=rsQ("Question")%>
  • <%end if%> <%if rsT("mode")=2 then%>
  • " type="checkbox" value="<%=rsQ("id")%>" /> <%=rsQ("Question")%>
  • <%end if%> <% rsQ.movenext loop else response.Write("
  • 还未添加投票项!
  • ") end if rsQ.close:set rsQ=nothing %>
<% end if rsT.close:set rsT=nothing %>
<% end if rs.close:set rs=nothing %>