vote.asp

默认管理员：etaodu 密码：etaodu 陶都房市++介绍： 本版本是基于<住易江南>美化

<!--#include file="conn.asp"-->
<%
  color1="#003399"	'投票说明字体颜色
  color2="#000000"	'投票项字体颜色
  color3="#C0C0C0"	'投票按钮背景颜色
  path="vote/"		'投票系统路径。如果本系统不与调用页面在同一级文件夹，请修改此设置。例如：本投票系统在piao/文件夹里，而调用页面在主目录下，请把值改为“piao/”不多说了，不知道找我Q153527561
  
  Set conn=Server.CreateObject("ADODB.Connection")
  conn.open ConnStr
  IF Request.Form("IsSub")="YES" THEN
    SS=Request.Form("SS")  
    Set rs=conn.execute("Select 值 From 系统 Where ID=2")
    sta=Cint(rs(0))
    rs.close
    FE=False
    IF sta=2 THEN
      IF Request.Cookies("fjvote")="DONE" THEN
        FE=True
      ELSE
        Response.Cookies("fjvote")="DONE"
      END IF
    ELSEIF sta=3 THEN
      IP=Request.ServerVariables("REMOTE_ADDR")
      rs.open "Select IP From IP Where 所属="&SS,conn,1,1
      IF rs.eof THEN
        conn.execute "Insert Into IP(所属,IP) Values("&SS&",',"&IP&",')"
      ELSE
        IF Instr(rs(0),","&IP&",") THEN
          FE=True
        ELSE
          conn.execute "Update IP Set IP='"&rs(0)&IP&",' Where 所属="&SS
        END IF
      END IF
    END IF
    IF FE=True THEN
       Response.write "<Script language=JavaScript>alert('对不起，你已经投过票了，不能再投票了。')</Script>;" '这里自己可以设置下面基本上都不用改了
    ELSE
      FOR EACH name IN Request.Form("rc")
        conn.execute "Update 结果 Set 得票=得票+1 Where ID="&name
      NEXT  
    END IF
    Response.write "<Script language=JavaScript>window.open('view.asp?ID="&SS&"','','width=420,height=350,scrollbars=yes');window.close();</Script>"
  END IF
  Response.write "document.write('"
  top=Cint(Request.QueryString("top"))
  IF top<1 THEN top=1
  Set rs=conn.execute("Select Top "&top&" ID,项目,多选 From 调查 Where 活动=True Order By ID DESC")
  IF rs.eof THEN
    Response.write "document.writeline('目前还没有活动投票项')"
  ELSE
    Set rs2=Server.Createobject("ADODB.RecordSet")
    While NOT rs.eof
      Response.write "<form method=POST action="&path&"vote.asp target=_blank><input type=hidden name=IsSub value=YES><input type=hidden name=SS value="&rs(0)&">"
      Response.write "<font color="&color1&">"&rs(1)&"</font><br>"
      rs2.open "Select ID,内容 From 结果 Where 所属="&rs(0),conn,1,1
      i=1
      While NOT rs2.eof
        Response.write "<input type="
        IF rs(2)=True THEN
          Response.write "checkbox"
        ELSE
          Response.write "radio"
        END IF
        Response.write " name=rc value="&rs2(0)&"> <font color="&color2&">"&rs2(1)&"</font><br>"
        rs2.MoveNext
        i=i+1
      WEND
      rs2.close
      Response.write "<br><center><input type=submit value=投票 style=background-color:"&color3&"> <input type=button value=查看 style=background-color:"&color3&" onclick=javascript:window.open(\'"&path&"view.asp?ID="&rs(0)&"\',\'\',\'width=420,height=350,scrollbars=yes\')></center>"
      Response.write "</form>"
      rs.MoveNext
    WEND
    Set rs2=nothing
  END IF
  Response.write "');"
  rs.close
  Set rs=nothing
  conn.close
  Set conn=nothing
%>