<% 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):结婚钻戒,吊坠,项链,铂金钻戒,情侣钻戒,珠宝钻石连锁加盟!