📄 vote.asp

📁 是一套很好的数码购物系统
💻 ASP
字号:
<!--#include file="include/buyok_shop_30_conn.asp" -->
<html><head><title>网站调查-<%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<link rel="stylesheet" href="buyok_shop.css" type="text/css">
</head>
<body text="#000000" leftmargin="0" topmargin="20" marginwidth="0" marginheight="0" background="images/<%=skin%>/background.gif" >
<%
call aspsql()
Action=Request("Action")
VoteType=request("VoteType")
VoteOption=replace(request("VoteOption")," ","")

if action="vote" and VoteOption="" then
	response.write "<script language='javascript'>"
	response.write "alert('您什么也没有选择！');"
	response.write "location.href='vote.asp?action=view';"
	response.write "</script>"
	response.end
end if

if action="vote" and request.cookies("buyok_Voted")=request.ServerVariables("remote_addr") then
	response.write "<script language='javascript'>"
	response.write "alert('您已经投票了，不能重复投票！');"
	response.write "location.href='vote.asp?action=view';"
	response.write "</script>"
	response.end
end if

'投票
If Action = "vote" And VoteOption<>"" Then
  arrOptions=split(VoteOption,",")
  for i=0 to ubound(arrOptions)
	answer=cstr("answer"&arrOptions(i))
	conn.execute "Update Vote set "&answer&"="&answer&"+1"
  next
	'将用户IP写入COOKIES防止重复投票
  response.cookies("buyok_Voted") = request.ServerVariables("remote_addr")
'  response.cookies("buyok_Voted").expires=now+1

	response.write "<script language='javascript'>"
	response.write "alert('投票已提交，感谢您的参与！');"
	response.write "location.href='vote.asp?action=view';"
	response.write "</script>"
	response.end
End If

'显示投票结果
Set rsVote = conn.execute("Select * from Vote where view='1'")
	totalVote=0
	for i=1 to 8
	if rsVote("Select" & i)="" then exit for
	totalVote=totalVote+rsVote("answer"& i)
	next
	if totalVote=0 then totalVote=1

%>

<table cellSpacing="0" cellPadding="1" width="500" align="center" bgColor="#f4f4f4" border="0">
  <tbody>
    <tr>
      <td>
        <table cellSpacing="0" cellPadding="10" width="496" border="0">
          <tbody>
            <tr>
              <td bgColor="#f4f4f4">
                <table cellSpacing="10" cellPadding="0" width="460" align="center" border="0">
                  <tbody>
                    <tr>
                      <td><b><%=rsVote("Title")%></b></td>
                    </tr>
                    <tr>
                      <td>共有 <font color=red><%=totalVote%></font> 人参与投票</td>
                    </tr>
                    <tr>
                      <td bgColor="#007ecc">
                        <table cellSpacing="1" cellPadding="2" width="460" border="0">
                          <tbody>
		<%
			for i=1 to 8
			if trim(rsVote("Select" & i) & "")="" then exit for
		%>
			<tr>
                           <td bgColor="#ffffff"><%=rsVote("Select"& i)%></td>
                           <td bgColor="#ffffff">
		<%
		perVote=round(rsVote("answer"& i)/totalVote,2)
		response.write "<img src='images/small/vote.gif' width='" & round(200*perVote) & "' height=10>"
		perVote=perVote*100
		if perVote<1 and perVote<>0 then
			response.write "&nbsp;0" & perVote & "%"
		else
			response.write "&nbsp;" & perVote & "%"
		end if
		%>
			</td>
                              <td align="center" bgColor="#ffffff"><%=rsVote("answer"&i)%></td>
                        </tr>
		<%
		next
		rsVote.Close
		Set rsVote = Nothing
		%>
                          </tbody>
                        </table>
                      </td>
                    </tr>
                  </tbody>
                </table>
                <table cellSpacing="0" cellPadding="0" width="100%" border="0">
                  <tbody>
                    <tr>
                      <td align="middle">感谢您的参与！</td>
                    </tr>
                    <tr>
                      <td align="right">【<a href="javascript:window.close()">关闭窗口</a>】</td>
                    </tr>
                  </tbody>
                </table>
              </td>
            </tr>
          </tbody>
        </table>
      </td>
    </tr>
  </tbody>
</table>
⌨️ 快捷键说明

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