dispoll.asp

电子商务网络购物系统

 <%
Dim strPollQuestion
Dim intPollChoiceNumber
Dim strPollChoice
Dim lngPollChoiceVotes
Dim lngTotalPollVotes
Dim dblPollVotePercentage
Dim lngLastVoteUserID
Dim blnAlreadyVoted
Dim blnMultipleVotes

blnAlreadyVoted = False
	strSQL = "SELECT  timespoll.*, timeschoice.* "
	strSQL = strSQL & "FROM timespoll INNER JOIN timeschoice ON timespoll.pollid = timeschoice.pollid "
	strSQL = strSQL & "WHERE (((timespoll.pollid)=" & lngPollID & "));"
rsConn.Open strSQL, adoCon
If NOT rsConn.EOF Then
	strPollQuestion = rsConn("pollques")
	lngLastVoteUserID = rsConn("userid")
	blnMultipleVotes = CBool(rsConn("multi"))
	blnPollNoReply = CBool(rsConn("Reply"))
	If blnMultipleVotes = False Then
		If lngLastVoteUserID = lngLoggedInUserID AND lngLoggedInUserID <> 2 Then blnAlreadyVoted = True
		If CInt(Request.Cookies("FPLL")("pid" & lngPollID)) = lngPollID Then blnAlreadyVoted = True
	End If
	Do While NOT rsConn.EOF
		lngTotalPollVotes = lngTotalPollVotes + rsConn("Votes")
        	rsConn.MoveNext
        Loop
        rsConn.MoveFirst

%>
 <table width="96％" border="0" cellspacing="0" cellpadding="1" bgcolor="<% = strTablePollBorderColour %>" align="center">
 <tr><form name="frmPoll" method="post" action="votein.asp">
   <td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="<% = strTablePollBgColour %>">
     <tr><td bgcolor="<% = strTablePollBgColour %>"> <table width="100%" border="0" cellspacing="1" cellpadding="4" bgcolor="<% = strTablePollBgColour %>">
        <tr><td colspan="4" background="<% = strTablePollTitleBgImage %>" bgcolor="<% = strTablePollTitleColour %>" class="tHeading" height="25">投票主题: <% = strPollQuestion %></td>
        </tr>
        <tr><% If blnVote = True AND blnForumLocked = False AND blnTopicLocked = False AND blnActiveMember = True AND blnAlreadyVoted = False Then %>
         <td width="6%" align="center" background="<% = strTablePollColumnHeadingBgImage %>" bgcolor="<% = strTablePollColumnHeadingColour %>" class="tHeading">投票</td><%
				End If %>
         <td width="44%" background="<% = strTablePollColumnHeadingBgImage %>" bgcolor="<% = strTablePollColumnHeadingColour %>" class="tHeading" nowrap="nowrap">投票选项</td>
        <td width="6%" align="center" background="<% = strTablePollColumnHeadingBgImage %>" bgcolor="<% = strTablePollColumnHeadingColour %>" class="tHeading">投票</td>
         <td width="44%" background="<% = strTablePollColumnHeadingBgImage %>" bgcolor="<% = strTablePollColumnHeadingColour %>" class="tHeading">投票统计</td>
        </tr><%
 	Do While NOT rsConn.EOF
 		intPollChoiceNumber = Cint(rsConn("Choice_ID"))
 		strPollChoice = rsConn("Choice")
 		lngPollChoiceVotes = CLng(rsConn("Votes"))
		If lngTotalPollVotes = 0 Then
			dblPollVotePercentage = FormatPercent(0, 2)
		Else
			dblPollVotePercentage = FormatPercent((lngPollChoiceVotes / lngTotalPollVotes), 2)
		End If
 		intRecordLoopCounter = intRecordLoopCounter + 1  %>
        <tr><% If blnVote = True AND blnForumLocked = False AND blnTopicLocked = False AND blnActiveMember = True AND blnAlreadyVoted = False Then 	%>
         <td bgcolor="<% If (intRecordLoopCounter MOD 2 = 0 ) Then Response.Write(strTablePollEvenRowColour) Else Response.Write(strTablePollOddRowColour) %>" background="<% = strTablePollBgImage %>" align="center"><input type="radio" name="voteChoice" value="<% = intPollChoiceNumber %>" id="P<% = intPollChoiceNumber %>"></td><%
		End If %>
         <td bgcolor="<% If (intRecordLoopCounter MOD 2 = 0 ) Then Response.Write(strTablePollEvenRowColour) Else Response.Write(strTablePollOddRowColour) %>" background="<% = strTablePollBgImage %>" class="text"><label for="P<% = intPollChoiceNumber %>"><% = strPollChoice %></label></td>
         <td align="center" background="<% = strTablePollBgImage %>" bgcolor="<% If (intRecordLoopCounter MOD 2 = 0 ) Then Response.Write(strTablePollEvenRowColour) Else Response.Write(strTablePollOddRowColour) %>" class="text"><% = lngPollChoiceVotes %></td>
         <td bgcolor="<% If (intRecordLoopCounter MOD 2 = 0 ) Then Response.Write(strTablePollEvenRowColour) Else Response.Write(strTablePollOddRowColour) %>" background="<% = strTablePollBgImage %>" class="smText" nowrap="nowrap"><img src="images/bargraph.gif" width="<% = CInt(Replace(CStr(dblPollVotePercentage), "%", "", 1, -1, 1)) * 2 %>" height="11" align="middle"> [<% = dblPollVotePercentage %>]</td>
        </tr><%
        	rsConn.MoveNext
        Loop   %>
        <tr align="center">
         <td colspan="4" background="<% = strTableBgImage %>" bgcolor="<% = strTablePollBottomRowColour %>" class="text"><%
If blnForumLocked = True OR  blnTopicLocked = True Then %>
此投票已关闭，不能接受新回复
<% ElseIf blnActiveMember = False OR blnVote = False Then %>
你无权参与此投票
<% ElseIf blnAlreadyVoted = True Then %>
你已经参与过此投票了
<% Else %>
          <input type="hidden" name="pid" value="<% = lngPollID %>">
          <input type="hidden" name="tid" value="<% = lngTopicID %>">
          <input type="hidden" name="fid" value="<% = intForumID %>">
          <input type="hidden" name="pn" value="<% = intTopicPageNumber %>">
          <input type="hidden" name="tpn" value="<% = intRecordPositionPageNum %>">
          <input type="submit" name="Submit" value="投票"><%
End If
%>
         </td></tr></table>
		 </td></tr></table>
		 </td></form></tr></table>
<br />
<% End If
rsConn.Close
Select Case Request.QueryString("RN")
	Case "1"
		Response.Write("<script  language=""JavaScript"">")
		Response.Write("alert('谢谢你的参与，请看结果');")
		Response.Write("</script>")
	Case "2"
		Response.Write("<script  language=""JavaScript"">")
		Response.Write("alert('你至少要选中一个选项');")
		Response.Write("</script>")
End Select
%>