<%
dim rs
dim sqlan
dim sela
dim selb
dim selc
dim total
conn = "DBQ=" + server.mappath("sport.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs=server.createobject("adodb.recordset")
sqlan="select * from sport where id=1"
rs.open sqlan,conn,1,1
if not rs.eof then
total=rs("sela")+rs("selb")+rs("selc")
sela=(rs("sela")/total)*100
selb=(rs("selb")/total)*100
selc=(rs("selc")/total)*100
%>
<div align="center">
<center>
<P>您认为2008年夏季奥运会获得奖牌数最多的国家？<p>
<table width="60%"><tr></td>
<p>中国：<img src=bar.gif width=<%=int(sela*5)%> height=10> <%=rs("sela")%>人 占：<%=round(sela,2)%>%</p>
<p>美国：<img src=bar.gif width=<%=int(sela*5)%> height=10><%=rs("selb")%>人 占：<%=round(selb,2)%>%</p>
<p>俄罗斯：<img src=bar.gif width=<%=int(selc*5)%> height=10><%=rs("selc")%>人 占：<%=round(selc,2)%>%</p>
</td></tr></table></center></div>
<p align=center>共有：<%=total%>人参加调查
<%
else
response.write "<script language=JavaScript>" & chr(13) & "alert('还没有人参与调查!');" & "history.back()" & "</script>" 
end if
rs.close
set rs=nothing
%>
