|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册
×
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<%
set rsvote=server.createobject("ADODB.recordset")
votesql="Select * from vote where id="&cint(request("id"))
rsvote.open votesql,conn,1,1
if not rsvote.eof then
votecontent=rsvote("votecontent")
title=rsvote("title")
count=rsvote("count")
votecontent=split(votecontent,"$")
count=split(count,"$")
totalcount=0
for i=Lbound(count) to Ubound(count)
totalcount=totalcount+count(i)
next
response.write "<table style=font-size:9pt><tr><td>"&title&"</td></tr>"
for ii=Lbound(votecontent) to Ubound(votecontent)
response.write "<tr><td>"&ii+1&":"&votecontent(ii)&"   "&count(ii)&"   "&formatnumber((count(ii)/totalcount)*100,2)&"%</td></tr>"
next
response.write "<tr><td align=right>总共"&totalcount&"票  </td></tr></table>"
end if
rsvote.close
conn.close
set conn=nothing%>
谢谢 |
|