28,391
社区成员
发帖
与我相关
我的任务
分享
<%
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") '捕获代理IP
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
dim userip,url,data
set rs = createobject("adodb.recordset")
sql = "select * FROM userip where ip='"& userip &"' and datediff(d, data, getdate())=0"
rs.cursorLocation = 3
rs.open sql,conn,1,3
if rs.eof and rs.bof then
rs.addnew
rs("ip")=userip
rs("url")=url
rs("data")=date()
rs.update
end if
if rs.state <> 0 then rs.close
set rs = nothing
conn.close
set conn = nothing
%>