找了些时间，改进了自己文本数据库系统，从空间利用效率和并发性能两个方面着手，搞高了程序性能。

在空间利用率上，做了两点改进，一是在删除记录的时候，如果记录的存放位置在数据库的末端，就自动修改数据库末端指针，而不是将此记录的空间作为一个闲置块存入闲置块记录中，这样就可以继续在数据文件尾分配任意长度的空间而不是像以前那样将这个删除记录的空间整块分配给下一次请求空间的新记录；第二点改进是在从闲置块中请求空间的时候，不仅继续采用原来的最佳适应法，而且在请求到合适的闲置块的时候并不是将整个块而是将其部分划分给新记录，这样又进一部提高了空间的利用率。

在并发性能上，增加了数据库的打开模式这个选项。为了保持文本数据库操作的原子性，以前都以写模式打开数据库，用户无论是从数据库中读数据或写数据，系统都会锁定数据库而禁止其它用户并发的读写操作，而大多情况下，用户都是浏览网页而不是POST数据，禁止对数据库的并行的读操作，势必成为网页浏览速度的瓶颈，为了加速网页生成速度，在数据库中加入了打开模式这一选项，在只读模式下，可以允许不同的用户并发地从数据库中申请数据，使得网页并发性能得到了一定程序上的提高。

下面给出新文本数据库类的部分代码，其相关注释可以从原来的文章：http://202.113.13.169/site/redboy/index.php?item=read&id=1&blogID=4中获得。

源代码：

<?
class TxtDB
{
    var $name='';//文本数据库名
    var $path='';
    var $minLen=20;
    var $isError;
    var $dbh;
    var $indxh;
    var $lfth;
    var $lckh;
    var $rcdCnt=0;
    var $maxID=0;
    var $leftCnt=0;
    var $DBend=0;
    var $mod='w';

    function TxtDB($name,$mod='w',$path='bpns_dbm')
    {
        $this->name=$name;
        $this->path=$path.'/'.$name;
        $this->isError=0;
        $this->mod=$mod;
        $path=$this->path;
        if ($name!='')
        {
            @mkdir($this->path,0777);
            if (!file_exists($path.'/'.$name.'.tdb')) $this->dbh=fopen($this->path.'/'.$name.'.tdb','w+');
            else $this->dbh=fopen($path.'/'.$name.'.tdb','r+');
            if (!file_exists($path.'/'.$name.'.indx')) $this->indxh=fopen($this->path.'/'.$name.'.indx','w+');
            else $this->indxh=fopen($path.'/'.$name.'.indx','r+');
            if (!file_exists($path.'/'.$name.'.lft')) $this->lfth=fopen($this->path.'/'.$name.'.lft','w+');
            else $this->lfth=fopen($this->path.'/'.$name.'.lft','r+');
            if ($this->mod=='w')
            {
                 $this->lckh=fopen($this->path.'/'.$name.'.lck','w');
                 flock($this->lckh,2);
                 fwrite($this->lckh,'lck');//lock the datebase
            }
            $rcd=$this->getRcd(0);
            $this->rcdCnt=$rcd[id];
            $this->maxID=$rcd[loc];
            $this