<% '----取得目前票數 dim ChoiceNum(5),TotalNum, sql, rs, LoopFlag sql = "select VoteNum from AC_20061017_Vote_Singer_Choice" set rs = GetRecordset(sql) LoopFlag = 1 TotalNum = 0 Do until rs.EOF ChoiceNum(LoopFlag) = rs("VoteNum") TotalNum = TotalNum + ChoiceNum(LoopFlag) rs.movenext LoopFlag = LoopFlag + 1 Loop rs.close set rs = nothing '---把票數換成% if TotalNum > 0 then For LoopFlag = 1 to 5 ChoiceNum(LoopFlag) = Int(ChoiceNum(LoopFlag)*100/TotalNum) Next end if %> 預測完美歌曲主唱者
 
 
楊三郎
(<%=CStr(ChoiceNum(1))%>%)
伍佰
(<%=CStr(ChoiceNum(2))%>%)
林俊傑
(<%=CStr(ChoiceNum(3))%>%)
楊培安
(<%=CStr(ChoiceNum(4))%>%)
李炳輝
(<%=CStr(ChoiceNum(5))%>%)