<%dim options,total,sql,i,answer if request.QueryString("ecptyg")="" then if Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then response.write"" else options=request.form("options") response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR") conn.execute("update toupiao set answer"&options&"=answer"&options&"+1 where IsChecked=1") end if end if %> 投票結果
 
 投票結果  
<% total=0 set rs=server.createobject("adodb.recordset") sql="select * from toupiao where IsChecked=1" rs.open sql,conn,3,3 %> <% for i=1 to 8 if rs("Select"&i)<>"" then total=total+rs("answer"&i) end if next %> <%for i=1 to 8 if rs("Select"&i)<>"" then if total=0 then answer=0 else answer=(rs("answer"&i)/total)*100 end if %> <% end if next %>

_________________________________________________________________________
<%=rs("Title")%>
投票項目 百分比 人數
<%=i%>.<%=rs("select"&i)%> height=8> <%=round(answer,3)%>% <%=rs("answer"&i)%>人
共有【<%=total%>】人參加投票
_________________________________________________________________________

關閉視窗】 <% rs.close set rs=nothing conn.close set conn=nothing %>