<head>
<meta httpequiv="ContentLanguage" content="zhcn">
<meta httpequiv="ContentType" content="text/html; charset=gb">
<meta name="GENERATOR" content="Microsoft FrontPage ">
<meta name="ProgId" content="FrontPageEditorDocument">
<LINK href="newcss" rel=stylesheet type=text/css>
<title>asp 在线调查系统</title>
<meta name="Microsoft Border" content="none">
<style type="text/css">
<!
test { fontsize: px}
>
</style>
</head>
<body>
<%
dim conn
dim connstr
connstr="DBQ="+servermappath("votemdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*mdb)};"
set conn=servercreateobject("ADODBCONNECTION")
connopen connstr
dim rs
dim sql
dim selecta
dim selectb
dim selectc
dim selectd
dim selecte
dim selectf
dim selectg
dim selecth
dim selecti
dim selectj
dim total
set rs=servercreateobject("adodbrecordset")
sql="select * from vote where id="
rsopen sqlconn
if not rseof then
total=rs("selecta")+rs("selectb")+rs("selectc")+rs("selectd")+rs("selecte")+rs("selectf")+rs("selectg")+rs("selecth")+rs("selecti")+rs("selectj")
selecta=(rs("selecta")/total)*
selectb=(rs("selectb")/total)*
selectc=(rs("selectc")/total)*
selectd=(rs("selectd")/total)*
selecte=(rs("selecte")/total)*
selectf=(rs("selectf")/total)*
selectg=(rs("selectg")/total)*
selecth=(rs("selecth")/total)*
selecti=(rs("selecti")/total)*
selectj=(rs("selectj")/total)*
responsewrite "<table cellspacing= cellpadding= border= valign=middle width=% height=% align=center bordercolor=#ffffff ><tr><td bgcolor=#fff bordercolor=#>"
responsewrite "<p align=center>::: 调 查 结 果 :::</p>" %>
<span class="test"><br>
</span>
<p class="test">[目前共有<b><font color="#FF"><%=total%></font></b>人参与本站调查]<br>
<br>
<table width="" border="" cellspacing="" cellpadding="">
<tr>
<td width="" class="test" height="">
<div align="right">城市花园:</div>
</td>
<td width="" class="test" height=""><img src=redbargif width=<%=int(selecta*)%> height=> <%=rs("selecta")%>人
占<%=round(selecta)%>% </td>
</tr>
<tr>
<td width="" class="test" height="">
<div align="right">新世界花园:</div>
</td>
<td width="" class="test" height=""><img src=redbargif width=<%=int(selectb*)%> height=> <%=rs("selectb")%>人
占<%=round(selectb)%>% </td>
</tr>
<tr>
<td width="" class="test" height="">
<div align="right">景湖花园:</div>
</td>
<td width="" class="test" height=""><img src=redbargif width=<%=int(selectc*)%> height=> <%=rs("selectc")%>人
占<%=round(selectc)%>% </td>
</tr>
<tr>
<td width="" class="test" height="">
<div align="right">东泰花园:</div>
</td>
<td width="" class="test" height=""><img src=redbargif width=<%=int(selectd*)%> height=> <%=rs("selectd")%>人
占<%=round(selectd)%>% </td>
</tr>
<tr>
<td width="" class="test" height="">
<div align="right">新世纪豪园:</div>
</td>
<td width="" class="test" height=""><img src=redbargif width=<%=int(selecte*)%> height=> <%=rs("selecte")%>人
占<%=round(selecte)%>% </td>
</tr>
<tr>
<td width="" class="test" height="">
<div align="right">景峰高尔夫别墅:</div>
</td>
<td width="" class="test" height=""><img src=redbargif width=<%=int(selectf*)%> height=> <%=rs("selectf")%>人
占<%=round(selectf)%>% </td>
</tr>
<tr>
<td width="" class="test" height="">
<div align="right">时富花园:</div>
</td>
<td width="" class="test" height=""><img src=redbargif width=<%=int(selectg*)%> height=> <%=rs("selectg")%>人
占<%=round(selectg)%>% </td>
</tr>
<tr>
<td width="" class="test" height="">
<div align="right">雍华庭花园:</div>
</td>
<td width="" class="test" height=""><img src=redbargif width=<%=int(selecth*)%> height=> <%=rs("selecth")%>人
占<%=round(selecth)%>% </td>
</tr>
<tr>
<td width="" class="test" height="">
<div align="right">金泽花园:</div>
</td>
<td width="" class="test" height=""><img src=redbargif width=<%=int(selecti*)%> height=> <%=rs("selecti")%>人
占<%=round(selecti)%>% </td>
</tr>
<tr>
<td width="" class="test" height="">
<div align="right">东湖花园:</div>
</td>
<td width="" class="test" height=""><img src=redbargif width=<%=int(selectj*)%> height=> <%=rs("selectj")%>人
占<%=round(selectj)%>%
<%
else
responsewrite "目前还没有人投票欢迎您投票!"
end if
rsclose
set rs=nothing
connclose
set conn=nothing
%>
</td>
</tr>
</table>
</body>
