poll_ok.asp

来自「《网上图书管理系统》 开发及测试环境 操作系统：Windows 2000 」· ASP 代码 · 共 24 行

<%@language="VBScript" %>
<!--#include file="Connections/conn.asp" -->
<% if not request.ServerVariables("REMOTE_ADDR")=request.Cookies("IPAddress") then
response.Cookies("IPAddress")=request.ServerVariables("REMOTE_ADDR")
else %>
<script language="javascript">
alert("您已经投过票了，谢谢您的支持！");
window.location="Poll_Browse.asp"  //转到显示投票结果页面
</script>
<% 
response.End()
end if %>
<%

if(Request.form("myif") <> "") then PID = Request.form("myif")

%>
<%
sql = "UPDATE DB_Poll  SET poll = poll+1  WHERE id=" + Replace(PID, "'", "''") + " "
conn.Execute sql
%>
<script language="javascript">
window.location="Poll_Browse.asp"
</script>