⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 vote.asp

📁 这是惠州城市超市购物管理系统的源代码
💻 ASP
字号:
<!--
┌─ o91.com───────────────┐
│  动感购物商务平台WWW.SNSN.NET版权所有  │
│  设计:模糊视线13855119911 QQ:9912515 │
└────────────────────┘
-->
<!--#include file="conn.asp"-->
<%dim options,total,sql,i,answer
if request.QueryString("stype")="" then
	if Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
		response.write"<SCRIPT language=JavaScript>alert('感谢您的支持,您已经投过票了,请勿重复投票,谢谢!');"
		response.write"javascript:window.close();</SCRIPT>"
	else
		options=request.form("options")
		response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR") 
		conn.execute("update shop_toupiao set answer"&options&"=answer"&options&"+1 where IsChecked=1")
	end if
end if
%><head>
<title>投票结果</title>
<link href="images//css.css" rel="stylesheet">
</head>


<div align="center"> 
  <TABLE width=98% border=0 cellPadding=0 cellSpacing=1 bgcolor="#CCCCCC">
    <TBODY>
      <TR> 
        <TD height=25 colSpan=2 bgcolor="#FFFFFF">&nbsp;<img 
                        src="images/go.gif"><b>投票结果<strong></strong></b></TD>
      </TR>
      <TR> 
        <TD align=left vAlign=top bgcolor="#FFFFFF"> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
            <tr> 
              <td height="10"></td>
            </tr>
          </table>
          <table border="0" cellpadding="0" cellspacing="0" width="98%" height="48" style="border-collapse: collapse" align="center">
            <%
total=0
set rs=server.createobject("adodb.recordset")
sql="select * From shop_toupiao where IsChecked=1"
rs.open sql,conn,3,3
%>
            <tr> 
              <td height="48" valign="top" colspan="3" align=center><font color="#000000">&nbsp; 
                </font> <font color="#000073"> <%=rs("Title")%></font> </td>
            </tr>
            <tr> 
              <td height="22">序号</td>
              <td height="22">百比分</td>
              <td height="22">人数</td>
            </tr>
            <%
for i=1 to 8
	if rs("Select"&i)<>"" then
		total=total+rs("answer"&i)
	end if
next

%>
            <%for i=1 to 8
	if rs("Select"&i)<>"" then
		if total=0 then
			answer=0
		else
			answer=(rs("answer"&i)/total)*100
		end if
%>
            <tr> 
              <td valign="top"><%=i%>.<%=rs("select"&i)%>:</td>
              <td valign="top"><img src=images/RSCount.gif width=<%=int(answer*2)%> height=8> 
                <%=round(answer,3)%>%</td>
              <td valign="top"><%=rs("answer"&i)%>人</td>
              <%
	end if
next
%>
            <tr> 
              <td colspan="3"> 共有【<%=total%>】人参加投票</td>
            </tr>
          </table>
          <div align="center"></div>
          <p align="center">【<a href="javascript:window.close()">关闭窗口</a>】 
            <% rs.close     
set rs=nothing     
conn.close     
set conn=nothing %>
          <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5">
            <tr> 
              <td height="10"></td>
            </tr>
          </table></TD>
      </TR>
    </TBODY>
  </TABLE>
</div>  

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -