<% act=scan_sql(Request.Form("act")) if act&""<>"" and act="ok" then Response.write "" Response.end() if Session("tijiao")&""="" and Session("tijiao")<>"ok" then Set Rs=Server.CreateObject("Adodb.Recordset") Sql="Select * From vote" Rs.open Sql,conn,1,1 if Not(Rs.eof and Rs.bof) then mycount=Rs.recordcount for i = 1 to mycount qs=Trim(scan_sql(request.Form("q_"&i))) conn.execute("update xuanxiang Set vote=vote+1 Where ID="&qs) next Session("tijiao")="ok" Response.write "" Response.End() end if Rs.close Set Rs=Nothing else Response.write "" Response.End() end if end if %> 杭州开发区管委会邀您投票选出地铁一号线下沙各站名

  杭州地铁1号线34个站点的名称,下沙的地铁站名显得比较长而缺乏辨识度。 为此,开发区管委会邀请下沙网网友征集下沙段七个地铁站的站名,经过2010年11月8日---2010年11月10日大家的献计献策,现将提名最高的站点名进行票选,希望您投出宝贵的一票。
  根据杭政函〔2010〕125号《杭州市人民政府关于杭州地铁1号线站点命名的批复》,下沙七个站点 的现命名如下:下沙地图(2010最新版)

<% Set Rs=conn.execute("Select Title,ID from vote") If Not(Rs.eof and Rs.bof) Then j=1 do while not Rs.eof %>

<%=Rs("Title")%>

<% Set oRs=Server.CreateObject("Adodb.Recordset") Sql="Select ID,Tid,Options,vote From xuanxiang Where Tid="&Rs("ID")&" order by id asc" Set cRs=conn.execute("Select sum(vote) as mycount From xuanxiang Where Tid="&Rs("ID")) oRs.open Sql,conn,1,1 If Not (oRs.eof and oRs.bof) then mycount=cRs("mycount") do while not oRs.eof if mycount&""<>"" and mycount<>"0" and mycount<>0 then bili=200 * oRs("vote")/mycount else bili=0 end if %>
  • " /> <%=oRs("Options")%>
  • 票数:<%=oRs("vote")%>
<% oRs.movenext loop end if oRs.close Set oRs=Nothing %>
<% j=j+1 Rs.movenext Loop end if Rs.close Set Rs=Nothing %>
主办单位:杭州经济技术开发区管委会  活动时间:2010年11月11日---2010年11月14日
技术支持:杭州易沙科技网络有限公司(下沙网)