<%
dim rs
dim sql
dim selecta
dim selectb
dim selectc
dim selectd
dim total
set rs=server.createobject("adodb.recordset")
sql="select * from research where id=1"
rs.open sql,conn,1,1
if not rs.eof then
total=rs("selecta")+rs("selectb")+rs("selectc")+rs("selectd")
selecta=(rs("selecta")/total)*100
selectb=(rs("selectb")/total)*100
selectc=(rs("selectc")/total)*100
selectd=(rs("selectd")/total)*100
%>
辐射小: 
height=10> <%=rs("selecta")%>人 占：<%=round(selecta,2)%>%
通话清晰: 
height=10><%=rs("selectb")%>人 占：<%=round(selectb,2)%>%
接通率高不掉线: 
height=10><%=rs("selectc")%>人 占：<%=round(selectc,2)%>%
手机美观，引领时尚: 
height=10><%=rs("selectd")%>人 占：<%=round(selectd,2)%>%
共有：<%=total%>人参加调查
<%
else
response.write "还没有人参与调查"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>