<%
dim Action,ID,VoteType,VoteOption,sqlVote,rsVote
Action=trim(Request("Action"))
ID=Trim(request("ID"))
VoteType=Trim(request("VoteType"))
VoteOption=trim(request("VoteOption"))
If Action = "Vote" And Id<> "" And VoteOption<>"" Then
if VoteType="Single" then
conn.execute "Update Vote set answer" & VoteOption & "= answer" & VoteOption & "+1 where ID=" & ID
else
dim arrOptions
if instr(VoteOption,",")>0 then
arrOptions=split(VoteOption,",")
dim i
for i=0 to ubound(arrOptions)
conn.execute "Update Vote set answer" & cint(trim(arrOptions(i))) & "= answer" & cint(trim(arrOptions(i))) & "+1 where ID=" & Clng(ID)
next
else
conn.execute "Update Vote set answer" & VoteOption & "= answer" & VoteOption & "+1 where ID=" & Clng(ID)
end if
end if
session("Voted")="True"
End If
if ID<>"" then
sqlVote="Select * from Vote Where ID=" & Clng(ID)
else
sqlVote="select top 1 * from Vote order by ID desc"
end if
Set rsVote = Server.CreateObject("ADODB.Recordset")
rsVote.open sqlVote,conn,1,1
%>
调查结果
<%
if Action="Vote" 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
%>
"
perVote=perVote*100
if perVote<1 and perVote<>0 then
response.write " 0" & perVote & "%"
else
response.write " " & perVote & "%"
end if
%>