'=====================================================================================
'flash饼图投票系统单用户版多选2.0
'flashballot2.0
'作者:毛虫
'网地:www.flashado.com
'email:mc@flashado.com
'如有BUG请尽快向我提出，这样我会尽快更新
'=====================================================================================
id=request.form("cdid")
If(id"") Then
id=Split(id,",")
If(request.Cookies("ballot")="yes") Then
avert="yes"
Response.Write "&avert="& avert
else
For Each myid In id
If(myid"") Then
sql="update ballot set hit=hit+1 where id="& intSql(myid)
set rs=conn.execute(sql)
End if
next
Response.Cookies("ballot").Expires=Date+myday
Response.Cookies("ballot")="yes"
avert="no"
End if
Response.Write "&avert="& avert
End if
set rs=nothing
set conn=nothing
%>
