<% Dim vt:vt=request("person") ReDim vote(8) ReDim cnt(8) OpenDB() ip = Request.ServerVariables("REMOTE_ADDR") strSql = " insert into [vote] ([vote],[ip]) values ('"&vt&"','"&ip&"')" conn.execute(strsql) i=0 sql = "select [vote],count(vote) as cnt from [vote] group by [vote] order by vote " set rs = Server.CreateObject("ADODB.recordset") rs.open sql,conn,1,1 If not rs.EOF Then do While not rs.eof vote(i) = rs("vote") cnt(i) = rs("cnt") i=i+1 rs.movenext loop End If rs.close set rs=Nothing CloseDB() sum = cnt(0)+cnt(1)+cnt(2)+cnt(3)+cnt(4)+cnt(5)+cnt(6)+cnt(7) %> 投票结果-您认为哪位化企掌门人最具有个人魅力?-环球聚氨酯网

投票结果

 您认为哪位化企掌门人最具有个人魅力?
    巴斯夫-关志华
<%=cnt(1)%>票
    拜耳-柯尼希
<%=cnt(2)%>票
    陶氏-利伟诚
<%=cnt(3)%>票
    杜邦-贺利得
<%=cnt(4)%>票
    三菱-小林喜光
<%=cnt(5)%>票
    赢创-英凯师
<%=cnt(6)%>票
    中国石化-王天普
<%=cnt(7)%>票
    朗盛-王永利
<%=cnt(8)%>票