在/e/pl/more/index.php里找
$sql=$empire->query("select username,saytime,saytext
改为:
$sql=$empire->query("select username,saytime,saytext,sayip
找:
$saytime=format_datetime($r['saytime'],$pldate);
下面加上:
//测试改IP为物理地址开始 include_once("../../pl/more/qqwry.php"); $QQWry=new QQWry; $ipp=$r[sayip];//数据表里的IP字段sayip $ip="$ipp"; preg_match('/((\w|-)+\.)+[a-z]{2,4}/i',$ip) ? $ip=gethostbyname($ip) : $ip; $ifErr=$QQWry->QQWry($ip); $ipadd="$QQWry->Country$QQWry->Local"; //测试改IP为物理地址结束 //显示IP地址,隐掉最后一位 $ipr=explode(".",$r[sayip]); $r[sayip]=""; $ipnum=count($ipr); for($i=0;$i<$ipnum;$i++) { if($i!=0) {$d=".";} if($i==$ipnum-1) { $ipr[$i]="*"; } $r[sayip].=$d.$ipr[$i]; } //显示IP地址,隐掉最后一位
上传qqwry.php和QQWry.Dat到 /e/pl/more/里
QQWry.Dat 最新的可以到
http://update.cz88.net/soft/qqwry.rar
下载
OK
上传以下附件: [下载 *.rar](文件大小:1.70 KB,下载次数:147)
|