<% voteid=request("voteid") set rsvote=server.CreateObject("adodb.recordset") sqlvote="select * from vote where id="&voteid&"" rsvote.open sqlvote,conn,1,3 voteTitle=rsvote("title") rsvote.close set rsvote=nothing set rs=server.CreateObject("adodb.recordset") sql="select * from votechoice where titleid='"&voteid&"' order by num desc" 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 %> <%=voteTitle%>|投票结果|东莞房地产门户【房掌柜】掌柜的，更懂房子
">

 

<%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)%>张票数 投票结果如下：
编号
主题
图例
比例
票数
<%=i%>
<%=rs("choice")%>  <%=rs("UserName")%>
 %" height="11">
<%=formatNumber(100*rs("num")/rsTotle(0),2,-1)%>%
<%=rs("num")%>票


<%rsTotle.close set rsTotle=nothing%> <%end if%>