poll_ok.asp

《网上图书管理系统》 开发及测试环境 操作系统：Windows 2000 Server 后台数据库：Access 2000 Web服务器：IIS 5.0 系统在该环境下测试通过运行。

<%@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>