投票代码

2010-1-31 08:07| 发布者: admin| 查看: 57| 评论: 0|原作者: 玄霄

<%
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 ""
else

sql="update Vote set ps=ps+1 where id="&pid
conn.execute(sql)

conn.close
set conn=nothing
Response.Write ""
end if
%>

收藏分享邀请

		自动登录	找回密码
密码			注册

投票代码

最新评论

相关分类