<%
if Action="Vote" and session("voted")<>"" then
response.write ""
if Session("UserName")<>"" then response.write Session("UserName") & "，"
response.write "
非常感谢您的投票！
"
end if
%>
| 调 查
结 果 |
调查内容： |
<%=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
%>
|
| |
| 投票选项 |
票数 |
百分比 |
<%
for i=1 to 8
if trim(rsVote("Select" & i) & "")="" then exit for
%>
<%=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
%>
|
<% next %>
|
| |
<%
if session("voted")="" then
if Session("UserName")<>"" then
response.write Session("UserName") & "，"
end if
response.Write "
您还没有投票，请您在此投下您宝贵的一票！"
response.write ""
end if
dim sqlOtherVote,rsOtherVote
sqlOtherVote="Select * from Vote Where ID<>" & ID & " order by ID desc"
Set rsOtherVote = Server.CreateObject("ADODB.Recordset")
rsOtherVote.open sqlOtherVote,conn,1,1
rsOtherVote.close
set rsOtherVote=nothing
%>
|
【关闭窗口】
|
|