<% if session("vote")=request.form("id") then response.write "" response.end end if if session("vote1")=request.form("id") then response.write "" response.end end if on error resume next dim id,rs,v,chk,vv,vvv If instr(Request("id")," ")>0 or instr(Request("id"),"'")>0 or trim(request("id"))="" then Response.Redirect "http://www.xyxy.net" else end if id=request.form("id") v=request.form("v") chk=request.form("chk") if id<>"" and v<>"" then select case chk case "1" '单选 conn.execute("update V_vote set vcount=vcount+1 where id="&cint(v)&"") case "2" '多选 vvv=replace(v," ","") vv=split(vvv,",") for i= 0 to ubound(vv) conn.execute("update V_vote set vcount=vcount+1 where id="&cint(vv(i))&"") next end select if session("vote")<>"" then session("vote1")=session("vote") end if session("vote")=id response.write "" response.end else response.write "" response.end end if %>