$fp =@fsockopen($domain, $port, $errno, $errstr, 20);
     if(!$fp){
             return "UNKNOWN";
    exit;
    } else {
         $ok = false;
         @fputs($fp,"GET $geturl HTTP/1.0\nHost: $domain\n\n\r\n");
         while(!feof($fp)){
             $line = fgets($fp,128);
             if(! $ok && preg_match("/^[\r\n]+$/",$line)) {
              $ok = true; //正文开始
             }
             if(!$ok){
                 if(preg_match("/([^:]+?):(.+)/",$line,$r))
                 $info[$r[1]] = $r[2];//取WEB版本
                 }else{
         $body.=$line;//取得BODY文件
                 }
    }
         }


     fclose($fp);

这几天项目的事情差不多了，就等着去厦门了。用一上午把SEBUG的脚本修正了一下。

SEBUG从发布到现在一直没怎么动过代码，这几天发现不少问题，索性改改。两年前的代码还真有点搞笑，不少低能问题，呵呵。记录之。

1. 更换了分页函数
2. 整站改为DIV+CSS
3. 代码应用了<pre>标签
4. 修正了不少错误
5. 添加提交信息模块

就这么多吧。<pre>更方便采集了，让采集来得更猛烈些吧。