/** * 纯真 IP 数据库查询 * * 参考资料： * - 纯真 IP 数据库 http://www.cz88.net/ip/ * - IpLocation https://github.com/nauxliu/IpLocation/ * - 基于本地数据库的 IP 地址查询 * * 使用示例： * $ip = new IPQuery(); * $addr = $ip->query('IP地址'); * print_r($addr); */ class IPQuery { private $fh; // IP数据库文件句柄 private $first; // 第一条索引 private $last; // 最后一条索引 private $total; // 索引总数 private $dbFile = __DIR__ . DIRECTORY_SEPARATOR . 'qqwry.dat'; // 纯真...

' ============================================ ' 返回IP信息 Disp_IPAddressData(IP,0) ' ============================================ Function Look_Ip(IP) Dim Wry, IPType, QQWryVersion, IpCounter ' 设置类对象 Set Wry = New TQQWry ' 开始搜索，并返回搜索结果 ' 您可以根据 QQWry(IP) 返回值来判断该IP地址在数据库中是否存在，如果不存在可以执行其他的一些操作 ' 比如您自建一个数据库作为追捕等，这里我就不详细说明了 IPType = Wry.QQWry(IP) ' Country：国家地区字段 ' LocalStr：省市及其他信息字段 Look_Ip =Wry.Country & "" & Wry.LocalStr...