1.?线投系统???ͶƱϵͳ Դ??
2.求:限制同一IP重复投票asp源码,急!票系
?统源投票hyperledger源码???ͶƱϵͳ Դ??
我弄的,一个IP一天只能投票一次
。码线改.,源码按键精灵循环源码访问:flycentrury。com。线投系统织梦版本库源码cn
如果选手机,票系你选择的统源投票价位是:
……
你可以试验一下
以下是我按你的数据库改的源码
<%
function ips()
dim id
id=Request.ServerVariables("REMOTE_HOST")
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
id=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
ips=id
end function
ip=ips()
set rc=server.CreateObject("adodb.recordset")
sql="select tptime,ip from ip where ip='"&ip&"' and tptime=#"&date()&"#"
rc.open sql,conn,1,1
aa=rc.recordcount
rc.close
set rc=nothing
if aa>0 then
Response.Write "<script>alert('您今天已经投过票啦!');this.location.href='javascript:window.close()';</SCRIPT>"
else
sql="update Vote set ps=ps+1 where id="&pid
conn.execute(sql)
conn.close
set conn=nothing
Response.Write "<script>alert('谢谢您的码线关注,投票成功!源码');this.location.href='javascript:window.close()';</SCRIPT>"
end if
%>
求:限制同一IP重复投票asp源码,线投系统急!票系
<%
function getIP()
getIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If getIP = "" The统源投票用python写ann 源码n getIP = Request.ServerVariables("REMOTE_ADDR")
end function
if Request.Cookies("mycookie")("userip")<>"" then
Response.Write "<script>alert('一个IP地址只能投一次票,谢谢您的码线参与!');history.go(-1);</script>"
response.End()
else
Response.Cookies("mycookie")("userip")=getIP()
Response.Cookies("mycookie").Expires=date+
end if
%>
把以上代码放在你投票页的源码搞笑视频网源码前面就行了
「原子筆可以測出洗面乳的清潔力? 」 破解洗臉迷思
太原超300业主遭遇办证风波:开发商涉指定代办,代办公司涉卷走款项
自然资源部:库存超3年将暂停住宅用地供应
小林製藥公司社長致歉 日本首相要求查明真相
“生育津贴第一案”当事人张萌:我相信未婚女性处境会逐渐改善丨我信
工信部通报13款问题APP及SDK 强制频繁索权问题突出