% 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)%>票 |