<%
comef=request("comef")
Dim str1,str2,str3,str4
Dim num,irs,sip
dim acountry,acity
set rs=server.createobject("adodb.recordset")
sql="select * from accdat where (id is null)"
rs.open sql,conn,1,3
rs.addnew
comefrom=request.Servervariables("HTTP_REFERER")
if comef=913 then
comefrom="913.cn广告"
elseif comef=1000 then
comefrom="cn-bijou广告"
end if
rs("url")=comefrom
rs("ip")=request.ServerVariables("remote_addr")
rs("accdate")=now()
rs("riqi")=date()
sip=request.ServerVariables("remote_addr")
If isnumeric(left(sip,2)) Then
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
set irs=server.createobject("adodb.recordset")
asql="select * from dv_address where ip1 <="&num&" and ip2 >="&num
irs.open asql,aconn,1,1
If irs.eof and irs.bof Then
acountry=" "
acity=" "
Else
acountry=irs("country")
acity=irs("city")
end if
rs("country")=acountry
rs("city")=acity
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
irs.close
set irs=nothing
End If
%>
世纪缘钻石珠宝加盟(SJONO Diamond):结婚钻戒,吊坠,项链,铂金钻戒,情侣钻戒,珠宝钻石连锁加盟!
