Emlog显示评论者IP地理位置

教程简介

为你的评论区加入 已评论者的IP地理位置显示 也不算什么有用的功能 想为你的博客加上这个小功能的 那就继续阅读哦 不想加的右上角X 不废话了 直接开始吧

第一步

你的模版/module.php增加如下代码 

1. <?php
2. //评论IP显示
3. function convertip($ip) {
4. $dat_path = EMLOG_ROOT.'/ip.dat'; //*数据库路径*//
5. if(!$fd = @fopen($dat_path, 'rb')){
6. return 'IP数据库文件不存在或者禁止访问或者已经被删除！';
7. }
8. $ip = explode('.', $ip);
9. $ipNum = $ip[0] * 16777216 + $ip[1] * 65536 + $ip[2] * 256 + $ip[3];
10. $DataBegin = fread($fd, 4);
11. $DataEnd = fread($fd, 4);
12. $ipbegin = implode('', unpack('L', $DataBegin));
13. if($ipbegin < 0) $ipbegin += pow(2, 32);
14. $ipend = implode('', unpack('L', $DataEnd));
15. if($ipend < 0) $ipend += pow(2, 32);
16. $ipAllNum = ($ipend - $ipbegin) / 7 + 1;
17. $BeginNum = 0;
18. $EndNum = $ipAllNum;
19. while($ip1num>$ipNum || $ip2num<$ipNum) {
20. $Middle= intval(($EndNum + $BeginNum) / 2);
21. fseek($fd, $ipbegin + 7 * $Middle);
22. $ipData1 = fread($fd, 4);
23. if(strlen($ipData1) < 4) {
24. fclose($fd);
25. return '系统出错！';
26. }
27. $ip1num = implode('', unpack('L', $ipData1));
28. if($ip1num < 0) $ip1num += pow(2, 32);
29. if($ip1num > $ipNum) {
30. $EndNum = $Middle;
31. continue;
32. }
33. $DataSeek = fread($fd, 3);
34. if(strlen($DataSeek) < 3) {
35. fclose($fd);
36. return '系统出错！';
37. }
38. $DataSeek = implode('', unpack('L', $DataSeek.chr(0)));
39. fseek($fd, $DataSeek);
40. $ipData2 = fread($fd, 4);
41. if(strlen($ipData2) < 4) {
42. fclose($fd);
43. return '系统出错！';
44. }
45. $ip2num = implode('', unpack('L', $ipData2));
46. if($ip2num < 0) $ip2num += pow(2, 32);
47. if($ip2num < $ipNum) {
48. if($Middle == $BeginNum) {
49. fclose($fd);
50. return '未知';
51. }
52. $BeginNum = $Middle;
53. }
54. }
55. $ipFlag = fread($fd, 1);
56. if($ipFlag == chr(1)) {
57. $ipSeek = fread($fd, 3);
58. if(strlen($ipSeek) < 3) {
59. fclose($fd);
60. return '系统出错！';
61. }
62. $ipSeek = implode('', unpack('L', $ipSeek.chr(0)));
63. fseek($fd, $ipSeek);
64. $ipFlag = fread($fd, 1);
65. }
66. if($ipFlag == chr(2)) {
67. $AddrSeek = fread($fd, 3);
68. if(strlen($AddrSeek) < 3) {
69. fclose($fd);
70. return '系统出错！';
71. }
72. $ipFlag = fread($fd, 1);
73. if($ipFlag == chr(2)) {
74. $AddrSeek2 = fread($fd, 3);
75. if(strlen($AddrSeek2) < 3) {
76. fclose($fd);
77. return '系统出错！';
78. }
79. $AddrSeek2 = implode('', unpack('L', $AddrSeek2.chr(0)));
80. fseek($fd, $AddrSeek2);
81. } else {
82. fseek($fd, -1, SEEK_CUR);
83. }
84. while(($char = fread($fd, 1)) != chr(0))
85. $ipAddr2 .= $char;
86. $AddrSeek = implode('', unpack('L', $AddrSeek.chr(0)));
87. fseek($fd, $AddrSeek);
88. while(($char = fread($fd, 1)) != chr(0))
89. $ipAddr1 .= $char;
90. } else {
91. fseek($fd, -1, SEEK_CUR);
92. while(($char = fread($fd, 1)) != chr(0))
93. $ipAddr1 .= $char;
95. $ipFlag = fread($fd, 1);
96. if($ipFlag == chr(2)) {
97. $AddrSeek2 = fread($fd, 3);
98. if(strlen($AddrSeek2) < 3) {
99. fclose($fd);
100. return '系统出错！';
101. }
102. $AddrSeek2 = implode('', unpack('L', $AddrSeek2.chr(0)));
103. fseek($fd, $AddrSeek2);
104. } else {
105. fseek($fd, -1, SEEK_CUR);
106. }
107. while(($char = fread($fd, 1)) != chr(0)){
108. $ipAddr2 .= $char;
109. }
110. }
111. fclose($fd);
112. if(preg_match('/http/i', $ipAddr2)) {
113. $ipAddr2 = '';
114. }
115. $ipaddr = "$ipAddr1 $ipAddr2";
116. $ipaddr = preg_replace('/CZ88.Net/is', '', $ipaddr);
117. $ipaddr = preg_replace('/^s*/is', '', $ipaddr);
118. $ipaddr = preg_replace('/s*$/is', '', $ipaddr);
119. if(preg_match('/http/i', $ipaddr) || $ipaddr == '') {
120. $ipaddr = '未知';
121. }
122. $ipaddr = iconv('gbk', 'utf-8//IGNORE', $ipaddr);
123. if( $ipaddr != ' ' )
124. return $ipaddr;
125. else
126. $ipaddr = '评论者来自火星，无法或者其所在地!';
127. return $ipaddr;
128. }
129. ?>

第二步

下载ip.dat 放到你的程根目录哦 不是模板根目录看清楚了啊

下载地址https://www.tx47.cn/ip.dat

第三步

放在你要显示的评论区就行 包括子评论列表哦

1. <?php echo convertip($comment['ip']); ?>