取WEB版本的一段脚本

$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);