 |
 |
<%
''產生投票前五名縣市表
strSql = "select top 5 b.countyname,count(votedata) as votecount from gvm_event_vote as a " & _
"inner join countyprofile as b on a.votedata = b.countyid where a.eventID=6 group by votedata,countyname order by votecount desc"
set sqlRS = sqlConn.Execute(strSql)
dim nNo,nVotecount
nNo = 1
nVotecount = 0
do while not sqlRS.EOF
response.Write ""
'response.Write "| NO"& nNo &"： | "
response.Write ""& sqlRS("countyname") &" | "
nVoteCount = sqlRS("votecount")
select case len(cstr(nVoteCount))
case 1
nVoteCount = "00000"+cstr(nVoteCount)
case 2
nVoteCount = "0000"+cstr(nVoteCount)
case 3
nVoteCount = "000"+cstr(nVoteCount)
case 4
nVoteCount = "00"+cstr(nVoteCount)
case 5
nVoteCount = "0"+cstr(nVoteCount)
case 6
nVoteCount = cstr(nVoteCount)
case else
nVoteCount = "000000"
end select
response.Write ""& nVoteCount &"票 | "
response.Write " "
nNo = nNo + 1
sqlRS.MoveNext
loop
sqlRS.Close
sqlConn.Close
%>
|
 |
|
 |
