Function getaddress(sip)
dim tip,sip1,sip2,sip3,sip4,ip
tip=cstr(sip)
sip1=left(tip,cint(instr(tip,".")-1))
tip=mid(tip,cint(instr(tip,".")+1))
sip2=left(tip,cint(instr(tip,".")-1))
tip=mid(tip,cint(instr(tip,".")+1))
sip3=left(tip,cint(instr(tip,".")-1))
sip4=mid(tip,cint(instr(tip,".")+1))
ip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)
dim ipconn
set ipconn=server.createobject("ADODB.CONNECTION")
ipconn.open "DBQ="&server.mappath("ip.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
dim rs,sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 ip_b,ip_c from ip where (ip_s<=" & ip & " and ip_e>=" & ip & ")"
rs.Open sql,ipconn,1,1
if rs.eof or rs.bof then 
getaddress="未知|未知"
Else
getaddress=rs(0)&"|"&rs(1)
end if
End Function