<!--#include= file="conn.asp"-->
<% dim selecta,selectb,selectc,selectd,selecte,selectf
dim baia,baib,baic,baid,baie,baif
dim total
set rs=server.createobject("ADODB.recordset")
rs1="select * from research"
rs.open rs1,conn,1,1
if not rs.eof then
total=rs("selecta")+rs("selectb")+rs("selectc")+rs("selectd")+rs("selecte")+rs("selectf")
selecta=rs("selecta")
selectb=rs("selectb")
selectc=rs("selectc")
selectd=rs("selectd")
selecte=rs("selecte")
selectf=rs("selectf")
baia=int((rs("selecta")/total)*100)&"%"
baib=int((rs("selectb")/total)*100)&"%"
baic=int((rs("selectc")/total)*100)&"%"
baid=int((rs("selectd")/total)*100)&"%"
baie=int((rs("selecte")/total)*100)&"%"
baif=int((rs("selectf")/total)*100)&"%"
%>
<body bgcolor="#FFFFCC">
<div align="center">
<%
else
response.write"我日!!!目前还没有人投票呢!"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%><br>
<a href="index.asp">返回</a> <a href="javascript:window.close()">关闭窗口</a>
</div>
</body>
----------------------------------------------------------------------------------
<!--#include file="filetou.asp"-->
<!--#include file="toupiao.ini"--><%
b2=request("b2")
if b2<>"" then response.redirect "disp.asp"
webdcsn=request.cookies(tou)
if webdcsn="yes" then response.redirect "../ever.asp?lr=您已在此次调查中投过票,一天内不能再次投票"
response.cookies(tou)="yes"
response.cookies(tou).expires=date+1
r1=request("r1")
if r1="" then response.redirect "../ever.asp?lr=请您选择投票项目"
sql="SELECT * FROM dc where name='"&r1&"'"
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
rs("ren")=rs("ren")+1
rs.update
rs.close
set conn=nothing
response.redirect "disp.asp"
%>
--------------------------------------------------------------------------------
disp.asp
<!--#include file="filetou.asp"-->
<%
sql="SELECT * FROM dc "
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
bt=rs("bt")
dat=rs("dat")
rs.movenext
do while not rs.eof
zs=zs+rs("ren")
rs.movenext
loop
if zs=0 then response.redirect "../ever.asp?lr=还没有人投票"
%>
<head>
<title>网上调查</title>
</head>
<body bgcolor="#D8EDF8" topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="1" cellspacing="0" width="100%" id="AutoNumber1" cellpadding="0" bgcolor="#00598C" height="21">
<tr>
<td width="50%"> <font size="2" color="#FFFFFF">调查结果</font></td>
<td width="50%">
<p align="right"><font color="#FFFFFF" size="2">调查时间:</font><font color=red size="2"><%=dat%></font><font size="2" color="#FFFFFF">至</font><font color=red size="2"><%=date%></font>
</td>
</tr>
</table>
<table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" style="font-size: 9pt" bgcolor="#C6C7C6">
<tr><td colspan='3'>