<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type="text/css">
<!--
a:link {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited {text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;line-height: 120%;table-layout:fixed;word-break:break-all}
p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select {FONT-SIZE: 9PT;font-family: 宋体}
option {FONT-SIZE: 9pt;font-family: 宋体}
textarea {FONT-SIZE: 9pt;font-family: 宋体}
-->
</STYLE>
</head>

<body>
<%
tpid=trim(Request("tpid"))
tps=trim(Request("tps"))
tps=replace(tps," ","")


aaa=split(tps,",")

if Request.Cookies("tpid"&tpid&"")=tpid then
	Response.Write "<BR><BR><BR><center>已经投过了，请不要重复投票！"
	er=1
end if

set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [tp] where id="&tpid&" order by id desc",conn,1,1
if rs.recordcount<>0 then
	endtime=rs("endtime")
	title=rs("title")
end if
rs.close:set rs=nothing


if datediff("d",endtime,date())>0 then
	Response.Write "已经到期了，不能再投票了"
	er=1
end if

if er<>1 then

		for i=0 to ubound(aaa)
			tpsid=aaa(i)
			'Response.Write tpsid&"<BR>"
			conn.Execute "update [tptitle] set [tps]=tps+1 where id="&clng(tpsid)
			Response.Cookies ("tpid"&tpid&"")=tpid
			Response.Cookies("tpid"&tpid&"").expires=date+1
		next

end if
%>
<br>
<div align="center">
	<table border="1" cellpadding="4" width="760" id="table1" style="border-collapse: collapse" bordercolor="#C0C0C0">
		<tr>
			<td colspan="3" background="images/bj3.jpg" height="25"><%=title%>(过期时间：<%=endtime%>)</td>
		</tr>
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [tptitle] where tpid="&tpid&" order by id desc",conn,1,1
if rs.recordcount<>0 then


set rssum = Server.CreateObject("ADODB.RecordSet")
rssum.Open "select sum(tps) as f_sum from [tptitle] where tpid="&tpid&" ",conn,1,1
tpsall=rssum(0)
rssum.close:set rssum=nothing

for i=1 to rs.recordcount
tps=rs("tps")

if tpsall<>0 then
	bfb=Round(rs("tps")/tpsall*100,2)
else
	bfb=0
end if
%>
		<tr>
			<td width="537" ><%=i%>、<%=rs("tpxx")%>　(<%=tps%>票)</td>
			<td width="87">支持率:<%=bfb%>%</td>
			<td width="107">
			<img border="0" src="images/bg11.GIF" width="<%=int(bfb)%>" height="25"></td>
		</tr>
<%
rs.movenext
if rs.eof then exit for
next
end if
rs.close:set rs=nothing
%>

	</table>
</div>
</body>

</html> 
