count.asp

一套简单的投票系统

<!--#include file="config.asp" -->
<%

'变量
ok=false
IP=Request.ServerVariables("REMOTE_ADDR")   
code=request("code")

'数据库连接
SET con=Server.Createobject("ADODB.CONNECTION")
DSN="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN=DSN & "DBQ=" & server.mappath(DBPath) 
con.Open DSN

'检查IP，避免重复投票
sql = "select * from IP where IP="+sqlstr(IP)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType=adOpenDynamic
rs.LockType=adLockPessimistic
rs.Open sql,con 
if rs.BOF or rs.EOF then '第一次访问
  rs.Addnew
  rs("IP")=IP
  rs("count")=1
  rs("lastin")=now()
else
  if DateDiff("n",rs("lastin"),now())>TimeBetween    then  '30 minute
    ok=true 
    c=rs("count")+1
    rs("lastin")=now()
    rs("count")=c
  end if
end if
rs.update
rs.close

'add total count
if ok then
  sql = "select count from info where code="+CStr(code)
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.CursorType=adOpenDynamic
  rs.LockType=adLockPessimistic
  rs.Open sql,con 
  c=rs("count")
  c=c+1
  rs("count")=c
  rs.update
  rs.close
end if
con.close  
response.redirect "show.asp"
%>