<% if Action="Vote" then response.write "" if Session("UserName")<>"" then response.write Session("UserName") & ":" response.write "

  非常感谢您的投票！
" end if %>
调 查 结 果
<% for i=1 to 8 if trim(rsVote("Select" & i) & "")="" then exit for %> <% next %>
调查内容：
 <%=rsVote("Title")%>
总投票数：
 <% dim totalVote totalVote=0 for i=1 to 8 if rsVote("Select" & i)="" then exit for totalVote=totalVote+rsVote("answer"& i) next response.Write(totalVote & "票") if totalVote=0 then totalVote=1 %>
 
投票选项
票数
 百分比
<%=rsVote("Select"& i)%>
<% response.write rsVote("answer"& i) %>
<% dim perVote perVote=round(rsVote("answer"& i)/totalVote,4) response.write "" perVote=perVote*100 if perVote<1 and perVote<>0 then response.write " 0" & perVote & "%" else response.write " " & perVote & "%" end if %>
<% if Session("UserName")<>"" then response.write Session("UserName") & ":" end if response.Write "

您还没有投票，请您在此投下您宝贵的一票！" response.write "
" response.write rsVote("Title") & "
" if rsVote("VoteType")="Single" then for i=1 to 8 if trim(rsVote("Select" & i) & "")="" then exit for response.Write "" & rsVote("Select" & i) & "
" next else for i=1 to 8 if trim(rsVote("Select" & i) & "")="" then exit for response.Write "" & rsVote("Select" & i) & "
" next end if response.write "
" response.write "" response.write "" response.write "      " response.write "" response.write "
" %>

【关闭窗口】