<%@ Language="VBSCRIPT" codepage="936" %> <% '**************************************************** ' Software name:Kesion CMS 8.0 ' Email: service@kesion.com . QQ:111394,9537636 ' Web: http://www.kesion.com http://www.kesion.cn ' Copyright (C) Kesion Network All Rights Reserved. '**************************************************** Dim KS:Set KS=New PublicCls Dim KSUser: Set KSUser = New UserCls Dim ID:ID = Replace(KS.S("ID")," ","") Dim ChannelID:ChannelID=KS.ChkClng(Request("m")) If ChannelID="" Then Response.End() Dim LoginTF,ComeUrl,ClassID,UserName ID=KS.FilterIDs(ID) If ID="" Then Response.Write(""):Response.End() Const UserTF=1 '是否只允许会员投票 1是 0否 Const UserIPNum=3 '每个IP最多投票数,0不限制 3表示限制3票 Const SameVote=0 'UserIPNum如果设置大于0时,是否允许投在同一个选项上,0不允许,1允许 Const UserGroup="0" '允许投票的会员组,多个会员组请用,号隔开,不想限制请输入0 'IF Cbool(Request.Cookies(Cstr(ID))("PhotoVote"))<>true Then ' Conn.Execute("Update " & KS.C_S(ChannelID,2) &" Set Score=Score+1 Where ID=" & ID) ' Response.Cookies(Cstr(ID))("PhotoVote")=true ' Response.Write "" Response.End() End If if UserGroup<>"0" and KS.FoundInArr(UserGroup, KSUser.GroupID, ",")=False Then Response.Write "" Response.End() End If If UserIPNum<>0 Then '判断有没有超过最大投票数了 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET") RS.Open "Select ID From KS_PhotoVote Where UserIp='" & KS.GetIP & "' and ChannelID=" & ChannelID & " And ClassID='" & ClassID & "'",conn,1,1 If Not RS.Eof Then If KS.ChkClng(RS.Recordcount)>KS.ChkCLng(UserIPNum) Then RS.Close:Set RS=Nothing Response.Write "" Response.End() End If '判断是不是投了同一选项 If SameVote=0 Then Dim RSS:Set RSS=Conn.Execute("Select top 1 ID From KS_PhotoVote Where UserIp='" & KS.GetIP & "' and ChannelID=" & ChannelID & " And ClassID='" & ClassID & "' And InfoID='" & KS.ChkClng(ID) & "'") If Not RSS.Eof Then RSS.CLose:Set RSS=Nothing Response.Write "" Response.End() End If RSS.CLose:Set RSS=Nothing End If End If RS.Close: Set RS=Nothing End If If LoginTF=False Then UserName="游客" Else UserName=KSUser.UserName Conn.Execute("Insert Into [KS_PhotoVote]([ChannelID],[ClassID],[InfoID],[VoteTime],[UserName],[UserIP]) Values(" & ChannelID & ",'" & ClassID & "','" & ID & "'," & SqlNowString & ",'" & UserName & "','" & KS.GetIP() & "')") Conn.Execute("Update " & KS.C_S(ChannelID,2) &" Set Score=Score+1 Where ID In(" & ID & ")") KS.AlertHintScript "恭喜,您已成功的投票!" End Sub Sub ShowVote() Dim TempStr TempStr = TempStr & "" TempStr = TempStr & " " TempStr = TempStr & " " TempStr = TempStr & " " TempStr = TempStr & " " TempStr = TempStr & " " Dim TotalVote:TotalVote=Conn.Execute("Select sum(score) from " & KS.C_S(ChannelID,2) & " where tid='" & ClassID & "'")(0) if totalvote=0 then totalvote=1 Dim RS:Set RS=Conn.Execute("Select Title,Score From " & KS.C_S(ChannelID,2) & " where tid='" & ClassID & "' Order BY Score Desc") Do While Not RS.Eof TempStr = TempStr & " " TempStr = TempStr & " " TempStr = TempStr & " " TempStr = TempStr & " " TempStr = TempStr & "" RS.MoveNext Loop TempStr = TempStr & "
投票选项得票柱状图百分比
" & rs(0) & "" & rs(1) & " " dim perVote:perVote=round(rs(1)/totalVote,4) TempStr = TempStr & "" perVote=perVote*100 if perVote<1 and perVote<>0 then TempStr = TempStr & " 0" & perVote & "%" else TempStr = TempStr & " " & perVote & "%" end if TempStr = TempStr & "
" Set KSR = New Refresh Dim Template Template=KSR.LoadTemplate(KS.Setting(3) & KS.Setting(90) & "vote.html") '模板地址 Template=Replace(Template,"{$ShowVoteResult}",TempStr) Response.Write Template Set KSR=Nothing End Sub Call CloseConn() Set KS=Nothing Set KSUser=Nothing %>