poll_ok.asp

来自「图书管理系统的所有程序」· ASP 代码 · 共 29 行

<%@language="VBScript" %>
<!--#include file="conn/conn.asp" -->
<%
if(Request.form("myif") <> "") then
   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 %>
<%
    PID = Request.form("myif")
    sql = "UPDATE tb_Poll SET poll = poll+1  WHERE Id=" + Replace(PID, "'", "''") + " "
    conn.Execute sql
%>
<script language="javascript">
window.location="Poll_Browse.asp"
</script>
<%else%>
<script language="javascript">
  alert("请选择图书再进行投票！");
  window.history.back();
</script>
<%end if%>