我很早以前做过一个简单的投票程序，你自己研究一下吧

<%response.buffer=true%>







<%
set con=server.createobject("adodb.connection")
con.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("***.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from toupiao",con,1,3
vote=request("vote")
if request.cookies("voted")<>"yes" and vote<>empty then
select case vote
case "result01" rs("result01")=rs("result01")+1
case "result02" rs("result02")=rs("result02")+1
case "result03" rs("result03")=rs("result03")+1
case "result04" rs("result04")=rs("result04")+1
case "result05" rs("result05")=rs("result05")+1
end select
rs.update
response.cookies("voted")="yes"
'两天之内不能再投票
lastdate=dateadd("d",2,date)
response.cookies("voted").expires=formatdatetime(lastdate)
end if
num01=rs("result01")
num02=rs("result02")
num03=rs("result03")
num04=rs("result04")
num05=rs("result05")
total=num01+num02+num03+num04+num05
if total>0 then
per01=num01/total
per02=num02/total
per03=num03/total
per04=num04/total
per05=num05/total
end if
if request.cookies("voted")="yes" then
message
end if
sub message
%>

<%end sub%>

今年暑假你在做些什么
总投票数<%=total%>
	上网、聊天、玩游戏		<%=formatnumber(per01*100,2,true)%>%
	用功地读书、学习		<%=formatnumber(per02*100,2,true)%>%
	旅游去了，真是幸福啊		<%=formatnumber(per03*100,2,true)%>%
	打工实习，养活自己		<%=formatnumber(per04*100,2,true)%>%
	啥都没做，无聊透了		<%=formatnumber(per05*100,2,true)%>%