<%
If request("voteID")="" Then
response.redirect"index.asp"
End If
%>
<%
dim rs,sql
dim p1,p2,p3,p4,p5,total
set rs=Server.CreateObject("Adodb.Recordset")
sql="select voteID,votename,s1,s2,s3,s4,s5,n1,n2,n3,n4,n5 from jjh_vote where voteID="&request("voteID")
rs.open sql,conn,1,1
total=rs("n1")+rs("n2")+rs("n3")+rs("n4")+rs("n5")
p1=(rs("n1")/total)*100
p2=(rs("n2")/total)*100
p3=(rs("n3")/total)*100
p4=(rs("n4")/total)*100
p5=(rs("n5")/total)*100
%>
投票调查
| 投票结果 |
|
| <%=rs("s1")%> |
   <%=round(p1,2)%>% |
| <%=rs("s2")%> |
<%=round(p2,2)%>% |
| <%=rs("s3")%> |
<%=round(p3,2)%>% |
| <%=rs("s4")%> |
<%=round(p4,2)%>% |
| <%=rs("s5")%> |
<%=round(p4,2)%>% |
| 总计票数<%=total%>票 |
| [关闭窗口] |