<% IP=request.ServerVariables("REMOTE_ADDR")
num=split(ip,".")
for i=0 to 3
sip=sip&string(3-len(num(i)),"0")&num(i)
next
set rs=server.createobject("adodb.recordset")
sql="select * from ipinfo where startip<='"&sip&"' and endip>='"&sip&"'"
rs.open sql,conn,1,3
if not rs.eof then
ad=rs("address")
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from visitor where ip='"&IP&"' and datediff('h',stime,time())<0.5 and sdate=date()"
rs.open sql,conn,3,3
if (rs.eof and rs.bof) then
rs.addnew
rs("IP")=ip
rs("stime")=time()
rs("sdate")=date()
rs("address")=ad
rs.update
end if
rs.close
set rs=nothing
%>
抚顺水泥股份有限公司
