使用方法：进入QQ空间--自定义--模块--新建模块--Flash模块--地址里填写 http://flash.fzl51.cn/getip.asp 保存即可
自己访问不属于跑堂 所以只有别人QQ访问才会显示正确 而且空间必须对外开放"; exit; } Function mysubstr($s, $sstart, $sstop) { $src = $s; $s1 = strlen($sstart) ; $p1 = strpos($s, $sstart) ; If ($p1 != $s1){ $src = substr($src, $p1) ; $p1 = $s1 ; } if($sstop==""){ $p2 = strlen($s); }else{ $p2 = strpos($src, $sstop) ; } If($p1!=$sl&&$p2!=0){ return substr($src, $p1, $p2 - $p1) ; }else{ return ""; } } if (strpos($come,"tp://user.qzone.qq.com/")>1) { $qq=mysubstr($come, "http://user.qzone.qq.com/", "?"); if ($qq==""){ $qq=mysubstr($come, "http://user.qzone.qq.com/", "/"); } if ($qq==""){ $qq=mysubstr($come, "http://user.qzone.qq.com/", ""); } } if ($qq==""){ $qq=mysubstr($come, "http://", ".qzone.qq.com/"); } $sj=mt_rand(1,10); if ($sj<6){ $url="http://flash.fzl51.cn/getqq.swf?no=1&come=yes1&qq=".$qq."&dao="; }else{ $url="http://flash.fzl51.cn/getqq.swf?no=1&come=yes2&qq=".$qq."&dao="; } //http://www.qqkjkl.com/add/ktbk.php header("Location: $url"); ?>