<% response.buffer="True" If request("voteID")="" Then response.redirect"index.asp" End If if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR") %> <% dim selected voteID=request("voteID") selected=request.form("vote") dim rs,sql set rs=server.createobject("adodb.recordset") sql="update jjh_vote set "&selected&"="&selected&"+1 where voteID="&voteID rs.open sql,conn,3,3 conn.close set conn=nothing rs.close set rs=nothing response.redirect"showvote.asp?voteID="&voteID Else response.write "" End If %>