votelist.asp

非常有商业价值的软件

<table border="1" width="771" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#ACA793">
	<tr>
		<td>
		<table border="0" width="100%" id="table2" cellspacing="0" cellpadding="0">
			<tr>
				<td>
				<p align="center">投票结果</td>
			</tr>
<%

vflag=my_request("vflag",0)
if vflag="add" then
idnums=my_request("idnums",1)
if Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
		response.write"<SCRIPT language=JavaScript>alert('感谢您的支持，您已经投过票了，请勿重复投票，谢谢！');"
		response.write"javascript:window.close();</SCRIPT>"
	else
if idnums="" or isnull(idnums) then
		response.write"<SCRIPT language=JavaScript>alert('对不起，请选择投票类别！');"
		response.write"javascript:window.close();</SCRIPT>"
		end if
sql="update vote set nums=nums+1 where id="&idnums
conn.execute (sql)
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
%>
			<tr>
				<td>感谢您的参与</td>
			</tr>
<%
end if
end if

Set rs= Server.CreateObject("ADODB.Recordset")
sql2="select * from vote where flag=0"
rs.open sql2,conn,1,1
  '求出数
  Amount=0
  if rs.eof then
  Amount=0
  else
  For I = 1 To rs.RecordCount
    Amount = Amount + rs("nums")
    rs.MoveNext
  Next

  '将数据移到第一条
  rs.MoveFirst

%>
			<tr>
				<td>到目前为止结果如下(一共投票数<%=Amount%>)</td>
			</tr>
			<tr>
				<td><hr color="#000080" size="1"></td>
			</tr>
			<%
			do while not rs.eof
			Percent = Round((rs("nums")/Amount)*100,2)
			%>
			<tr>
				<td><%=rs("vote")%>:<img src="images/poll.gif" width="<%= Percent * 3 %>" height="10">&nbsp;&nbsp;<%=Percent%>%&nbsp;&nbsp;得票数:<%=rs("nums")%></td>
			</tr>
			<%rs.movenext
			loop
			rs.close
			set rs=nothing
			conn.close
			set conn=nothing%>
		</table>
		</td>
	</tr>
</table>
<%end if%>