ivote.asp

8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见： 猛虎山庄、燕衔泥（飞扬的软件第二版用的就是他

<%
response.buffer="True"
If request("voteID")="" Then
response.redirect"http://www.365do.net/"
End If

if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
   response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
%>
<!--#include file="conn.asp"-->
<%
dim selected
voteID=request("voteID")
selected=request.form("vote")
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="update 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"view.asp?voteID="&voteID
Else
response.write "<script>alert('对不起，您已经投过票了，欢迎您下次再来！');window.close();</Script>"
End If
%>