vote.asp

台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' Copyright 2006 txcodes.com - All Rights Reserved. 
'***********************************************************************************

Dim Vote_Count1,Vote_Count,Vote_Content1,Answer
    IF Action="Save" THEN
	    IF Session("IPAddress")=VisitorsIp THEN
	        error_title="感谢您的支持，您已经投过票了，请勿重复投票，谢谢！"
		    Call Page_check(3,0)
        Else
		Set Rs=server.createobject("adodb.recordset")
		Sql="Select Vote_Count from Tx_Vote where Vote_Flag=1 and Vote_Index=1"
		Rs.open Sql,Conn,1,3
		Vote_Count=split(Rs("Vote_Count"),"||")
		For intTemp=0 To ubound(Vote_Count)
		    IF int(Request.form("s_Vote"))=intTemp THEN
			    Vote_Count1=Vote_Count(intTemp)+1
			Else
			    Vote_Count1=Vote_Count(intTemp)
			End IF
            Vote_Count2=Vote_Count2 & "||" & Vote_Count1
		Next
		Rs("Vote_Count")=mid(Vote_Count2,3,len(Vote_Count2))
		Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		Session("IPAddress")=VisitorsIp
		ToHistory=VisitorsForm
		saveok="感谢您的支持！"
	    Call Form_Saveok()
        End IF
    Else
	
	Set Rs=server.createobject("adodb.recordset")
		Sql="Select * from Tx_Vote where Vote_Flag=1 and Vote_Index=1"
        Rs.Open Sql,Conn,1,1
		Vote_Content=split(Rs("Vote_Content"),"||")
		Vote_Count=split(Rs("Vote_Count"),"||")
		For i=0 To ubound(Vote_Count)
		    Vote_Count1=Vote_Count1+int(Vote_Count(i))
		Next
    Page_Name="查看投票结果 -- " & Web_Const(0)
    Call Page_Head()
    %>
        <DIV CLASS="t_talbe2">
        <DIV CLASS="t_talbeall">
        <DIV CLASS="t_talbe1">
		<BR>
		  <TABLE width="90%"  border="0" ALIGN="center" cellpadding="0" cellspacing="0">
            <TR>
              <TD HEIGHT="30" COLSPAN="3" ALIGN="center"><B>投票主题：<%=Rs("Vote_Title")%></B>
			  </TD>
            </TR>
            <TR>
              <TD HEIGHT="20" COLSPAN="3"><DIV CLASS="type-height2"></DIV></TD>
            </TR>
			<%
			For intTemp=0 To ubound(Vote_Content)
			IF Vote_Count1=0 THEN
			Answer=0
			Else
			Answer=(Vote_Count(intTemp)/Vote_Count1)*100
			End IF
			%>
            <TR>
              <TD width="180" HEIGHT="25"><%=intTemp+1%>. <%=Vote_Content(intTemp)%></TD>
              <TD width="170"><TABLE border="0" cellpadding="0" cellspacing="0">
                <TR>
                  <TD width="2" HEIGHT="12" background="Skins/Blue/Bar_Image_1.jpg"></TD>
                  <TD width=<%=int(Answer*2)%> bgcolor="#B50000"></TD>
                  <TD width=<%=170-int(Answer*2)%> bgcolor="#FFFFFF"></TD>
                  <TD width="2" background="Skins/Blue/Bar_Image_2.jpg"></TD>
                </TR>
              </TABLE></TD>
              <TD>&nbsp;　　<SPAN CLASS="type-color2"><%=Vote_Count(intTemp)%></SPAN> 次</TD>
            </TR>
			<%Next%>
            <TR>
              <TD HEIGHT="20" COLSPAN="3"><DIV CLASS="type-height2"></DIV></TD>
            </TR>
            <TR ALIGN="center">
              <TD COLSPAN="3" HEIGHT="30">共有 <SPAN CLASS="type-color2"><b><%=Vote_Count1%></b></SPAN> 人参加投票</TD>
            </TR>
            <TR ALIGN="center">
              <TD COLSPAN="3" HEIGHT="30">『 <a href="javascript:window.close()">关闭窗口</a> 』</TD>
            </TR>
          </TABLE>
		</DIV>
		</DIV>
		</DIV>
    <%
	Rs.Close
	Set Rs=Nothing
	End IF
	Call Page_Bottom()
    Call CloseConn()
    %>