<%if session("username")="" then response.redirect "ever.asp?lr=未注册用户不能投票"%>
<%
ID=request("ID")
MENUID=request("MENUID")
FS=request("FS")
sql="select 总票数,投票数量,最后评论时,最后评论人,开放评论 from lr where id="&id
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
if not rs("开放评论") then
rs.close
set conn=nothing
response.redirect "ever.asp?lr=本投票已关闭，无法投票"
end if
TPSN=RS("投票数量")
TPS=MYDATA(TPSN,",")
NEWLR=""
zps=0
if fs="单" THEN
R1=request.form("R1")
TPS(R1)=TPS(R1)+1
FOR I=0 TO 15
IF TPS(I)="" THEN EXIT FOR
NEWLR=NEWLR&TPS(I)&","
zps=zps+tps(i)
NEXT
else
for i=0 to 15
if tps(i)="" then exIt for
CLR=request.form("C"&I)
IF CLR="ON" THEN
TPS(I)=TPS(I)+1
END IF
NEWLR=NEWLR&TPS(I)&","
zps=zps+tps(i)
next
end if
RS("投票数量")=NEWLR
RS("总票数")=zps
RS("最后评论时")=now()
RS("最后评论人")=SESSION("USERNAME")
RS.UPDATE
rs.close
set conn=nothing
response.cookies("TP"&ID&SESSION("USERID"))="YES"
RESPONSE.COOKIES("TP"&ID&SESSION("USERID")).EXPIRES=DATE()+30
%>