<%@ codepage=65001 %> <% 'Response.CacheControl = "no-cache" 'Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 Response.buffer = True %> <% errMsg = "" vs = trim(Request("vs")) If vs = "" Then vs = "" If Check_PartanValue(Global_validnum, VS) = False Then VS = "" Dim VAry hVAry = False Set rs = Server.CreateObject ("adodb.recordset") Set rs2 = Server.CreateObject ("adodb.recordset") SNAME = "" Online = False Do If IsEmpty(VoteVID) Then errMsg = "投票區無效" Exit Do End If If Check_PartanValue(Global_validnum, VoteVID) = False Then errMsg = "投票區無效" Exit do End If 'sql = "SELECT ENAME, SNAME, AdmID, AdmPWD, Online FROM tbl_b011 WHERE (SID = 1)" sql = "SELECT VNO, VNAME, Online FROM tbl_v001 WHERE (VID = " & VoteVID & ")" With rs .Open sql, conn, 3, 1 If .EOF Then errMsg = "投票區無效" Else VNO = .Fields ("VNO").Value VNAME = .Fields ("VNAME").Value Online = .Fields ("Online").Value End If .Close End With If errMsg <> "" Then Exit Do If Online = False Then errMsg = "投票區沒有開放哦~~~" Exit Do End If strPageTitle = VNAME hv = False sql = "SELECT VSID, VTYPE, VTITLE, STime, ETime, GETDATE() AS NOWTMP, BNN1 FROM tbl_v002 WHERE (Enabled = 1) AND (VID = " & VoteVID & ") AND (Online = 1) AND (STime < ETime) ORDER BY ASORT, VSID DESC" rs.Open sql, conn, 3, 1 If NOT rs.EOF Then hVAry = True Do If rs.EOF Then Exit Do If hv = True Then Exit Do If VS = rs.Fields ("VSID").Value & "" Then VTYPE = rs.Fields ("VTYPE").Value VTITLE = rs.Fields ("VTITLE").Value STime = rs.Fields ("STime").Value ETime = rs.Fields ("ETime").Value NOWTMP = rs.Fields ("NOWTMP").Value BNN1 = rs.Fields ("BNN1").Value hv = True Exit Do End If rs.MoveNext Loop rs.MoveFirst If hv = False Then vs = Cstr(rs.Fields ("VSID").Value ) VTYPE = rs.Fields ("VTYPE").Value VTITLE = rs.Fields ("VTITLE").Value STime = rs.Fields ("STime").Value ETime = rs.Fields ("ETime").Value NOWTMP = rs.Fields ("NOWTMP").Value BNN1 = rs.Fields ("BNN1").Value hv = True End If VAry = rs.GetRows (,, Array("VSID", "VTITLE")) End If rs.Close hvs = False Dim VVAry pcnt = 0 ' 投票人次 totalvotes = 0 ' 總票數 If hv Then sql = "SELECT v3.VSNO, v3.STITLE, v3.AURL" 'sql = sql & " , (SELECT COUNT(DISTINCT MGUID) AS Amt1 FROM tbl_v004 v4a WHERE (VSID = tbl_v003.vsid) AND (VSNO IN (SELECT v3b.VSNO FROM tbl_v003 v3b WHERE (v3b.Enabled = 1) AND (v3b.vsid = tbl_v003.vsid)))) AS Amt1 " 'sql = sql & " , (SELECT COUNT(*) AS Amt2 FROM tbl_v004 v4a WHERE (v4a.VSID = tbl_v003.VSID) AND (v4a.VSNO = tbl_v003.VSNO)) AS Amt2 " sql = sql & " , (SELECT COUNT(DISTINCT v4a.MGUID) AS VMAN FROM tbl_v004 v4a WHERE (v4a.VSID = v3.VSID)) AS VMAN " sql = sql & " , (SELECT COUNT(v4b.SID) AS VAMT FROM tbl_v004 v4b WHERE (v4b.VSID = v3.VSID) AND (v4b.VSNO = v3.VSNO)) AS VAMT " sql = sql & " FROM tbl_v003 v3 WHERE (v3.Enabled = 1) AND (v3.VSID = " & vs & ") ORDER BY ASORT" rs.Open sql, conn, 3, 1 If NOT rs.EOF Then hvs = True End If If hvs Then pcnt = rs.Fields ("VMAN").Value ' 投票人次 rs.MoveFirst While NOT rs.EOF totalvotes = totalvotes + rs.Fields ("VAMT").Value '總票數 rs.MoveNext WEnd rs.MoveFirst End If End If Exit Do Loop %> <% Set rs2 = Nothing Set rs = Nothing Function main() %>

<% If hVAry Then %> <% End If %> <% If hv AND hvs Then canVote = True If Request.Cookies("VoteNonMember_" & VoteVID & "_" & vs) = "Y" OR Session("VoteNonMember_" & VoteVID & "_" & vs) = "Y" OR (NOWTMP < STIME) or (NOWTMP > ETIME) Then canVote = False strTN = "投票結果統計" If canVote Then strTN = "我要投票" VFSC = CrtRanDomChar_Num (5) End If itemtype = "radio" barImg = "images/bar.gif" barImg20 = "images/bar-20.gif" barImg40 = "images/bar-40.gif" barImg60 = "images/bar-60.gif" barImg80 = "images/bar-80.gif" If VTYPE Then itemtype = "checkbox" %> <% End if %>   <% If hv Then %> <% Else %> <% End If %> <%= VTITLE %> <%= datetime(STIME, 1) %> ~ <%= datetime(ETIME, 1) %> <% If NOWTMP > ETIME Then %> 〔已結束〕 <% End If %> <% If NOWTMP < STIME Then %> 〔還沒開始〕 <% end If %> <%= pcnt %> <% ShowContent server.HTMLEncode (BNN1) %> <% If canVote Then %> <% End If %> 公休中 <% If canVote Then %> <% End If %> <% BarWidth = 280 While NOT rs.EOF AURL = trim(rs.Fields ("AURL").Value ) STITLE = trim(rs.Fields ("STITLE").Value ) VSNO = rs.Fields ("VSNO").Value %> ◎ <%= strTN %> ◎ <%' End If %> <% If AURL <> "" Then Response.Write "" Else Response.Write "" End If Response.Write "" & STITLE & "" If AURL <> "" Then Response.Write "" Else Response.Write "" End If %> <% ' If canVote Then ' Response.Write " " ' Else 'Response.Write VVAry(4, ij) Response.Write " 得票數：" & rs.Fields ("VAMT").Value & " | " ' End If %> <% ' If canVote Then ' Response.Write " " ' Else Response.Write "得票率：" If totalvotes > 0 Then Response.Write Round(((rs.Fields ("VAMT").Value / totalvotes) * 100), 2) & " %" Else Response.Write "0" end If Response.Write "" ' End If %> <% ' If canVote = False AND rs.Fields ("VAMT").Value > 0 Then imgWidth = Int((rs.Fields ("VAMT").Value / totalvotes) * BarWidth*3) %> <% if Round(((rs.Fields ("VAMT").Value / totalvotes) * 100), 2) > 80 then %> <% elseif Round(((rs.Fields ("VAMT").Value / totalvotes) * 100), 2) > 60 then %> <% elseif Round(((rs.Fields ("VAMT").Value / totalvotes) * 100), 2) > 40 then %> <% elseif Round(((rs.Fields ("VAMT").Value / totalvotes) * 100), 2) > 20 then %> <% else %> <%end if%> <%' End If %> <% rs.MoveNext WEnd %>

<% End Function %>