这里是测试代码
dima,b,c,d
fora=0to255
forb=0to255step20
forc=0to255step20
ford=0to255step20
IpSearch.IpAddress=a&"."&b&"."&c&"."&d
Response.Write("地点地:"&IpSearch.GetIpAddrInfo()&"<br>")
Response.Write("IP:"&IpSearch.IpAddress&"<br>")
Response.Write("IP转换为数值:"&IpSearch.CLongIP(IpSearch.IpAddress)&"<br>")
Response.Write("数值复原成IP:"&IpSearch.CStringIP(IpSearch.CLongIP(IpSearch.IpAddress))&"<br>")
Response.Write("<hr>")
next
next
next
next
%>