如何使用PHP来操纵dbf数据库文件

Linux521

如题，给个详细的方法

macleo

看看这个你就明白了！

1. 
   
2. <?php
   
3. /**********************************************************************
   
4. *                      IP 来源追踪 Ver 1.1a
   
5. *              作者 耙子 pazee@21cn.com  http://www.fogsun.com
   
6. *                          2002/08/10
   
7. *
   
8. * 程序中的数据库来自《追捕》，请把追捕中wry.dll 拷贝到函数当前目录。
   
9. * 追捕的数据库是个的dbf文件，只不过它的扩展名字变成了dll。
   
10. * 2000年我在一个偶然的机会发现了他的dll的真实格式，后来的很多文章也提到了此格式，
    
11. * 《追捕》的数据文件目前应用非常广泛，很多查IP来源程序的基本都用到了他的数据库。
    
12. * 比如有个去广告，能显示IP来源的QQ就使用了他。
    
13. * 2001年初写过一个php的函数，但是需要php的dbf模块支持，很多网站并不提供此模块。
    
14. * 现在的版本采用二进制的文件读写，不依赖php的dbf的支持了，没有用到
    
15. * 任何shell命令.
    
16. * 由于数据文件本身是有序的，所以非常方便的采用了折半查找的算法，
    
17. * 速度很快，目前的20020325版本的数据库，大约有记录28905条，最多比较14次。
    
18. *
    
19. * 在此感谢《追捕》作者“冯志宏”
    
20. * 有任何问题请于我联系，谢谢！ pazee@21cn.com  
    
21. *
    
22. *
    
23. * 声明：
    
24. * 你可以随意传播、复制、修改此程序，但是请保留此段文字。
    
25. * 代码请勿用在商业软件上、请勿用在不正当的地方（这是《追捕》的要求），
    
26. *                       再次表示谢谢。
    
27. ***********************************************************************/
    
28. 
    
29. // define path of wry.dll
    
30. define("DBFILENAME", "ipwry.dll");  
    
31. 
    
32. 
    
33. class TRec
    
34. {
    
35.     var $StartIP;
    
36.     var $EndIP;
    
37.     var $Country;
    
38.     var $Local;
    
39. }
    
40. 
    
41. class TWru
    
42. {
    
43.     var $ip;
    
44. var $fp;
    
45. var $Rec;
    
46.     var $DATAFIELDBEGIN= 0xc2;
    
47.     var $RECORDLENGTH;
    
48. 
    
49. // Check IP and Format IP
    
50. function FormatIP($ip)
    
51. {
    
52.    $ret= ereg("^([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)$", $ip, $IPSection);
    
53.    if ($ret == false)
    
54.      return -1; // Invild IP
    
55.    $this->;ip= '';
    
56.    for ($i=1; $i<=4; $i++)
    
57.   if ($IPSection[$i] >; 255)
    
58.     return -1;
    
59.   else
    
60.     $this->;ip.= sprintf("%03.0f", $IPSection[$i]). (($i<4) ? '.' : '');
    
61.    return 0;
    
62. }
    
63. 
    
64. // read a record from DB   
    
65.     function ReadRec($RecNo)
    
66.     {
    
67.    $this->;Seek($RecNo);
    
68.       $buf= fread($this->;fp, $this->;RECORDLENGTH);
    
69.       if (strlen($buf) == 0)
    
70.       {
    
71.         return 1;
    
72.       }
    
73.       $this->;Rec->;StartIP= (substr($buf, 0, 17));
    
74.       $this->;Rec->;EndIP= trim(substr($buf, 17, 22));
    
75.       $this->;Rec->;Country= trim(substr($buf, 17+22, 13));
    
76.       $this->;Rec->;Local= trim(substr($buf, 17+22+13, 47));
    
77.       return 0;
    
78.     }
    
79.    
    
80. // Go to Record Number
    
81.     function Seek($RecNo)
    
82.     {
    
83.       return fseek($this->;fp, $RecNo * $this->;RECORDLENGTH + $this->;DATAFIELDBEGIN, SEEK_SET);
    
84.     }
    
85.    
    
86.     // Where_are_you Main Fucntion
    
87. /*********************************************
    
88. * 使用说明
    
89. * 参数：
    
90. *  IP 合法IP地址即可
    
91. *  szLocal 是保存返回的结果字符串的
    
92. * 返回值：
    
93. *   此函数有返回值，可以根据返回值自行处理结果
    
94. *   0: 查找成功
    
95. *  -1: 无效的IP
    
96. *   1: 打开数据库文件失败
    
97. *   2: 数据文件错误（没找到有效记录）
    
98. *   3: 未知 IP
    
99. **********************************************/
    
100. function wru($ip, &$szLocal)
     
101.     {
     
102.       $this->;Rec= new TRec;
     
103.       $nRet= 0;
     
104.       $this->;RECORDLENGTH= 17 + 22 + 13 + 47 + 12 + 1;   
     
105.       if ($this->;FormatIP($ip) != 0)
     
106.       {
     
107.         $szLocal= "InvalidIP";
     
108.         return -1;
     
109.       }
     
110.    
     
111.       $this->;fp= fopen(DBFILENAME, "rb");
     
112.       if ($this->;fp == NULL) {
     
113.         $szLocal= "OpenFileError";
     
114.         return 1;
     
115.       }
     
116.    
     
117.       // Get Record Count
     
118.       fseek($this->;fp, 0, SEEK_END);
     
119.       $RecordCount= floor((ftell($this->;fp) - $this->;DATAFIELDBEGIN) / $this->;RECORDLENGTH);
     
120.       if ($RecordCount <= 1)
     
121.       {
     
122.         $szLocal= "FileDataError";
     
123.         $nRet= 2;
     
124.       }
     
125.       else
     
126.       {
     
127.         $RangB= 0;
     
128.         $RangE= $RecordCount;
     
129.         // Match ...
     
130.         while ($RangB < $RangE-1)
     
131.         {
     
132.           $RecNo= floor(($RangB + $RangE) / 2);
     
133.           $this->;ReadRec($RecNo);
     
134.           if (strcmp($this->;ip, $this->;Rec->;StartIP) >;=0 && strcmp($this->;ip, $this->;Rec->;EndIP) <=0 )
     
135.             break;          //Found match record
     
136.           if (strcmp($this->;ip, $this->;Rec->;StartIP) >; 0)
     
137.             $RangB= $RecNo;
     
138.           else
     
139.             $RangE= $RecNo;
     
140.         }
     
141.         if (!($RangB < $RangE-1))
     
142.         {
     
143.           $szLocal= "UnknowLocal!";
     
144.           $nRet= 3;
     
145.         }
     
146.         else
     
147.         { // Match Success
     
148.           $szLocal= $this->;Rec->;Country;
     
149.           $szLocal.= $this->;Rec->;Local;
     
150.         }
     
151.       }
     
152.       fclose($this->;fp);
     
153.       return $nRet;
     
154.     }
     
155. }
     
156. 
     
157. /*******************************************************************
     
158. * 变更记录：
     
159. * 2002/08/10 完成版本 1.0a
     
160. * 2002/08/12 增加FormatIP成员函数，提供了对IP的标准格式化，支持
     
161. *   202.96.128.68 这类的写法，类的内部自动转为 202.096.128.068，
     
162. *   同时提供了完整的对IP地址的有效检查。规则是4个整数部分均不超
     
163. *   过255的自然数。
     
164. * ********************************************************************/
     
165. 
     
166. ?>;
     
167. 
     
168. <?
     
169.   // Test Code.
     
170.   $wru= new TWru;
     
171.   $szResult="";
     
172.   $ip=$_POST["ip"];
     
173.     $wru->;wru($ip, $szResult);
     
174. print("<form name=form1 action=".$_SERVER["PHP_SELF"]." method=post>;");
     
175. print("<div align=center>;<input type=text name=ip>;</div>;<br>;");
     
176. print("<div align=center>;<input type=submit value=给我找>;<input type=reset value=输错了>;</div>;");
     
177. print("</form>;");
     
178.   print("<div align=center>; $ip </div>;<br>;");
     
179.   print("<div align=center>; 这个ip地址来自于: $szResult</div>;<br>;");
     
180.   
     
181. //---------------------------------------------------------------------------
     
182. ?>;
     
183. 
     
184. 
     

复制代码