<% voteid=request("voteid") set rs=server.CreateObject("adodb.recordset") sql="select * from votechoice where titleid='"&voteid&"' order by id asc" rs.open sql,conn,1,3 rs.pagesize=80 page=request("page") if page="" or (isnumeric(page) and page<1) or (not isnumeric(page)) then page=1 else page=cint(page) end if if page>rs.PageCount then page=rs.PageCount elseif page<1 then page=1 end if if not rs.eof then for i=2 to page for n=1 to 80 rs.movenext next next end if %> <% set rsTotle=server.CreateObject("adodb.recordset") sqlTotle="select SUM(num) from votechoice where titleid='"&voteid&"'" rsTotle.open sqlTotle,connstr if rsTotle(0)=0 then response.write "目前还没有投票数!" else %> 掌柜看盘-2008广东地产龙虎榜-http://dg.fzg360.com
"> <%if rs.bof=true and rs.eof=true then%> <%else%> <%i=1%> <%While (rs.eof<>true and i<81)%> <% rs.movenext %> <% i=i+1 %> <%wend%> <%end if%>
共有<%=rsTotle(0)%>张票数 投票结果如下：
楼盘名称
图例
比例
人数
%" height="15">
<%=int(100*rs("num")/rsTotle(0))%>%
<%=rs("num")%>人
 

我要继续投票
<%rsTotle.close set rsTotle=nothing%> <%end if%>